我在我的代码行中不断出现这个错误,我似乎无法修复它。
这是我的代码:
con.Open()
Dim dt As DataTable
Dim ds As DataSet
ds.Tables.Add(dt)
Dim da As OleDbDataAdapter
da = New OleDbDataAdapter("Select From * product info", con)
da.Fill(dt)
Dim newRow As DataRow = dt.NewRow
With newRow
.Item("Product Name:") = txtItemName.Text
.Item("Description") = txtDescription.Text
.Item("Quantity:") = txtItemCount.Text
.Item("Type:") = cmbItemType.Text
.Item("Date Received:") = txtDate.Text
.Item("Barcode:") = txtBarcode.Text
.Item("Price:") = txtPrice.Text
End With
dt.Rows.Add(newRow)
Dim cb As OleDbCommandBuilder(da)
da.Update(dt)
con.Close()
在这一Dim cb As OleDbCommandBuilder(da)
行中,我得到了错误da