[shado1796]

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

صدقني مواصل معك ههههه ولن اذهب

[@@أبورائد@@]

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

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

نعم مجربها وهي ممتازة، وليس لها عبوب لأنها مخصصة للصور.....

بالمناسبة استبدل كود تحويل الصورة لبايت السابق بهذا الكود كم أجل أن يعمل معك الكود الذي كتبته لك قبل قليل

PHP كود :

#Region " imgToByte "
    Public Function imgToByte(ByVal image As Image) As Object
        Dim imgByte As Byte() = Nothing
        Dim imgStream As New IO.MemoryStream()
        On Error Resume Next
        image.Save(imgStream, Imaging.ImageFormat.Png)
        On Error GoTo 0
        Return imgStream.ToArray()
    End Function
#End Region 


السلام عليكم ورحمة الله وبركاته
[/b][/COLOR]

[shado1796]

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









نعم مجربها وهي ممتازة، وليس لها عبوب لأنها مخصصة للصور.....

بالمناسبة استبدل كود تحويل الصورة لبايت السابق بهذا الكود كم أجل أن يعمل معك الكود الذي كتبته لك قبل قليل

PHP كود :

#Region " imgToByte "
    Public Function imgToByte(ByVal image As Image) As Object
        Dim imgByte As Byte() = Nothing
        Dim imgStream As New IO.MemoryStream()
        On Error Resume Next
        image.Save(imgStream, Imaging.ImageFormat.Png)
        On Error GoTo 0
        Return imgStream.ToArray()
    End Function
#End Region 


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

جاري التجربة ،،، بس بغيت اسئلك هل لها حجم خاص يعني اذا كانت الصوره حجمها كبير ،، لا يقبل حل Image ؟

[shado1796]

اخي او رائد غيرت النوع الى Image وفعلت في قاعدة البيانات Allow Null وغيرت الاكواد واضفت هذا الكود الذي اعطيتني اياه - بعد التعديل

كود :

cm.Parameters.AddWithValue("@Img1U1", IIf(IsNothing(Me.PictureBox2.Image), imgToByte2(New Bitmap(1, 1)), imgToByte2(Me.PictureBox2.Image)))
        cm.Parameters.AddWithValue("@Img2U1", IIf(IsNothing(Me.PictureBox3.Image), imgToByte3(New Bitmap(1, 1)), imgToByte3(Me.PictureBox3.Image)))
        cm.Parameters.AddWithValue("@Img3U1", IIf(IsNothing(Me.PictureBox4.Image), imgToByte4(New Bitmap(1, 1)), imgToByte4(Me.PictureBox4.Image)))
        cm.Parameters.AddWithValue("@Img4U1", IIf(IsNothing(Me.PictureBox5.Image), imgToByte5(New Bitmap(1, 1)), imgToByte5(Me.PictureBox5.Image)))

        cm.Parameters.AddWithValue("@Img1U2", IIf(IsNothing(Me.PictureBox6.Image), imgToByte6(New Bitmap(1, 1)), imgToByte6(Me.PictureBox6.Image)))
        cm.Parameters.AddWithValue("@Img2U2", IIf(IsNothing(Me.PictureBox7.Image), imgToByte7(New Bitmap(1, 1)), imgToByte7(Me.PictureBox7.Image)))
        cm.Parameters.AddWithValue("@Img3U2", IIf(IsNothing(Me.PictureBox8.Image), imgToByte8(New Bitmap(1, 1)), imgToByte8(Me.PictureBox8.Image)))
        cm.Parameters.AddWithValue("@Img4U2", IIf(IsNothing(Me.PictureBox9.Image), imgToByte9(New Bitmap(1, 1)), imgToByte9(Me.PictureBox9.Image)))

        cm.Parameters.AddWithValue("@Img1U3", IIf(IsNothing(Me.PictureBox10.Image), imgToByte10(New Bitmap(1, 1)), imgToByte10(Me.PictureBox10.Image)))
        cm.Parameters.AddWithValue("@Img2U3", IIf(IsNothing(Me.PictureBox11.Image), imgToByte11(New Bitmap(1, 1)), imgToByte11(Me.PictureBox11.Image)))
        cm.Parameters.AddWithValue("@Img3U3", IIf(IsNothing(Me.PictureBox12.Image), imgToByte12(New Bitmap(1, 1)), imgToByte12(Me.PictureBox12.Image)))
        cm.Parameters.AddWithValue("@Img4U3", IIf(IsNothing(Me.PictureBox13.Image), imgToByte13(New Bitmap(1, 1)), imgToByte13(Me.PictureBox13.Image)))

ولم يفلح :confused:

[@@أبورائد@@]

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





ما هي المشكلة، وما هي رسالة الخطأ بالتفصيل؟ لأنها تعمل لدي بشكل صحيح.




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

[@@أبورائد@@]

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





ما هي قصة
imgToByte2
imgToByte3
imgToByte4

المعروف أنه imgToByte فقط




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

[shado1796]

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



ما هي المشكلة، وما هي رسالة الخطأ بالتفصيل؟ لأنها تعمل لدي بشكل صحيح.




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

هذه المشكلة التي تظهرلي ،، نفسها :confused:

http://im34.gulfup.com/yHIGB.png

مع العلم اني لم انسى On Error Resume Next

[@@أبورائد@@]

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





وضح لي المشكلة في أي سطر من الكود




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

[@@أبورائد@@]

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





عندك أمر المفروض يكون بواسطة New ولكنك عرفته بدونها




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

[shado1796]

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





عندك أمر المفروض يكون بواسطة New ولكنك عرفته بدونها




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

اووه صح ،، اسف اخ لم انتبه ،،، جار التجربه