29-11-16, 01:34 AM
السلام عليكم إخواني ,,
أنا لدي قاعدة بيانات أكسس بها جدول يحتوي على صورة و إستخدمت هذا الكود لحفظ الصورة
كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Dim freader As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim breader As New BinaryReader(freader)
Dim imbuffer(freader.Length) As Byte
breader.Read(imbuffer, 0, freader.Length)
Dim sqls As String = "INSERT INTO img_tb (imname,imga) values (@x1,@x2)"
Dim cmda As New OleDbCommand(sqls, cn)
'cmda.CommandText = sqls
'cmda.Connection = cn
cmda.Parameters.AddWithValue("@x1", linen.Text)
cmda.Parameters.AddWithValue("@x2", imbuffer)
cmda.ExecuteNonQuery()
'cmda.Dispose()
MsgBox("saved")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Subالمطلوب كيف استجلب هذه الصورة من قاعدة البيانات و عرضها على PictureBox1 الموجود على الفورم
مشكورين سلفاً