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

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

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

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

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

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]

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

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

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

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 ؟

اخي او رائد غيرت النوع الى 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 فقط

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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