biot
March 28th, 2002, 02:29 AM
hi
why this code fails:
Private Sub SaveData()
Dim SelectSTR As String = "Select * From Customers"
Dim Adapter As New OleDb.OleDbDataAdapter(SelectSTR, ConnSTR)
Dim dsCustomer As New DataSet()
Dim DT As DataTable = dsCustomer.Tables("Customer")
Dim ROW As DataRow
ROW("A_ID") = txtID.Text
DT.Rows.Add(ROW)
Adapter.Update(dsCustomer)
End Sub
why this code fails:
Private Sub SaveData()
Dim SelectSTR As String = "Select * From Customers"
Dim Adapter As New OleDb.OleDbDataAdapter(SelectSTR, ConnSTR)
Dim dsCustomer As New DataSet()
Dim DT As DataTable = dsCustomer.Tables("Customer")
Dim ROW As DataRow
ROW("A_ID") = txtID.Text
DT.Rows.Add(ROW)
Adapter.Update(dsCustomer)
End Sub