+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة (/showthread.php?tid=7899)
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - سعود - 11-03-13
المثال
http://vb4arb.com/vb/uploaded/34_01363025907.zip
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - shado1796 - 11-03-13
ياخي اقدر لك تعاونك وتعاون الاخوان لي ، وانشاء الله مردوده
،،،، جاااري التجربة
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - سعود - 11-03-13
بانتظار النتيجة
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - shado1796 - 11-03-13
الله يسكنك فسيح الجنات ،، وربي ازلت ازمة اتعبتني كثير واخذت مني وقت كثير ،،،، تم حلها ،، الله يعطيك العافية
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - سعود - 11-03-13
آمين ...واياك وكل اخواننا الذين ساعدونا..فلولا الله ثم جهدهم لما استطعت اتمام التعديل على المثال...ايضا فهمت شيء لم اكن افهمه من قبل وهو معرفة القيمة الواقعة بخلية معينة في الاداة.
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - shado1796 - 11-03-13
اخواني في شئ بسيط هو ان طريقة نوع كود الاضافة عندي في مشروعي يختلف عن طريقة نوع كود الاضافة في الصور كيف اسوي ؟
هذا كود اضافة البيانات في مشروعي
وهذا كود اضافات الصور ،، يختلف في طريقة الاضافة ..
هذا كود اضافة البيانات في مشروعي
كود :
Conn.Open()
Dim Cmd As New SqlCommand("insert into Table1 (UserName,MobileNumber,Date,Price,Rest,Recipient,NameShop,PlaceShop,UserShop,Email,NumberDresses,ColorDress1,TypeCloth1,TypeDesign1,TypePocket1,IDCloth1,LengthM1,LengthY1,ColorDress2,TypeCloth2,TypeDesign2,TypePocket2,IDCloth2,LengthM2,LengthY2,ColorDress3,TypeCloth3,TypeDesign3,TypePocket3,IDCloth3,LengthM3,LengthY3,LengthDress,DisplayKtf,DisplayDress,LengthKmSadh,LengthKmKbk,DisplayKmSadh1,DisplayKmSadh2,DisplayKmSadh3,DisplayKmKbk1,DisplayKmKbk2,DisplayKmKbk3,RakbhKllab1,RakbhKllab2,RakbhSadh1,RakbhSadh2,DownDress1,DownDress2,LengthKbzor,Other) values ( '" & Trim(TextBox1.Text) & "' , " & Val(TextBox2.Text) & " , '" & CDate(TextBox7.Text) & "' , '" & Trim(TextBox45.Text) & "' , '" & Trim(TextBox46.Text) & "' , '" & Trim(TextBox47.Text) & "' , '" & Trim(TextBox4.Text) & "' , '" & Trim(TextBox5.Text) & "' , '" & Trim(TextBox6.Text) & "' , '" & Trim(TextBox3.Text) & "' , '" & Trim(TextBox71.Text) & "' , '" & Trim(TextBox8.Text) & "' , '" & Trim(TextBox9.Text) & "' , '" & Trim(TextBox10.Text) & "' , '" & Trim(TextBox11.Text) & "' , " & Val(TextBox20.Text) & " , '" & Trim(TextBox21.Text) & "' , '" & Trim(TextBox87.Text) & "' , '" & Trim(TextBox15.Text) & "' , '" & Trim(TextBox14.Text) & "' , '" & Trim(TextBox13.Text) & "' , '" & Trim(TextBox12.Text) & "' , " & Val(TextBox22.Text) & " , '" & Trim(TextBox23.Text) & "' , '" & Trim(TextBox88.Text) & "' , '" & Trim(TextBox19.Text) & "' , '" & Trim(TextBox18.Text) & "' , '" & Trim(TextBox17.Text) & "' , '" & Trim(TextBox16.Text) & "' , " & Val(TextBox24.Text) & " , '" & Trim(TextBox25.Text) & "' , '" & Trim(TextBox89.Text) & "' , '" & Trim(TextBox26.Text) & "' , '" & Trim(TextBox27.Text) & "' , '" & Trim(TextBox28.Text) & "' , '" & Trim(TextBox29.Text) & "' , '" & Trim(TextBox30.Text) & "' , '" & Trim(TextBox31.Text) & "' , '" & Trim(TextBox32.Text) & "' , '" & Trim(TextBox33.Text) & "' , '" & Trim(TextBox34.Text) & "' , '" & Trim(TextBox35.Text) & "' , '" & Trim(TextBox36.Text) & "' , '" & Trim(TextBox37.Text) & "' , '" & Trim(TextBox39.Text) & "' , '" & Trim(TextBox40.Text) & "' , '" & Trim(TextBox41.Text) & "' , '" & Trim(TextBox42.Text) & "' , '" & Trim(TextBox43.Text) & "' , '" & Trim(TextBox44.Text) & "' , '" & Trim(TextBox38.Text) & "' )", Conn)
Cmd.ExecuteNonQuery()
RefreshListView()وهذا كود اضافات الصور ،، يختلف في طريقة الاضافة ..
كود :
Dim picStream As New MemoryStream
PictureBox1.Image.Save(picStream, ImageFormat.Gif)
Dim PicByte As Byte() = picStream.ToArray
Dim cm As New SqlCommand("insert into Table1 ([color=#FF0000]UserName,[/color]Img) values ([color=#FF0000]@[/color]UserName,@Img)", Conn)
cm.Parameters.AddWithValue("@UserName", SqlDbType.NVarChar).Value = picname.Text
cm.Parameters.AddWithValue("@Img", SqlDbType.VarBinary).Value = PicByte
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
Call Form1_Load(Me, e)
MsgBox("تم حفظ الصورة")[COLOR="#FF0000"]ماهو الحل لكي اضيف الصور بطريقة مشروعي ؟[/COLOR]
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - سعود - 11-03-13
الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - سعود - 11-03-13
او خذ الطريقة هي الابسط
كود :
Dim picStream As New MemoryStream
PictureBox1.Image.Save(picStream, ImageFormat.Jpeg)
Dim PicByte As Byte() = picStream.ToArray
dim cm as new sqlcommand("insert into Table1 (col1,img) values (@col1,@img)",con)
cm.Parameters.AddWithValue("@col1", SqlDbType.[SIZE=5][b][color=#FF0000]VarChar[/color][/b][/SIZE]).Value = TextBox1.Text
cm.Parameters.AddWithValue("@img", SqlDbType.[SIZE=5][color=#ff0000][b]VarBinary[/b][/color][/SIZE]).Value = [color=#ff0000][SIZE=5][b]PicByte[/b][/SIZE][/color]وهكذا
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - shado1796 - 11-03-13
سعود كتب :الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.
نعم الكود الذي وضعته صحيح بالكامل ،، اتمني تعدلي عليه ،، لان كل المشروع بطريقته
اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة - سعود - 11-03-13
ماهو اسم عمود الصور بالكود ومانوع بياناته؟؟؟؟