当我按下提交按钮时,下划线显示da.update(ds, "Namtari")
,并在INSERT
IN语句中显示语法错误。
If inc <> -1 Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow
dsNewRow = ds.Tables("Namtari").NewRow()
dsNewRow.Item("First_Name") = FirstName.Text
dsNewRow.Item("Second_name") = Surname.Text
ds.Tables("Namtari").Rows.Add(dsNewRow)
**da.Update(ds, "Namtari")**
MessageBox.Show("New Record added to the Database")
btnCommit.Enabled = False
btnAddNew.Enabled = True
btnUpdate.Enabled = True>
btnDelete.Enabled = True
End If