vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · MSFlexGrid/DataGrid   |   VB-Versionen: VB630.04.04
Alle selektierten Datensätze aus dem DataGrid löschen

Hier zeigen wir Ihnen, wie sich alle selektierten Datensätze im Microsoft DataGrid Control löschen lassen.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  21.690 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Immer wieder wird im Forum gefragt, wie man unter Verwendung des Microsoft DataGrid Controls alle selektierten Datensätze per Knopfdruck aus der Datenbank löschen kann. Des Rätsles Lösung lautet SelBookmark. Über diese Eigenschaft lassen sich alle aktuell selektierten Datenzeilen ermitteln. Jetzt braucht man nur noch den Recordset-Zeiger auf die "Bookmarks" zu bewegen und den Löschvorgang via "Delete"-Methode aufrufen.

Beginnen wir jedoch zunächst mit dem Füllen des DataGrids. Hierzu erstellen wir ein Connection- und ein Recordset-Objekt und weisen das Recordset dann dem DataGrid zu:

Option Explicit
 
' Datenbank-Connection + Recordset Objekt
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Private Sub Form_Load()
  ' Datenbank öffnen
  Set oConn = New ADODB.Connection
  With oConn
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = App.Path & "\Datenbank.mdb"
    .Properties("Persist Security Info") = False
    .Open
  End With
 
  ' Recordset erstellen und öffnen
  Set oRs = New ADODB.Recordset
  oRs.Open "SELECT * FROM Kunden", oConn, _
    adOpenStatic, adLockOptimistic
 
  ' DataGrid mit dem Inhalt des Recordsets füllen
  Set DataGrid1.DataSource = oRs
End Sub

Per Buttonklick sollen alle selektierten Datensätze gelöscht werden:

Private Sub Command1_Click()
  Dim Bookmark As Variant
 
  With DataGrid1
    ' alle selektierten Datenzeilen durchlaufen
    For Each Bookmark In .SelBookmarks
      .Bookmark = Bookmark
 
      ' Datensatz löschen
      oRs.Delete adAffectCurrent
    Next
  End With
End Sub

Das war's dann auch schon.

Sollten Sie anstelle eines ADO-Recordsets ein DataControl verwenden, ersetzen Sie...

      oRs.Delete adAffectCurrent

durch:

      Adodc1.Recordset.Delete adAffectCurrent

Dieser Tipp wurde bereits 21.690 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel