[shado1796]

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

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

[shado1796]

@@أبورائد@@ كتب :

** تم تعديل الكود **

اخي راجع ردي

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

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

[سعود]

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

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

كود :

if isnothing(picturebox1.image) then

dim byt as new byte
end if

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

[shado1796]

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

كود :

if isnothing(picturebox1.image) then

dim byt as new byte
end if

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

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

[سعود]

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

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

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


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

[سعود]

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

[سعود]

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

[shado1796]

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




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

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]