[محمد اسماعيل]

السلام عليكم

اضيف صور لقاعدة البيانات من البيكتشر بوكس بتحويل الصور الي بايت
الكود يضيف عادي لو اضفت صورة بصندوق الصور ولكن ان كان فارغ لا يضيف الصورة الفارغة او null

طبعا انا اريد لو الصورة موجودة بالبيكتشر تضاف ولو فارغة ليس شرط ان تكون هناك صورة بالصف وبالتالي تصبح قيمة null
الكود

كود :

Dim ms As New MemoryStream
           PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
           Dim img() As Byte
           img = ms.ToArray()
           UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", img)

محاولتي لمعرفة القيمة الفارغة  بدون فائدة

كود :

 If Me.PictureBox1.Image Is Nothing Then
               img = CObj(DBNull.Value)

           Else
               img = ms.ToArray()

           End If