Ошибка удаления кнопки

Question

У меня возникла эта проблема, когда я нажимаю кнопку удаления. Я получаю эту ошибку «Обновление требует действительного DeleteCommand при передаче коллекции DataRow с удаленными строками». Я использую визуальные основы 2008 и доступ к Microsoft для моей программы ,

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 отметьте here.

Что-то вдоль линий (непроверенных код воздуха):

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