09-12-21, 10:13 AM
السلام عليكم ورحمة الله وبركاته
الاخوة الكرام تحية طيبة
ياريت تساعدوني في كود السماح بحفظ حقل الصورة في قاعدة البيانات فارغ حيث اني قمت بكتابة كود الحفظ وهو شغال تمام ولكن عند ترك اداة picturebox فارغ يظهر خطأ مكتوب فيه (( لم يتم تعيين مرجع كائن لمثيل كائن. ))
وعند اختيار صورة تتم عملية الحفظ بشكل سليم
فكيف يتم حل هذا الاشكال فأنا ليس في جميع الاحوال احتاج اظافة صورة ؟؟؟؟
الاخوة الكرام تحية طيبة
ياريت تساعدوني في كود السماح بحفظ حقل الصورة في قاعدة البيانات فارغ حيث اني قمت بكتابة كود الحفظ وهو شغال تمام ولكن عند ترك اداة 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