کد Insert

[aminvb]

سلام

دوستان کد Insert در دستور زیر



If Len(TextBox6.Text) > 0 Then
''Insert To DataBase(Img_name)START
Dim fs As New FileStream(TextBox6.Text, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()

SqlDataAdapter1.InsertCommand.Parameters(11).Value = MyData

''Insert To DataBase(Image)END

Else

Dim fs As New FileStream(Application.StartupPath + "\defa.bmp", FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()

SqlDataAdapter1.InsertCommand.Parameters(11).Value = MyData

End If


چطوری میتونیم دستور Insert بالا رو مانند دستور Insert پایین بنویسیم ؟




con.Open()
strsql = "INSERT INTO TempFactor (id,name) VALUES (' " & U & " ','" & T2.Text & "','" & textbox2.text & " ')"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()

[Beyondsoft]

سلام دوست عزیز
مشکل خاصی نیست. در نمونه اول data را می سازد که در نمونه دوم به راحتی می توانید به جای هرکدام از value ها
از مقدار آن استفاده کرده و insert کنید !

مگن سئوال شما چیز دیگری باشد که من متوجه آن نشدم !



در ضمن

نمي دونم ...............

دوست عزیز من ! با الکی اضافه شدن پست ها و در نتیجه زیاد شدن ستاره های روی شونتون کسی به شما مدال نمی دهد.
این ستاره تنها نمادی از فعالیت بچه های این سایت است و افرادی که در این سایت جواب می دهند نه به دنبال ستاره که بلکه به دنبال ذکات علم و کمکی به دوستان و هم وطنان خویشند !

[Beyondsoft]

If Len(TextBox6.Text) > 0 Then
Dim fs As New FileStream(TextBox6.Text, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()

con.Open()
strsql = "INSERT INTO TempFactor (id,name) VALUES (' " & U & " ','" & T2.Text & "','" & MyData & " ')"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()


Else

Dim fs As New FileStream(Application.StartupPath + "\defa.bmp", FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()

con.Open()
strsql = "INSERT INTO TempFactor (id,name) VALUES (' " & U & " ','" & T2.Text & "','" & MyData & " ')"
com = New SqlCommand(strsql, con)
com.ExecuteNonQuery()
con.Close()

End If

[Beyondsoft]

این کد شما خطا داره

خوب عزیزم ببین ایرادش چیه ! من کد شما رو تو همی جوری نوشتم که ببینید ساختارش چیه ! نه اینکه همین طوری copy paste کنی !