[سعود]

المثال
http://vb4arb.com/vb/uploaded/34_01363025907.zip

[shado1796]

ياخي اقدر لك تعاونك وتعاون الاخوان لي ، وانشاء الله مردوده ،،،، جاااري التجربة

[سعود]

بانتظار النتيجة

[shado1796]

الله يسكنك فسيح الجنات ،، وربي ازلت ازمة اتعبتني كثير واخذت مني وقت كثير ،،،، تم حلها ،، الله يعطيك العافية

[سعود]

آمين ...واياك وكل اخواننا الذين ساعدونا..فلولا الله ثم جهدهم لما استطعت اتمام التعديل على المثال...ايضا فهمت شيء لم اكن افهمه من قبل وهو معرفة القيمة الواقعة بخلية معينة في الاداة.

[shado1796]

اخواني في شئ بسيط هو ان طريقة نوع كود الاضافة عندي في مشروعي يختلف عن طريقة نوع كود الاضافة في الصور كيف اسوي ؟

هذا كود اضافة البيانات في مشروعي

كود :

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]

[سعود]

الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.

[سعود]

او خذ الطريقة هي الابسط

كود :

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]

وهكذا

[shado1796]

سعود كتب :الطريقة اللي عندك متعبة بصراحة ولو يحدث خطا تدوخ ونت ماحصلت اسم العمود.. انصحك تستخدم البارمترات لان كل عمود بسطر بالكود ومرتب ...لكن هل انت متاكد من الكود او استعلام الاضافة انه صحيح؟ ساقوم بالتعديل لكن احتاج معرفة انواع البيانات لكل الموجودة بجملة الاضافة.

نعم الكود الذي وضعته صحيح بالكامل ،، اتمني تعدلي عليه ،، لان كل المشروع بطريقته

[سعود]

ماهو اسم عمود الصور بالكود ومانوع بياناته؟؟؟؟