Mehrere markierte Zeilen aus DataGridview löschen und an AccessDB zurück geben

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von stevez.

    Mehrere markierte Zeilen aus DataGridview löschen und an AccessDB zurück geben

    Hallo,

    nachdem mir schon gut geholfen wurde, suche ich jetzt eine Lösung, wie ich die gelöschten Zeilen im DataGridview an die AccessDB zurück geben kann. Wie mache ich das?

    Dies ist momentan mein Code:

    VB.NET-Quellcode

    1. Imports System.Data, System.Data.Common
    3. Public Class frmMain
    4. Dim Ada As OleDb.OleDbDataAdapter
    5. Dim Kda As OleDb.OleDbDataAdapter
    6. Dim Pda As OleDb.OleDbDataAdapter
    7. Dim dt As DataTable
    8. Dim ds As DataSet
    9. Dim view As DataView = New DataView
    10. Dim Tabelle As String
    12. Public Sub Main()
    13. Dim ConnectionString As String = GetConnectionString()
    14. ConnectToData(ConnectionString)
    15. End Sub
    17. Private Shared Function GetConnectionString() As String
    18. Dim lokPfad As String
    20. 'Lokaler Dateipfad des Programms ermitteln
    21. lokPfad = IO.Path.GetDirectoryName(System.Windows.Forms.Application.ExecutablePath)
    23. 'Lokale Access 2003 Datei "Daten.mdb" ansprechen
    24. Return "Provider=Microsoft.Jet.OLEDB.4.0;" &
    25. "Data Source=" & lokPfad & "\Daten.mdb;"
    26. End Function
    28. Private Sub ConnectToData(ByVal ConnectionString As String)
    29. 'MSSQL Verbindung mit der Datenbank herstellen
    30. Using Con As OleDb.OleDbConnection = New OleDb.OleDbConnection(ConnectionString)
    31. 'Verbindung öffnen und ggf. abfangen
    32. Try
    33. 'Verbindung öffnen
    34. Con.Open()
    36. Dim AstrSQL As String = "SELECT * FROM tblArtikel"
    37. Dim KstrSQL As String = "SELECT * FROM tblKunden"
    38. Dim PstrSQL As String = "SELECT * FROM tblPreise"
    39. Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
    42. '3 DataAdapter nehmen 3 Tabellen auf
    43. Ada = New OleDb.OleDbDataAdapter(AstrSQL, Con)
    44. Kda = New OleDb.OleDbDataAdapter(KstrSQL, Con)
    45. Pda = New OleDb.OleDbDataAdapter(PstrSQL, Con)
    47. 'DataSet initialisieren
    48. ds = New DataSet
    49. 'da.SelectCommand = cmd
    51. 'DataAdapter füllt das DataSet
    52. Ada.Fill(ds, "Artikel")
    53. Kda.Fill(ds, "Kunden")
    54. Pda.Fill(ds, "Preise")
    56. 'DataView initialisieren
    57. view = ds.Tables(Tabelle).DefaultView
    59. 'Bindingsource initialisieren
    60. Dim bs As BindingSource = New BindingSource()
    62. bs.DataSource = view
    64. DataGridView1.DataSource = bs
    66. 'Filter und Sortierung setzen
    67. view.Sort = "ID DESC"
    68. 'Verbindung schließen
    69. Con.Close()
    70. Catch ex As Exception
    71. MessageBox.Show("Kann keine Verbindung zur DB herstellen. Ist die Datei vorhanden?")
    72. End Try
    73. End Using
    74. End Sub
    76. Private Sub btnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    77. Handles btnSuche.Click
    78. Filter()
    79. End Sub
    81. 'Wenn im Formular entfernen gedrückt wird
    82. Private Sub frmMain_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    83. If e.KeyCode = Keys.Delete Then
    84. Delete()
    85. End If
    86. End Sub
    88. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    89. Handles MyBase.Load
    90. 'Beim Laden DataGridview und Buttonleiste ausblenden
    91. FillByToolStrip.Visible = False
    92. DataGridView1.Visible = False
    93. End Sub
    95. Private Sub ArtikelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArtikelToolStripMenuItem.Click
    96. Tabelle = "Artikel"
    97. 'DatagridView füllen
    98. Main()
    99. FillByToolStrip.Visible = True
    100. DataGridView1.Visible = True
    101. End Sub
    103. Private Sub KundenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KundenToolStripMenuItem.Click
    104. Tabelle = "Kunden"
    105. 'DatagridView füllen
    106. Main()
    107. FillByToolStrip.Visible = True
    108. DataGridView1.Visible = True
    109. End Sub
    111. Private Sub PreiseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreiseToolStripMenuItem.Click
    112. Tabelle = "Preise"
    113. 'DatagridView füllen
    114. Main()
    115. FillByToolStrip.Visible = True
    116. DataGridView1.Visible = True
    117. End Sub
    119. Private Sub fldSuche_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fldSuche.KeyUp
    120. 'Wenn im Textfeld Suche "Enter" gedrückt wird
    121. If e.KeyCode = Keys.Return Then
    122. Filter()
    123. End If
    124. End Sub
    126. Private Sub Filter()
    127. 'Wenn kein Text in fldSuche steht, dann keine Variable an Prozedur übergeben
    128. If fldSuche.Text = "" Then
    129. view.RowFilter = ""
    130. Else
    131. 'Filter übergeben
    132. Dim Var() As String = Split(fldSuche.Text)
    133. Dim strFilter As String = ""
    135. For i = 0 To UBound(Var)
    136. If i > 0 Then strFilter = strFilter & " OR "
    137. Select Case Tabelle
    138. Case "Artikel"
    139. If IsNumeric(Var(i)) Then
    140. strFilter = strFilter & "ArtNr = " & Var(i)
    141. Else
    142. strFilter = strFilter & "ArtName LIKE '*" & Var(i) & "*'"
    143. End If
    144. Case "Kunden"
    145. If IsNumeric(Var(i)) Then
    146. strFilter = strFilter & "KndNr = " & Var(i)
    147. Else
    148. strFilter = strFilter & "KndName LIKE '*" & Var(i) & "*'"
    149. End If
    150. Case "Preise"
    151. If IsNumeric(Var(i)) Then
    152. strFilter = strFilter & "KndNr = " & Var(i) & " OR ArtNr = " & Var(i)
    153. Else
    154. strFilter = strFilter & "KndName LIKE '*" & Var(i) & "*' OR ArtName LIKE '*" & Var(i) & "*'"
    155. End If
    156. End Select
    158. Next
    159. view.RowFilter = strFilter
    161. End If
    162. End Sub
    164. 'Prozedur um alle markierten Zeilen zu löschen
    165. Private Sub Delete()
    166. If MessageBox.Show("Wollen Sie die Datensätze wirklich löschen?", "Löschen", MessageBoxButtons.YesNo) = DialogResult.Yes Then
    167. For Each dgvr As DataGridViewRow In Me.DataGridView1.SelectedRows
    168. Me.DataGridView1.Rows.Remove(dgvr)
    169. Next
    170. Select Case Tabelle
    171. Case "Artikel"
    172. Me.Ada.Update(Me.ds.Tables(Tabelle))
    173. Case "Kunden"
    174. Me.Kda.Update(Me.ds.Tables(Tabelle))
    175. Case "Preise"
    176. Me.Pda.Update(Me.ds.Tables(Tabelle))
    177. End Select
    178. End If
    179. End Sub
    181. 'Button "btnDelete"
    182. Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
    183. Delete()
    184. End Sub
    185. End Class


    Wenn die Prozedur "Delete" aufgerufen wird, funktioniert das Löschen der markierten Zeilen im DataGridview. Das Übergeben an die AccessDB mit Update funktioniert aber nicht:Für ein Update ist ein gültiger DeleteCommand erforderlich, wenn eine DataRow-Auflistung mit gelöschten Zeilen weitergegeben wird.

    Was muss ich an meinem Code ändern?

    Du arbeitest ohne Designer was heißt, dass du sämtlichen Code selber machen mußt.

    Du mußt also erst mal definieren, was er im Falle von UPDATE, INSERT, DELETE überhaupt machen soll.
    Wenn du diese Befehle als SQL Command schreiben willst, müßtest du sowas wie

    VB.NET-Quellcode

    1. DELETE FROM Datenbanktabelle WHERE SCHLÜSSELSPALTE = z.B.=Textbox1.text
    schreiben.

    Wenn du das alles über DataTable machst, mußt du nur zum Programmstart alle Befehle definieren lassen.
    Beim Delete Befehl sieht das z.B. bei mir so aus

    VB.NET-Quellcode

    1. ' DELETE Befehl definieren
    2. '
    3. Befehl_Delete.CommandText = "DELETE FROM " & Tabelle.ToString & " WHERE " & DB_Felder(0) & " = " & "@" & DB_Felder(0)
    4. Befehl_Delete.Connection = Conn
    5. Prm = Befehl_Delete.Parameters.Add("@" & DB_Felder(0), OleDbType.VarChar)
    6. Prm.SourceColumn = DB_Felder(0)
    7. Prm.SourceVersion = DataRowVersion.Original
    8. DataAdap.DeleteCommand = Befehl_Delete


    Der Aufruf heißt nachher einfach

    VB.NET-Quellcode

    1. BS_Mitglieder.EndEdit() ' die Binding Source ist an die DataTable gebunden. Mit .EndEdit gebe ich diese Änderungen frei, Abfrage z.B. über DataTable.getchanges
    2. DA_Mitglieder.Update(DT_Mitglieder) ' alle Änderungen die z.B. über DataTable.getchanges sichtbar sind, werden an die Datenbank geschreiben, egal ob UPDATE, INSERT, DELETE


    z.B. könntest du dir ein DataGridView anzeigen lassen, welches die Änderungen anzeigt : DGV.DataSource = DataTable.GetChanges

    Hallo,

    aufgrund dessen, dass ich die selektierten Zeilen löschen will, habe ich OleDbCommand lediglich global definiert:

    VB.NET-Quellcode

    1. Dim cmddel As OleDb.OleDbCommand


    Und mit Start des Formulars initialisiert:

    VB.NET-Quellcode

    1. cmddel = New OleDb.OleDbCommand


    Der CommandText erfolgt dann erst in einer Löschprozedur:

    VB.NET-Quellcode

    1. 'Prozedur um alle markierten Zeilen zu löschen
    2. Private Sub Delete()
    3. If MessageBox.Show("Wollen Sie die Datensätze wirklich löschen?", "Löschen", MessageBoxButtons.YesNo) = DialogResult.Yes Then
    4. Dim strID As String = ""
    5. Dim i As Integer = 0
    6. Con.Open()
    7. For Each dgvr As DataGridViewRow In Me.DataGridView1.SelectedRows
    8. Me.DataGridView1.Rows.Remove(dgvr)
    9. i = i + 1
    10. If Len(strID) > 0 Then strID = strID & " OR "
    11. strID = strID & "ID = " & DataGridView1.CurrentRow.Cells(0).Value 'erste Spalte im Datagridview ist die ID
    12. Next
    13. 'Erstellen des CommandTextes mit allen zu löschenden ID´s
    14. cmddel.CommandText = "DELETE * FROM tbl" & Tabelle & _
    15. " WHERE " & strID
    16. cmddel.Connection = Con
    17. 'Je nach geöffneter Tabelle im Datagridview wird der entsprechende Adapter angesprochen
    18. Select Tabelle
    19. Case "Artikel"
    20. Ada.DeleteCommand = cmddel
    21. bs.EndEdit()
    22. Me.Ada.Update(Me.ds.Tables(Tabelle))
    23. Case "Kunden"
    24. Kda.DeleteCommand = cmddel
    25. bs.EndEdit()
    26. Me.Kda.Update(Me.ds.Tables(Tabelle))
    27. Case "Preise"
    28. Pda.DeleteCommand = cmddel
    29. bs.EndEdit()
    30. Me.Pda.Update(Me.ds.Tables(Tabelle))
    31. End Select
    32. MsgBox(i & "Datensätze gelöscht!")
    33. Con.Close()
    34. End If
    35. End Sub


    Gibt es für meinen Fall auch die Möglichkeit, dass ich den CommandText bereits beim Laden initialisiere oder ist es schon richtig, dass ich es in dieser Sub mache, da ich zum Anfang noch nicht weiß, welche ID´s der User markiert?

    Ich erhalte in Zeile 22, 26 bzw. 30 leider folgende Fehlermeldung:
    Parallelitätsverletzung: Der DeleteCommand hat sich auf 0 der erwarteten 1 Datensätze ausgewirkt.

    Wo liegt der Fehler?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VB2010 User“ ()

    GELÖST!

    Hallo,


    habe es gelöst! :D

    VB.NET-Quellcode

    1. 'Prozedur um alle markierten Zeilen zu löschen
    2. Private Sub Delete()
    3. If MessageBox.Show("Wollen Sie die Datensätze wirklich löschen?", "Löschen", MessageBoxButtons.YesNo) = DialogResult.Yes Then
    4. Dim strID As String = ""
    5. Dim i As Integer = 0
    7. Con.Open()
    8. For Each dgvr As DataGridViewRow In Me.DataGridView1.SelectedRows
    9. i = i + 1
    10. If Len(strID) > 0 Then strID = strID & " OR "
    11. strID = strID & "ID = " & dgvr.Cells(0).Value 'erste Spalte im Datagridview ist die ID
    12. Me.DataGridView1.Rows.Remove(dgvr)
    13. Next
    14. 'Erstellen des CommandTextes mit allen zu löschenden ID´s
    15. If Len(strID) = 0 Then strID = "ID = " & DataGridView1.CurrentRow.Cells(0).Value
    17. cmddel.CommandText = "DELETE * FROM tbl" & Tabelle & _
    18. " WHERE " & strID
    19. MsgBox(cmddel.ExecuteNonQuery & "Datensätze gelöscht!")
    20. Con.Close()
    21. End If
    22. End Sub

    Hallo Leute,
    ich habe das irgendwie nicht richtig verstanden, was da gemacht werden muss... Was muss ich bei meinem Code ändern? Also das Hinzufügen und die Weitergabe an meinne accdb funktioniert soweit, nur wenn ich löschen oder ändern will, macht er Probleme...

    Quellcode

    1. Private Sub GeburtstageBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeburtstageBindingNavigatorSaveItem.Click
    2. Me.Validate()
    3. Me.GeburtstageBindingSource.EndEdit()
    4. Me.TableAdapterManager.UpdateAll(Me.GeburtstagsdatenDataSet)
    5. Dim deletedGeburtstage As GeburtstagsdatenDataSet.GeburtstageDataTable = CType( _
    6. GeburtstagsdatenDataSet.Geburtstage.GetChanges(Data.DataRowState.Deleted), GeburtstagsdatenDataSet.GeburtstageDataTable)
    8. Dim newGeburtstage As GeburtstagsdatenDataSet.GeburtstageDataTable = CType( _
    9. GeburtstagsdatenDataSet.Geburtstage.GetChanges(Data.DataRowState.Added), GeburtstagsdatenDataSet.GeburtstageDataTable)
    11. Dim modifiedGeburtstage As GeburtstagsdatenDataSet.GeburtstageDataTable = CType( _
    12. GeburtstagsdatenDataSet.Geburtstage.GetChanges(Data.DataRowState.Modified), GeburtstagsdatenDataSet.GeburtstageDataTable)
    14. Try
    15. ' Remove all deleted orders from the Orders table.
    16. If Not deletedGeburtstage Is Nothing Then
    17. GeburtstageTableAdapter.Update(deletedGeburtstage)
    18. End If
    20. ' Update the Customers table.
    21. GeburtstageTableAdapter.Update(GeburtstagsdatenDataSet.Geburtstage)
    23. ' Add new orders to the Orders table.
    24. If Not newGeburtstage Is Nothing Then
    25. GeburtstageTableAdapter.Update(newGeburtstage)
    26. End If
    28. ' Update all modified Orders.
    29. If Not modifiedGeburtstage Is Nothing Then
    30. GeburtstageTableAdapter.Update(modifiedGeburtstage)
    31. End If
    33. GeburtstagsdatenDataSet.AcceptChanges()
    35. Catch ex As Exception
    36. MsgBox("Aktualisierung fehlgeschlagen")
    38. Finally
    39. If Not deletedGeburtstage Is Nothing Then
    40. deletedGeburtstage.Dispose()
    41. End If
    43. If Not newGeburtstage Is Nothing Then
    44. newGeburtstage.Dispose()
    45. End If
    47. If Not modifiedGeburtstage Is Nothing Then
    48. modifiedGeburtstage.Dispose()
    49. End If
    50. End Try
    51. End Sub


    Also den Code habe ich, wenn ich auf Speichern klicke.

    gruß Asgard

    hmm - eiglich wirds nicht gern gesehen, wenn so uralt-leichen-Threads wieder vorgezerrt werden und weiterbefragt. aber egal.

    also ich täte denken, wenn alles bei dir richtig konfiguriert ist, würde folgender Code reichen:

    VB.NET-Quellcode

    1. Private Sub GeburtstageBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeburtstageBindingNavigatorSaveItem.Click
    2. Me.Validate()
    3. Me.GeburtstageBindingSource.EndEdit()
    4. Me.TableAdapterManager.UpdateAll(Me.GeburtstagsdatenDataSet)
    5. End Sub
    Weil TableAdapterManager kümmert sich um alles.

    noch 2 Tipps: VB-Tag richtig benutzen

    TryCatch ist ein heißes Eisen

    Suche in Testfall.Beschreibung und gebe die entsprechenden Suites aus:

    VB.NET-Quellcode

    1. Private Sub btn_suchen_Click(sender As System.Object, e As System.EventArgs) Handles btn_suchen.Click
    2. 'Stichwortsuche in Testfällen
    3. Dim suchwort As String = txtbx_suchwort.Text
    5. 'DataView mit Filter erstellen
    6. Dim dvTestfall As DataView = New DataView(HauptDataSet.Testfall, "Beschreibung LIKE '%" & suchwort & "%'", "SuiteID", DataViewRowState.OriginalRows)
    8. dgv_Suchanzeige.Columns.Add("Name", "Suitename mit Inhalt '" & suchwort & "'")
    10. For Each drvTestfall As DataRowView In dvTestfall
    11. Dim sID As Integer = CInt(drvTestfall.Item("SuiteID"))
    12. dgv_Suchanzeige.Rows.Add(HauptDataSet.Suite.First(Function(a) a.ID = sID))
    13. Next
    14. End Sub


    Fehler in Row 10:
    "Zeilen können nicht automatisch zur Zeilenauflistung der DataGridView hinzugefügt werden, wenn das Steuerelement datengebunden ist."

    -> muss ich das erst über ein weiteres DataView realisieren? und wie kann ich einzelne Zeilen von hauptdataset.suite mit nur der Spalte "Suitename" in ein Dataview hinzufügen?

    Edit: gelöst

    VB.NET-Quellcode

    1. Private Sub btn_suchen_Click(sender As System.Object, e As System.EventArgs) Handles btn_suchen.Click
    2. 'Stichwortsuche in Testfällen
    3. Dim suchwort As String = txtbx_suchwort.Text
    5. 'DataView mit Filter erstellen
    6. Dim dvTestfall As DataView = New DataView(HauptDataSet.Testfall, "Beschreibung LIKE '%" & suchwort & "%'", "SuiteID", DataViewRowState.OriginalRows)
    8. dgv_Suchanzeige.Columns.Clear()
    9. dgv_Suchanzeige.Columns.Add("Name", "Suitename mit Inhalt '" & suchwort & "'")
    11. For Each drvTestfall As DataRowView In dvTestfall
    12. Dim sID As Integer = CInt(drvTestfall.Item("SuiteID"))
    13. dgv_Suchanzeige.Rows.Add(HauptDataSet.Suite.First(Function(a) a.ID = sID).Name)
    14. Next
    15. End Sub

Facebook