11-03-13, 10:19 PM
11-03-13, 10:21 PM
ياخي اقدر لك تعاونك وتعاون الاخوان لي ، وانشاء الله مردوده 
،،،، جاااري التجربة
،،،، جاااري التجربة 11-03-13, 10:23 PM
بانتظار النتيجة
11-03-13, 10:27 PM
الله يسكنك فسيح الجنات ،، وربي ازلت ازمة اتعبتني كثير واخذت مني وقت كثير ،،،، تم حلها ،، الله يعطيك العافية
11-03-13, 10:30 PM
آمين ...واياك وكل اخواننا الذين ساعدونا..فلولا الله ثم جهدهم لما استطعت اتمام التعديل على المثال...ايضا فهمت شيء لم اكن افهمه من قبل وهو معرفة القيمة الواقعة بخلية معينة في الاداة.
11-03-13, 11:11 PM
اخواني في شئ بسيط هو ان طريقة نوع كود الاضافة عندي في مشروعي يختلف عن طريقة نوع كود الاضافة في الصور كيف اسوي ؟
هذا كود اضافة البيانات في مشروعي
وهذا كود اضافات الصور ،، يختلف في طريقة الاضافة ..
هذا كود اضافة البيانات في مشروعي
كود :
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]
11-03-13, 11:16 PM
الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.
11-03-13, 11:23 PM
او خذ الطريقة هي الابسط
وهكذا
كود :
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]وهكذا
11-03-13, 11:27 PM
سعود كتب :الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.
نعم الكود الذي وضعته صحيح بالكامل ،، اتمني تعدلي عليه ،، لان كل المشروع بطريقته
11-03-13, 11:30 PM
ماهو اسم عمود الصور بالكود ومانوع بياناته؟؟؟؟