刪除按鈕錯誤

Question

當我按下刪除按鈕時，我一直遇到這個問題：出現此錯誤“在傳遞帶有已刪除行的DataRow集合時，更新需要有效的DeleteCommand。”，我正在為程序使用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

Answer 1

您沒有此數據適配器的DeleteCommand對象。 您可以手動創建DeleteCommand或使用CommandBuilder為您生成它們。

在此處查看有關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