[momani33]

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