【发布时间】:2015-04-28 13:08:04
【问题描述】:
这是我的代码
Private Sub ButtonEdit_Click(sender As Object, e As EventArgs) Handles ButtonEdit.Click
Dim cb As New OleDb.OleDbCommandBuilder(da)
cb.QuotePrefix = "["
cb.QuoteSuffix = "]"
ds.Tables("ProductDatabase").Rows(inc).Item("BARCODE") = TextBoxBarcode.Text
ds.Tables("ProductDatabase").Rows(inc).Item("PRODUCT NAME") = TextBoxProductName.Text
ds.Tables("ProductDatabase").Rows(inc).Item("PRINCIPAL") = TextBoxPrincipal.Text
ds.Tables("ProductDatabase").Rows(inc).Item("BUYING PRICE") = TextBoxBuying.Text
ds.Tables("ProductDatabase").Rows(inc).Item("SELLING PRICE") = TextBoxSelling.Text
da.Update(ds, "ProductDatabase")
MsgBox("Data successfully edited.")
然后显示此消息:
不支持为 UpdateCommand 生成动态 SQL 一个不返回任何键列信息的 SelectCommand
高亮部分是
da.Update(ds, "ProductDatabase")
【问题讨论】: