[shado1796]

سعود كتب :انا قلت لك اخي الكريم بس انت مش مقتنع بالجواب يعني نكتب كود يتحقق من هل توجد صورة ؟؟ فان كان نعم نضيفها الى البارامترات وان لم يجد صورة لا يفعل شي لان العمود سيخزن NUll

اخي انا مقتنع وما عاش الي ما يقتنع لكلامك
صدقني لو الكود هو ما اقصده ما كان ضيعت لحظه وكتبته وخلصت ،، بس صدقني جربته وما ضبط ،، شف هذا هو كامل بعد ما عدلته ولا ضبط

كود :

[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

اخي هذا الكود يعطي امر اذا كانت الصورة غير موجودة ،، ضعها ،، لكنه لا يضعها Null بل يظهر نفس المشكلة ،،ياليت تشوفلي الحل
جزاك الله الف خير،[/SIZE][/b][/align]