@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته









نعم مجربها وهي ممتازة، وليس لها عبوب لأنها مخصصة للصور.....

بالمناسبة استبدل كود تحويل الصورة لبايت السابق بهذا الكود كم أجل أن يعمل معك الكود الذي كتبته لك قبل قليل

PHP كود :

#Region " imgToByte "
    Public Function imgToByte(ByVal image As Image) As Object
        Dim imgByte As Byte() = Nothing
        Dim imgStream As New IO.MemoryStream()
        On Error Resume Next
        image.Save(imgStream, Imaging.ImageFormat.Png)
        On Error GoTo 0
        Return imgStream.ToArray()
    End Function
#End Region 


السلام عليكم ورحمة الله وبركاته

اخي او رائد غيرت النوع الى Image وفعلت في قاعدة البيانات Allow Null وغيرت الاكواد واضفت هذا الكود الذي اعطيتني اياه - بعد التعديل

كود :

cm.Parameters.AddWithValue("@Img1U1", IIf(IsNothing(Me.PictureBox2.Image), imgToByte2(New Bitmap(1, 1)), imgToByte2(Me.PictureBox2.Image)))
        cm.Parameters.AddWithValue("@Img2U1", IIf(IsNothing(Me.PictureBox3.Image), imgToByte3(New Bitmap(1, 1)), imgToByte3(Me.PictureBox3.Image)))
        cm.Parameters.AddWithValue("@Img3U1", IIf(IsNothing(Me.PictureBox4.Image), imgToByte4(New Bitmap(1, 1)), imgToByte4(Me.PictureBox4.Image)))
        cm.Parameters.AddWithValue("@Img4U1", IIf(IsNothing(Me.PictureBox5.Image), imgToByte5(New Bitmap(1, 1)), imgToByte5(Me.PictureBox5.Image)))

        cm.Parameters.AddWithValue("@Img1U2", IIf(IsNothing(Me.PictureBox6.Image), imgToByte6(New Bitmap(1, 1)), imgToByte6(Me.PictureBox6.Image)))
        cm.Parameters.AddWithValue("@Img2U2", IIf(IsNothing(Me.PictureBox7.Image), imgToByte7(New Bitmap(1, 1)), imgToByte7(Me.PictureBox7.Image)))
        cm.Parameters.AddWithValue("@Img3U2", IIf(IsNothing(Me.PictureBox8.Image), imgToByte8(New Bitmap(1, 1)), imgToByte8(Me.PictureBox8.Image)))
        cm.Parameters.AddWithValue("@Img4U2", IIf(IsNothing(Me.PictureBox9.Image), imgToByte9(New Bitmap(1, 1)), imgToByte9(Me.PictureBox9.Image)))

        cm.Parameters.AddWithValue("@Img1U3", IIf(IsNothing(Me.PictureBox10.Image), imgToByte10(New Bitmap(1, 1)), imgToByte10(Me.PictureBox10.Image)))
        cm.Parameters.AddWithValue("@Img2U3", IIf(IsNothing(Me.PictureBox11.Image), imgToByte11(New Bitmap(1, 1)), imgToByte11(Me.PictureBox11.Image)))
        cm.Parameters.AddWithValue("@Img3U3", IIf(IsNothing(Me.PictureBox12.Image), imgToByte12(New Bitmap(1, 1)), imgToByte12(Me.PictureBox12.Image)))
        cm.Parameters.AddWithValue("@Img4U3", IIf(IsNothing(Me.PictureBox13.Image), imgToByte13(New Bitmap(1, 1)), imgToByte13(Me.PictureBox13.Image)))

ولم يفلح :confused:

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته



ما هي المشكلة، وما هي رسالة الخطأ بالتفصيل؟ لأنها تعمل لدي بشكل صحيح.




السلام عليكم ورحمة الله وبركاته

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





عندك أمر المفروض يكون بواسطة New ولكنك عرفته بدونها




السلام عليكم ورحمة الله وبركاته