منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات
نسخة كاملة : مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3 4 5 6 7 8 9 10

shado1796

15-03-13, 10:45 PM
[COLOR="#0000CD"]
سعود كتب :والله عجزت افهمSmileSmileSmile
الكود فيه شرط وجود صورة ام لا؟
لا ،،
لا مشكلة نشرح الحين Smile
كان في موضوع اول كيف نضيف صورة في قاعدة بيانات ،، وانت ساعدتني واعطيتني مثال ،، يعطيك العافية ما انسالك المعروف
لكن الحين انا عندي صورتين واريد مثلا حفظ وحده بس ولا اريد ازالة كود اضافة الصور الثانية لاني ممكن في المره القادمة اضيف صورتين ،،
المشكلة هنا ... اذا اردت اضافة صورة وحده بس ،، تظهر لي مشكلة وسببها اني يجب ان املأ الصورة الثانية ايضا ،، وانا لا اريد .. ما الحل ؟

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

kslawy

15-03-13, 11:10 PM
مرت علي نفس المشكلة في مرحلة ما وقد أعطاني الأخ الكريم Ramilove الحل وقد وضعته لك هنا ولكن يبدوا أنك لم تلاحظه

سعود

15-03-13, 11:10 PM
انا قلت لك اخي الكريم بس انت مش مقتنع بالجواب يعني نكتب كود يتحقق من هل توجد صورة ؟؟ فان كان نعم نضيفها الى البارامترات وان لم يجد صورة لا يفعل شي لان العمود سيخزن NUll

سعود

15-03-13, 11:12 PM
وعند استقبال البيانات نتحقق من الحقل if isdbnull فان كان فارغ لانفعل شي وان لم يكن فارغ نستدعيه..اخي الكريم هذه طريقتي وتعمل مئة بالمئة بتطبيقات الويب والتطبيقات المكتبية

shado1796

15-03-13, 11:23 PM
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

15-03-13, 11:24 PM
kslawy كتب :مرت علي نفس المشكلة في مرحلة ما وقد أعطاني الأخ الكريم Ramilove الحل وقد وضعته لك هنا ولكن يبدوا أنك لم تلاحظه

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

shado1796

15-03-13, 11:34 PM
سعود كتب :انا قلت لك اخي الكريم بس انت مش مقتنع بالجواب يعني نكتب كود يتحقق من هل توجد صورة ؟؟ فان كان نعم نضيفها الى البارامترات وان لم يجد صورة لا يفعل شي لان العمود سيخزن NUll

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

كود :
[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

15-03-13, 11:34 PM
جرب هذا :
كود :
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

15-03-13, 11:46 PM
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))

سعود

16-03-13, 12:12 AM
الان اتضح المطلوب بشكل اكبر انت تريد ان يتم الارسال ان كانت هناك صورة ام لا ... ان كانت هناك صورة يتم تحويلها ويتم حفظها وان لم تكن هناك صورة يتم ارسال قيمة فارغة.....اليس كذلك؟
الصفحات : 1 2 3 4 5 6 7 8 9 10
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات