المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
ياخي اقدر لك تعاونك وتعاون الاخوان لي ، وانشاء الله مردوده ،،،، جاااري التجربة
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
بانتظار النتيجة
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
الله يسكنك فسيح الجنات ،، وربي ازلت ازمة اتعبتني كثير واخذت مني وقت كثير ،،،، تم حلها ،، الله يعطيك العافية
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
آمين ...واياك وكل اخواننا الذين ساعدونا..فلولا الله ثم جهدهم لما استطعت اتمام التعديل على المثال...ايضا فهمت شيء لم اكن افهمه من قبل وهو معرفة القيمة الواقعة بخلية معينة في الاداة.
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
11-03-13, 11:11 PM
(آخر تعديل لهذه المشاركة : 11-03-13, 11:14 PM {2} بواسطة ahmed mohamed soliman.)
اخواني في شئ بسيط هو ان طريقة نوع كود الاضافة عندي في مشروعي يختلف عن طريقة نوع كود الاضافة في الصور كيف اسوي ؟
هذا كود اضافة البيانات في مشروعي
كود :
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]
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
او خذ الطريقة هي الابسط
كود :
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]
وهكذا
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
سعود كتب :الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.
نعم الكود الذي وضعته صحيح بالكامل ،، اتمني تعدلي عليه ،، لان كل المشروع بطريقته
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
ماهو اسم عمود الصور بالكود ومانوع بياناته؟؟؟؟
|