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

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

الاستعلام من القاعدة

Dim connection As New SqlConnection("conn string")

Dim command As New SqlCommand("SELECT Picture FROM MyTable WHERE ID = 1", connection)

 connection.Open()

 تحميل الصورة داخل متغير من نوع بايت

Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(),Byte())

   

  connection.Close()

Dim picture As Image = Nothing

 انشاء كائن memorystream لتحميل بايتات الصورة بالذاكرة

    Using stream As New IO.MemoryStream(pictureData)

    تحويل البيتات الى صورة من خلال الطريقة fromstream

    picture = Image.FromStream(stream)

    End Using

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

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

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

   

فتح الصورة من الجهاز وتحميلها داخل متغير  image

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

انشاء متغير من نوع memorystream لحفظ الصورة بصيغة بايت بداخله

Using stream As New IO.MemoryStream

تحويل الصورة الى بايت وحفظها داخل الكائن stream

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

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

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

End Using

    End Using

 

   connection.Open()

   command.ExecuteNonQuery()

   connection.Close()