الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد insert image into sql server بواسطة vb.net

بدأه k.alnamshan في 25 يوليو 2013 · 5 رد · 1,811 مشاهدة · في Microsoft Visual Basic.NET
insert image into sql servervb.net
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته


 


انا طالب جامعي متدرب في شركة 


طلب مني برنامج ادخال وسترجاع البيانات 


يتكون من :


1- مدخل بيانات (بيانات المدخل , بيانات المعقب , المستندات و صور الفواتير)


2- معقب


3- مشرف على العمليه


 


-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


المشكلة في حفظ الصور


لاني حفظت مسار الصوره وليست الصوره نفسها وتكون المشكله ان الصوره تعرض في جهاز المدخل والاجهزة الاخرى لاتعرض فيها الصور


 


وهذا الكود السابق:


Dim j as string


Dim k As New OpenFileDialog

       "|*.*" = k.Filter 

        ()k.ShowDialog

        j = k.FileName

        (PictureBox1.Image = Image.FromFile(j

 

 

  Dim cmd As New OleDb.OleDbCommand("insert into Attach_T values(" & TextBox7.Text & ",'" & TextBox6.Text & "','" & j & "','" & TextBox5.Text & "')", con)

       

 

            Try

                con.Open()

 

                cmd.ExecuteNonQuery()

 

               MsgBox("Done")

     

      Catch ex As Exception

   

            MsgBox(ex.Message)

            Finally

                con.Close()

            End Try

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

اريد كود يحفظ الصورة بنوع image في قاعدة بيانات sql server

ويقرائها من القاعده

ويكون الربط بالكود فقط بدون tools

 

اتمنى سرعة الاجابه وشكرا..,

post-276310-0-93950900-1374727625_thumb.

#2

تعود ألا تحفظ صور في قاعدة بيانات فقط قم بحفظ المسارات فيها والمجلد الأصلي -ضعه في جدول الإعدادات-

 

أما إذا أصررت على حفظ صور فانظر على نوع البيانات BLOB

(map share people)

فضلا لاتقم بمراسلتي من أجل أسئلة لها أقسامها في المنتدى حتى تعم الفائدة على الجميع وللحصول على إجابات أفضل من أعضاء أكثر خبرة.
Weblog
@bitbucket
@xmonader

#3

أشكرك على الرد


 


ماهي طريقة حفظ المسارات بحيث انها تكون مشتركه بين المستخدمين


لان الصور تضاف من اكثر من مستخدم وتعرض على اكثر من مستخدم


#5

جزاكم الله كل خير

 

 

 

Imports System.Data.SqlClient

Imports System.IO

Public Class Form1

Dim constring As String = "Data Source=RUH-SQLCLS-test;Initial Catalog=TSDB;User ID=TRSADMIN;Password=Trs@admin"

Dim con As New SqlConnection(constring)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

　

　

　

　

Dim fname As String

If Filedlg.ShowDialog = DialogResult.OK Then

picbox1.Image = Image.FromFile(fileDlg.FileName)

Dim m() As String = Split(Filedlg.FileName, "\")

Array.Reverse(m)

fname = m(0)

Else

Exit Sub

End If

Dim arrfilename() As String = Split(fname, "\")

Array.Reverse(arrfilename)

Dim ms1 As New MemoryStream()

picbox1.Image.Save(ms1, picbox1.Image.RawFormat)

Dim arrimg() As Byte = ms1.GetBuffer

ms1.Close()

Dim strSQL As String = "insert into attach_t(attach_id,attach_name,file1,desecration,picture1)" & "values(@id,@na,@fil,@dese,@pic)"

Dim cmdSQL As New SqlCommand(strSQL, con)

With cmdSQL

.Parameters.Add(New SqlParameter("@id", SqlDbType.VarChar)).Value = InputBox("ادخل الرقم")

.Parameters.Add(New SqlParameter("@na", SqlDbType.VarChar)).Value = InputBox("ادخل اسم الاب")

.Parameters.Add(New SqlParameter("@fil", SqlDbType.VarChar)).Value = InputBox("ادخل الاسم الاول")

.Parameters.Add(New SqlParameter("@dese", SqlDbType.NVarChar, 255)).Value = ("اخل ملاحظات عن الصورة")

.Parameters.Add(New SqlParameter("@pic", SqlDbType.Image)).Value = arrimg

End With

Try

con.Open()

cmdSQL.ExecuteNonQuery()

con.Close()

MsgBox("The new item added in table ")

Catch ex As SqlException

MsgBox(ex.Message)ِ

Finally

con.Close()

End Try

End Sub

　

　

　

End Classِِ

#6

الان محتاج اسحب الصور من القاعدة


انتظر ردكم بفارغ الصبر


مواضيع مشابهة