مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات

كود :

[align=center][b][SIZE=4]

       If IsNothing(PictureBox2.Image) Then

        Else

         cm.Parameters.AddWithValue("@Img1U1", imgToByte2(Me.PictureBox2.Image))

        End If



        If IsNothing(PictureBox3.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img2U1", imgToByte3(Me.PictureBox3.Image))

        End If



        If IsNothing(PictureBox4.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img3U1", imgToByte4(Me.PictureBox4.Image))

        End If



        If IsNothing(PictureBox5.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img4U1", imgToByte5(Me.PictureBox5.Image))

        End If



        If IsNothing(PictureBox6.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img1U2", imgToByte6(Me.PictureBox6.Image))

        End If



        If IsNothing(PictureBox7.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img2U2", imgToByte7(Me.PictureBox7.Image))

        End If



        If IsNothing(PictureBox8.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img3U2", imgToByte8(Me.PictureBox8.Image))

        End If



        If IsNothing(PictureBox9.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img4U2", imgToByte9(Me.PictureBox9.Image))

        End If



        If IsNothing(PictureBox10.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img1U3", imgToByte10(Me.PictureBox10.Image))

        End If



        If IsNothing(PictureBox11.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img2U3", imgToByte11(Me.PictureBox11.Image))

        End If



        If IsNothing(PictureBox12.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img3U3", imgToByte12(Me.PictureBox12.Image))

        End If



        If IsNothing(PictureBox12.Image) Then

        Else

            cm.Parameters.AddWithValue("@Img4U3", imgToByte13(Me.PictureBox13.Image))

        End If

كود :

cm.Parameters.AddWithValue("@Img1U1", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox2.Image), DBNull.Value, imgToByte2(Me.PictureBox2.Image))

        cm.Parameters.AddWithValue("@Img2U1", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox3.Image), DBNull.Value, imgToByte3(Me.PictureBox3.Image))

كود :

cm.Parameters.AddWithValue("@Img1U1", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox2.Image), DBNull.Value, imgToByte2(Me.PictureBox2.Image))

        cm.Parameters.AddWithValue("@Img2U1", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox3.Image), DBNull.Value, imgToByte3(Me.PictureBox3.Image))

        cm.Parameters.AddWithValue("@Img3U1", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox4.Image), DBNull.Value, imgToByte4(Me.PictureBox4.Image))

        cm.Parameters.AddWithValue("@Img4U1", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox5.Image), DBNull.Value, imgToByte5(Me.PictureBox5.Image))



        cm.Parameters.AddWithValue("@Img1U2", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox6.Image), DBNull.Value, imgToByte6(Me.PictureBox6.Image))

        cm.Parameters.AddWithValue("@Img2U2", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox7.Image), DBNull.Value, imgToByte7(Me.PictureBox7.Image))

        cm.Parameters.AddWithValue("@Img3U2", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox8.Image), DBNull.Value, imgToByte8(Me.PictureBox8.Image))

        cm.Parameters.AddWithValue("@Img4U2", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox9.Image), DBNull.Value, imgToByte9(Me.PictureBox9.Image))



        cm.Parameters.AddWithValue("@Img1U3", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox10.Image), DBNull.Value, imgToByte10(Me.PictureBox10.Image))

        cm.Parameters.AddWithValue("@Img2U3", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox11.Image), DBNull.Value, imgToByte11(Me.PictureBox11.Image))

        cm.Parameters.AddWithValue("@Img3U3", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox12.Image), DBNull.Value, imgToByte12(Me.PictureBox12.Image))

        cm.Parameters.AddWithValue("@Img4U3", System.Data.SqlDbType.Binary).Value = IIf(IsNothing(Me.PictureBox13.Image), DBNull.Value, imgToByte13(Me.PictureBox13.Image))