منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل كود حفظ QR وباركود الفاتوره - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود حفظ QR وباركود الفاتوره (/showthread.php?tid=36819)



تعديل كود حفظ QR وباركود الفاتوره - momani33 - 01-11-20

السلام عليكم لدي كود لحفظ  ال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()