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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات (/showthread.php?tid=7982)

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


مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - shado1796 - 16-03-13

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

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


مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - @@أبورائد@@ - 16-03-13


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



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(imgStreamImaging.ImageFormat.Png)
        
On Error GoTo 0
        
Return imgStream.ToArray()
    
End Function
#End Region 





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


مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - shado1796 - 16-03-13

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









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

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

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(imgStreamImaging.ImageFormat.Png)
        
On Error GoTo 0
        
Return imgStream.ToArray()
    
End Function
#End Region 





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


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


مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - shado1796 - 16-03-13

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


ولم يفلح Sad:confused:



مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - @@أبورائد@@ - 16-03-13


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





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




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



مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - @@أبورائد@@ - 16-03-13


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





ما هي قصة
imgToByte2
imgToByte3
imgToByte4

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




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



مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - shado1796 - 16-03-13

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



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




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


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

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

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



مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - @@أبورائد@@ - 16-03-13


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





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




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



مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - @@أبورائد@@ - 16-03-13


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





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




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



مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات - shado1796 - 16-03-13

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





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




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

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