[shado1796]

[COLOR="#0000CD"]

سعود كتب :والله عجزت افهم
الكود فيه شرط وجود صورة ام لا؟

لا ،،
لا مشكلة نشرح الحين
كان في موضوع اول كيف نضيف صورة في قاعدة بيانات ،، وانت ساعدتني واعطيتني مثال ،، يعطيك العافية ما انسالك المعروف
لكن الحين انا عندي صورتين واريد مثلا حفظ وحده بس ولا اريد ازالة كود اضافة الصور الثانية لاني ممكن في المره القادمة اضيف صورتين ،،
المشكلة هنا ... اذا اردت اضافة صورة وحده بس ،، تظهر لي مشكلة وسببها اني يجب ان املأ الصورة الثانية ايضا ،، وانا لا اريد .. ما الحل ؟

اذا لم تفهم قول لي [/COLOR]

[kslawy]

مرت علي نفس المشكلة في مرحلة ما وقد أعطاني الأخ الكريم Ramilove الحل وقد وضعته لك هنا ولكن يبدوا أنك لم تلاحظه

[سعود]

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

[سعود]

وعند استقبال البيانات نتحقق من الحقل if isdbnull فان كان فارغ لانفعل شي وان لم يكن فارغ نستدعيه..اخي الكريم هذه طريقتي وتعمل مئة بالمئة بتطبيقات الويب والتطبيقات المكتبية

[shado1796]

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

جرب هذا مع العلم أن عدلته في مفكرة وليس علي الفيجوال :

كود :

cm.Parameters.AddWithValue("@Img1U1", IIF(IsNothing(Me.PictureBox2.Image,DBNull.Value,imgToByte2(Me.PictureBox2.Image)))
cm.Parameters.AddWithValue("@Img2U1", IIF(IsNothing(Me.PictureBox3.Image,DBNull.Value,imgToByte3(Me.PictureBox3.Image)))

***
**
*

اشكرك اخي ،،لكن الكود يظهر فيه خطأ في الاقواس الاخيرة ،، وايضا ما هو كود استقبال البيانات

[shado1796]

kslawy كتب :مرت علي نفس المشكلة في مرحلة ما وقد أعطاني الأخ الكريم Ramilove الحل وقد وضعته لك هنا ولكن يبدوا أنك لم تلاحظه

اسف لم الاحظه ،، اعذرني
الكود ظهر لي خطأ في الاقواس الاخيرة .. وايضا ما هو كود استقبال البياانات

[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]

[kslawy]

جرب هذا :

كود :

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))

[shado1796]

kslawy كتب :جرب هذا :

كود :

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))

[سعود]

الان اتضح المطلوب بشكل اكبر انت تريد ان يتم الارسال ان كانت هناك صورة ام لا ... ان كانت هناك صورة يتم تحويلها ويتم حفظها وان لم تكن هناك صورة يتم ارسال قيمة فارغة.....اليس كذلك؟