f.nabavi
یک شنبه 11 اسفند 1387, 11:01 صبح
سلام دوستان.
من از کد زیر برای ویرایش استفاده میکنم ولی عمل نمیکنه. از exe داخل پوشه دیباگ برنامه رو اجرا کردم. و از ویزارد هم برای ساخت دیتاآداپتر و دیتاست. تکس ها رو هم bind کردم. حالا یکی کمک کنه.
Dim command As String
command = "Update information set"
command = command & " first_name = '" & TextBox7.Text & "',"
command = command & " last_name = '" & TextBox6.Text & "',"
command = command & " tel1 = '" & TextBox7.Text & "',"
command = command & " city_code = '" & TextBox16.Text & "',"
command = command & " email = '" & TextBox20.Text & "',"
command = command & " mobile = '" & TextBox14.Text & "',"
command = command & " address = '" & TextBox19.Text & "'"
command = command & " where ID = " & CInt(TextBox10.Text)
data1.UpdateCommand.CommandText = command
data1.Update(Editinfoset1)
Editinfoset1.AcceptChanges()
MsgBox("editing is done")
من از کد زیر برای ویرایش استفاده میکنم ولی عمل نمیکنه. از exe داخل پوشه دیباگ برنامه رو اجرا کردم. و از ویزارد هم برای ساخت دیتاآداپتر و دیتاست. تکس ها رو هم bind کردم. حالا یکی کمک کنه.
Dim command As String
command = "Update information set"
command = command & " first_name = '" & TextBox7.Text & "',"
command = command & " last_name = '" & TextBox6.Text & "',"
command = command & " tel1 = '" & TextBox7.Text & "',"
command = command & " city_code = '" & TextBox16.Text & "',"
command = command & " email = '" & TextBox20.Text & "',"
command = command & " mobile = '" & TextBox14.Text & "',"
command = command & " address = '" & TextBox19.Text & "'"
command = command & " where ID = " & CInt(TextBox10.Text)
data1.UpdateCommand.CommandText = command
data1.Update(Editinfoset1)
Editinfoset1.AcceptChanges()
MsgBox("editing is done")