Wie von Datagridview und Access DB in .NET

Question

ich von Datagridview ausgewählter Zeile zu löschen versuchen ausgewählte Zeile löschen und Änderungen dauerhaft in meinem Zugang zu begehen hier ist DB mein Code:

 cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Accountcode.accdb;" 
    cn.Open() 

    Try 
     For Each row As DataGridViewRow In DataGridView1.SelectedRows 
      Using cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Accountcode.accdb;") 
       Using cm As New OleDb.OleDbCommand 
        cm.Connection = cn 
        cm.CommandText = "DELETE * FROM CheckDJ WHERE [ID]= @id" 
        cm.CommandType = CommandType.Text 
        cm.Parameters.AddWithValue("@ID", CType(row.DataBoundItem, DataRowView).Row("ID")) 
        cm.ExecuteNonQuery() 
       End Using 
      End Using 
     Next 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 

    Try 
     Using cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Accountcode.accdb;") 
      Using cm As New OleDb.OleDbCommand 
       strsql = "SELECT * FROM CheckDJ" 
       cm.Connection = cn 
       cm.CommandText = strsql 
       cm.CommandType = CommandType.Text 

       Dim da As New OleDbDataAdapter(strsql, cn) 
       Dim ds As New DataSet() 
       da.Fill(ds, "CheckDJ") 
       DataGridView1.DataSource = ds.Tables(0) 
      End Using 
     End Using 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 

Aber ich habe ein Fehler.
Index war außerhalb des Bereichs. Muss nicht negativ und kleiner als die Größe der Sammlung sein. Parametername: Index Jede Hilfe wird sehr geschätzt. Vielen Dank im Voraus!

Answer 1

Sie gehen das alles falsch. Verwenden Sie zuerst einen Datenadapter, um eine DataTable aufzufüllen und diese an das Grid zu binden. Sie erhalten dann die gebundene DataRowView von jeder ausgewählten Zeile im Raster, rufen Sie seine Delete Methode, um es als Deleted (die es aus dem Raster entfernt wird) zu markieren und dann den gleichen Datenadapter verwenden, um die Änderungen zurück in die Datenbank zu speichern. Z.B.

myDataAdapter.Fill(myDataTable) 
myDataGridView.DataSource = myDataTable 

'... 

Dim rowsToDelete As New List(Of DataRowView) 

For Each gridRow As DataGridViewRow In myDataGridView.SelectedRows 
    rowsToDelete.Add(DirectCast(gridRow.DataBoundItem, DataRowView)) 
Next 

For Each row In rowsToDelete 
    row.Delete() 
Next 

myDataAdapter.Update(myDataTable) 

Answer 2

Try 
     For Each row As DataGridViewRow In DatagridView1.SelectedRows 
      Using cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Accountcode.accdb;") 
       Using cm As New OleDb.OleDbCommand 
        cm.Connection = cn 
        cm.CommandText = "DELETE * FROM CheckDJ WHERE [ID]= @id" 
        cm.CommandType = CommandType.Text 
       cm.Parameters.AddWithValue("@id", ctype(row.DataBoundItem,DataRowView).Row("id")) 
        cm.ExecuteNonQuery() 
       End Using 
      End Using 
     Next 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 

    Try 
     Using cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Accountcode.accdb;") 
      Using cm As New OleDb.OleDbCommand 
        strsql = "SELECT * FROM CheckDJ" 
        cm.Connection = cn 
        cm.CommandText = strsql 
        cm.CommandType = CommandType.Text 

     Dim da As New OleDbDataAdapter(strsql, cn) 
     Dim ds As New DataSet() 
     da.Fill(ds, "CheckDJ") 
     DataGridView1.DataSource = ds.Tables(0) 
      End Using 
     End Using 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try