删除按钮错误

Delete button error

我一直遇到这个问题,当我按下删除按钮时出现此错误 "Update requires a valid DeleteCommand when passed DataRow collection with deleted rows.",我正在为我的程序使用 visual basics 2008 和 Microsoft access。

Dim CurrentRowNo As Integer = 0
Dim objDataSet As New DataSet
Dim objDataAdapter As New OleDbDataAdapter("SELECT * FROM Stock", cn)

    If objDataTable.Rows.Count > 0 Then
        objDataTable.Rows(CurrentRowNo).Delete()
        objDataAdapter.Update(objDataTable)
    End If

您没有此数据适配器的 DeleteCommand 对象。您可以手动创建 DeleteCommand 或使用 CommandBuilder 为您生成它们。

查看 here 了解有关 CommandBuilder 对象的更多信息。

类似于(未经测试的航空代码):

Dim CurrentRowNo As Integer = 0
Dim objDataSet As New DataSet
Dim objDataAdapter As New OleDbDataAdapter("SELECT * FROM Stock", cn)

Dim builder as SqlCommandBuilder = New SqlCommandBuilder(objDataAdapter)
builder.QuotePrefix = "["
builder.QuoteSuffix = "]"

If objDataTable.Rows.Count > 0 Then
    objDataTable.Rows(CurrentRowNo).Delete()
    objDataAdapter.Update(objDataTable)
End If