Datensatz in Access löschen

Bild

Betrifft: Datensatz in Access löschen von: Heino B
Geschrieben am: 05.04.2005 12:22:41

Hallo Leute
Ich möchte alle Daten in der Dantenbank mit dem Namen Gefährdungsanalyse in der Tabelle Gefährdungsermittlung löschen die in dem Feld Maschine meinem Kriterium (in meinem Beispiel Testmaschine) entspricht.
Das löschen aller Daten klappt mit dem unten aufgeführten Makro.
Ich will aber ja nur alle Daten die zu einer Maschine gehören löschen.
Weiß jemand wie das geht ??


Sub Hol_Data()
Dim DBFullName As String
Dim TableName As String
Dim TargetRange As Range
Dim Maschine As String
Maschine = "Testmaschine"
z = 0
DBFullName = ThisWorkbook.Path & "\Gefährdungsanalyse.mdb"
TableName = "Gefährdungsermittlung"
Dim cn As ADODB.Connection, rs As ADODB.Recordset
    ' open the database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFullName & ";"
    Set rs = New ADODB.Recordset
    rs.Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable
    While Not rs.EOF
    rs.MoveFirst
    'rs.Find Maschine, 1, adSearchForward, 1'das Funktioniert nicht
    rs.Delete
    rs.MoveFirst
    Wend
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Bild


Betrifft: Access = falsches Forum von: c0bRa
Geschrieben am: 05.04.2005 13:11:05

guggst du hier:
https://www.google.de/search?hl=de&q=access+forum&meta=

c0bRa


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datensatz in Access löschen"