tstsst
سه شنبه 18 بهمن 1390, 18:52 عصر
سلام..
در مورد اتصال و خوندن از دیتابیس مشکلی نداره ولی وقتی کلید رو فشار می دم که سه تکسباکس رو ذخیره کنه خطا ضمیمه رو میده!!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim CmdUpdate As New OleDbCommandBuilder(ol_da)
ol_da.Fill(ds, "Skydb")
Dim rowInsert As System.Data.DataRow = ds.Tables("Skydb").NewRow
rowInsert("Address") = TextBox1.Text
rowInsert("IP") = TextBox2.Text
rowInsert("Size") = TextBox3.Text
ds.Tables("Skydb").Rows.Add(rowInsert)
ol_da.Update(ds, "Skydb")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
در مورد اتصال و خوندن از دیتابیس مشکلی نداره ولی وقتی کلید رو فشار می دم که سه تکسباکس رو ذخیره کنه خطا ضمیمه رو میده!!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim CmdUpdate As New OleDbCommandBuilder(ol_da)
ol_da.Fill(ds, "Skydb")
Dim rowInsert As System.Data.DataRow = ds.Tables("Skydb").NewRow
rowInsert("Address") = TextBox1.Text
rowInsert("IP") = TextBox2.Text
rowInsert("Size") = TextBox3.Text
ds.Tables("Skydb").Rows.Add(rowInsert)
ol_da.Update(ds, "Skydb")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub