01-11-20, 12:42 AM
السلام عليكم لدي كود لحفظ الQR والباركود للفاتوره يتم اخذه على شكل صوره مولده من الفورم ولكن عند تنفيذ الكود احيانا تتم عملية الحفظ بنجاح ولكن في كثير من الاحيان تظهر رسالة خطا ولا يمكن الحفظ الرجاء المساعدة في تعديل الكود ومعرفة الخطا اين
Dim sql = "insert into Purchases_add(pic_qr,pic_baracode) values(@pic_qr,@pic_baracode)"
Dim cmd As New SqlCommand(sql, sqlconn)
Dim imagbytearray() As Byte
Dim stream As New MemoryStream
pic_qr.Image.Save(stream, ImageFormat.Jpeg)
imagbytearray = stream.ToArray
stream.Close()
'==========QR==حفظ الصورة=============
Dim imagbytearray1() As Byte
Dim stream1 As New MemoryStream
pic_baracode.Image.Save(stream1, ImageFormat.Jpeg)
imagbytearray1 = stream1.ToArray
stream1.Close()
cmd.Parameters.AddWithValue("@pic_qr", imagbytearray)
cmd.Parameters.AddWithValue("@pic_baracode", imagbytearray1)
If sqlconn.State <> ConnectionState.Open Then sqlconn.Open()
cmd.ExecuteNonQuery()
sqlconn.Close()
Dim cmd As New SqlCommand(sql, sqlconn)
Dim imagbytearray() As Byte
Dim stream As New MemoryStream
pic_qr.Image.Save(stream, ImageFormat.Jpeg)
imagbytearray = stream.ToArray
stream.Close()
'==========QR==حفظ الصورة=============
Dim imagbytearray1() As Byte
Dim stream1 As New MemoryStream
pic_baracode.Image.Save(stream1, ImageFormat.Jpeg)
imagbytearray1 = stream1.ToArray
stream1.Close()
cmd.Parameters.AddWithValue("@pic_qr", imagbytearray)
cmd.Parameters.AddWithValue("@pic_baracode", imagbytearray1)
If sqlconn.State <> ConnectionState.Open Then sqlconn.Open()
cmd.ExecuteNonQuery()
sqlconn.Close()