[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]