[shado1796]

اخي لي يوم كامل احاول احلها ،،، وما كتبت المشكلة عشان انت اعطيتني مثال وموجودة الطريقة لكن في مشروعي مو راضيه :confused: يظهرلي خطأ في Img1U1

هذا الكود كامل

كود :

If IsNothing(PictureBox2.Image) = False Then
            Dim picStream2 As New MemoryStream

            PictureBox2.Image.Save(picStream2, ImageFormat.Gif)

            Dim PicByte2 As Byte() = picStream2.ToArray
            cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte2 As New Byte
            cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If








        If IsNothing(PictureBox3.Image) = False Then
            Dim picStream3 As New MemoryStream

            PictureBox3.Image.Save(picStream3, ImageFormat.Gif)

            Dim PicByte3 As Byte() = picStream3.ToArray
            cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte3 As New Byte
            cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If



        If IsNothing(PictureBox4.Image) = False Then
            Dim picStream4 As New MemoryStream

            PictureBox4.Image.Save(picStream4, ImageFormat.Gif)

            Dim PicByte4 As Byte() = picStream4.ToArray
            cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte4 As New Byte
            cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If





        If IsNothing(PictureBox5.Image) = False Then
            Dim picStream5 As New MemoryStream

            PictureBox5.Image.Save(picStream5, ImageFormat.Gif)

            Dim PicByte5 As Byte() = picStream5.ToArray
            cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte5 As New Byte
            cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If






        If IsNothing(PictureBox6.Image) = False Then
            Dim picStream6 As New MemoryStream

            PictureBox6.Image.Save(picStream6, ImageFormat.Gif)

            Dim PicByte6 As Byte() = picStream6.ToArray
            cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte6 As New Byte
            cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If





        If IsNothing(PictureBox7.Image) = False Then
            Dim picStream7 As New MemoryStream

            PictureBox7.Image.Save(picStream7, ImageFormat.Gif)

            Dim PicByte7 As Byte() = picStream7.ToArray
            cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte7 As New Byte
            cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If





        If IsNothing(PictureBox8.Image) = False Then
            Dim picStream8 As New MemoryStream

            PictureBox8.Image.Save(picStream8, ImageFormat.Gif)

            Dim PicByte8 As Byte() = picStream8.ToArray
            cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte8 As New Byte
            cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If






        If IsNothing(PictureBox9.Image) = False Then
            Dim picStream9 As New MemoryStream

            PictureBox9.Image.Save(picStream9, ImageFormat.Gif)

            Dim PicByte9 As Byte() = picStream9.ToArray
            cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte9 As New Byte
            cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If








        If IsNothing(PictureBox10.Image) = False Then
            Dim picStream10 As New MemoryStream

            PictureBox10.Image.Save(picStream10, ImageFormat.Gif)

            Dim PicByte10 As Byte() = picStream10.ToArray
            cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte10 As New Byte
            cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If







        If IsNothing(PictureBox11.Image) = False Then
            Dim picStream11 As New MemoryStream

            PictureBox11.Image.Save(picStream11, ImageFormat.Gif)

            Dim PicByte11 As Byte() = picStream11.ToArray
            cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte11 As New Byte
            cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If




        If IsNothing(PictureBox12.Image) = False Then
            Dim picStream12 As New MemoryStream

            PictureBox12.Image.Save(picStream12, ImageFormat.Gif)

            Dim PicByte12 As Byte() = picStream12.ToArray
            cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte12 As New Byte
            cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If



        If IsNothing(PictureBox13.Image) = False Then
            Dim picStream13 As New MemoryStream

            PictureBox13.Image.Save(picStream13, ImageFormat.Gif)

            Dim PicByte13 As Byte() = picStream13.ToArray
            cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '==================================
        Else
            Dim PicByte13 As New Byte
            cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13
            '===================================
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm.ExecuteNonQuery()
            cm.Parameters.Clear()
            '===================================
        End If