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

الصفحات : 1 2 3 4 5 6 7 8 9 10

سعود كتب :لحظة لحظة!!!!
وجدت الحل
dim byt as new byte
هذه استخدمها في حال لم توجد صورة جربتها ورائعة

هل تقصد هذا المتغير يحفضها بما ،،، هل تشرح لي كيف ؟

@@أبورائد@@ كتب :
** تم تعديل الكود **

اخي راجع ردي

إقتباس :الان ما هو الافضل بعضكم ينصحني بنوع Binary وانت تنصحي بنوع image
اريد الخبره منكم وحل المشكلة انا دخت :eek:

اكتبلي ماهو اسمها في اضافة في SQL انا كتبت سابقا واستخدم سابقا varbinary(max)

shado1796 كتب :هل تقصد هذا المتغير يحفضها بما ،،، هل تشرح لي كيف ؟

هذا تكتبه بدل كود تحويل الصورة الى بيناري.

كود :

if isnothing(picturebox1.image) then

dim byt as new byte

end if

لان المشكلة من قراءة صورة مربع الصورة لتحويلها لى بيناري في حال لاتوجد صورة وهذا حل لها

سعود كتب :هذا تكتبه بدل كود تحويل الصورة الى بيناري.

كود :

if isnothing(picturebox1.image) then dim byt as new byte end if

لان المشكلة من قراءة صورة مربع الصورة لتحويلها لى بيناري في حال لاتوجد صورة وهذا حل لها

جاري التجربة ،،

shado1796 كتب :جاري التجربة ،،

وجاري الانتظار ... لو تحب ارفع المثال.

سعود كتب :وجاري الانتظار ... لو تحب ارفع المثال.

غريبه لم تضبط معي ،،، وضعتها هكذا

كود :

If IsNothing(PictureBox2.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox3.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox4.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox5.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox6.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox7.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox8.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox9.Image) Then

            Dim byt As New Byte

        End If

    If IsNothing(PictureBox10.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox11.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox12.Image) Then

            Dim byt As New Byte

        End If

        If IsNothing(PictureBox13.Image) Then

            Dim byt As New Byte

        End If

وجربت ايضا غيرت كل متغير لكل صوره ولم يضبط

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

ملاحظـــــــــــــــــــــة: انا جربت الكود وما فيه مشكلة.............

PHP كود :

comm.Parameters.AddWithValue("@Photo", IIf(IsNothing(Me.pctPhoto.Image), imgToByte(New Bitmap(1, 1)), imgToByte(Me.Photo.Image))) 

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

طبعا لازم تفرغ البارامتر قبل كل بارامتر مستقل؟
يعني شغله ودها مثال افضل Smile

اعمل على تجهيز مثال انتظرني ولاتذهب Smile

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته

ملاحظـــــــــــــــــــــة: انا جربت الكود وما فيه مشكلة.............

PHP كود :

comm.Parameters.AddWithValue("@Photo", IIf(IsNothing(Me.pctPhoto.Image), imgToByte(New Bitmap(1, 1)), imgToByte(Me.Photo.Image)))

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

[COLOR="#FF0000"]
اخي مشكلتي ليست مع الكود انما انت قلت لي عن تغيير نوع حقل الصورة ،، سئلتك ما هو الافضل نوع varbinary(max) ام Image لان بعضهم نصحني varbinary(max) وانت تنصحني ب Image هل جربتها وهل هي الافضل ؟ وهل لها عيوب ؟
الف شكر لك ..
[/COLOR]

الصفحات : 1 2 3 4 5 6 7 8 9 10