删除按钮错误
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
我一直遇到这个问题,当我按下删除按钮时出现此错误 "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