[moftah70]

السلام عليكم ورحمة الله وبركاته
الاخوة الكرام تحية طيبة
ياريت تساعدوني في كود السماح بحفظ حقل الصورة في قاعدة البيانات فارغ حيث اني قمت بكتابة كود الحفظ وهو شغال تمام ولكن عند ترك اداة picturebox فارغ يظهر خطأ مكتوب فيه (( لم يتم تعيين مرجع كائن لمثيل كائن. ))
وعند اختيار صورة تتم عملية الحفظ بشكل سليم
فكيف يتم حل هذا الاشكال فأنا ليس في جميع الاحوال احتاج اظافة صورة ؟؟؟؟

   

كود :

Dim ms As New MemoryStream()
           Dim bmpImage As New Bitmap(emp_picture.Image)
           bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim data As Byte() = ms.GetBuffer()
           Dim p As New SqlParameter("@emp_picture", SqlDbType.Image)
           p.Value = data
           .Parameters.Add(p)

كود :

Public Sub ChoosePicture(Pbox As PictureBox)
       Dim a As New OpenFileDialog
       With a
           .AddExtension = True
           .CheckPathExists = True
           .CheckFileExists = True
           .Title = "Choose Image"
           .Filter = "Choose Image (*.PNG; *.JPG; *.GIF; *.JPEG)| *.PNG; *.JPG; *.GIF; *.JPEG | All Files (*.*)|*.*"
           If .ShowDialog = DialogResult.OK Then
               PBox.Image = Image.FromFile(.FileName)
           End If
       End With
   End Sub