حفظ الصور فى قاعدة البيانات

بسم الله الرحمن الرحيم

أخى العزيز الكود ده ممكن يفيدك

Dim connection As New SqlClient.SqlConnection("connection string here")

Dim command As New SqlClient.SqlCommand("UPDATE MyTable SET Picture = @Picture WHERE ID = 1", connection)

Using picture As Image = Image.FromFile("file path here")

Using stream As New IO.MemoryStream

picture.Save(stream, Imaging.ImageFormat.Jpeg)

command.Parameters.Add("@Picture", SqlDbType.Image).Value = stream.GetBuffer()

End Using

End Using

connection.Open()

command.ExecuteNonQuery()

connection.Close()

إستعمل OLE OBJECT FIELD أثناء إنشاء الجدول، إذار أردت إدراج الصور مباشرة من access أنقر بيمين الفأرة على الخلية الخاصة بالصورة وستجد خيار Insert Ole Object ثم اختر إدراج الصورة من مف

بعد ربطها مع VisualBasic قم بإضافة DataBinding لخاصية Image ل PictureBox الخاص بعرض الصورة، ويمكن أيضا استخدام OpenFileDialogBox لتمكين المستخدم من اختيار صورة معينة واستبدالها في Picture Box

PhotoPictureBox.databinding.add("Image", Table1 , "photo",true)

	Private Sub PhotoPictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhotoPictureBox.Click
 	Dim pic As Bitmap

 	OpenPhotoDialog.Filter = "images (*.jpg, *.bmp)|*.jpg; *.bmp|All files (*.*)|*.*"
 	OpenPhotoDialog.FilterIndex = 1
 	OpenPhotoDialog.RestoreDirectory = True

 	If OpenPhotoDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
 	Try
 	pic = Image.FromFile(OpenPhotoDialog.FileName)
 	If (pic IsNot Nothing) Then
 	PhotoPictureBox.Image = pic.GetThumbnailImage(100, 100, Nothing, Nothing)
 	End If
 	Catch Ex As Exception
 	MessageBox.Show("Error: " & Ex.Message)
 	End Try
 	End If

	End Sub

اخى الفاضل اشكرك بحرارة وجارى التجربة