ممكن طريقة حفظ الصورة في ال Access

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

بداية دعني اخبرك كيف تستخرجها اولا تم اخبرك كيف تخزنها

Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=ddddd.mdb;"
		Try
			Dim con As OleDbConnection
			con = New OleDbConnection(ConString)
			con.Open()
			Dim cmd As New OleDb.OleDbCommand("select * from empname", con)
			Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader()
			dr.Read()

			Dim MySteam As New IO.MemoryStream


			Dim value As Byte() = dr.Item(Me.mFiledName)
			Using MySteam

				MySteam.Write(value, 0, value.LongLength)

				Panel1.Image = Image.FromStream(MySteam)

			End Using
		Catch ex As Exception
			Panel1.Image = Panel1.ErrorImage
		End Try

استخدام Using للتخلص من الـ Mystream بعد الانتهاء من استخدامه

اذا وجدت الشفرة الصورة تم عرضها في الـ Panel واذا لم يتم ايجادها تم عرض الصورة Error

لاحظ ان اسم Panel1 هو اسم لااداة Picturebox

أما طريقة الحفظ فسهلة كثيرا

Dim PictureByte As Byte()
PictureByte = My.Computer.FileSystem.ReadAllBytes(OpenFileDialog1.FileName)
وبعدها اسند المتغير الى الحقل المطلوب
.Fields("PicImage").Value = PictureByte

شكراً أخي وهدا كود مني لتحميل الصورة ابسط طبعاً هو بحاجة لتطوير

Try
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
lblPhotoFile.Text = OpenFileDialog1.FileName
Call ShowPhoto()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "خطاءفى فتح الصورة", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

وبدي منك شرح صغير للكود التالي

Framework2 كتب:

أما طريقة الحفظ فسهلة كثيرا

Dim PictureByte As Byte()
PictureByte = My.Computer.FileSystem.ReadAllBytes(OpenFileDialog1.FileName)
وبعدها اسند المتغير الى الحقل المطلوب
.Fields("PicImage").Value = PictureByte