Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Datensatz in Access löschen"
Doppelte Datensätze löschen Alle Datensätze >= Eingabewert filtern
Datensatz nach Eingabe eines Kurzbegriffes Datensätze nach zwei Kriterien in neues Blatt übernehmen
Datensätze in zweitem Blatt anders anordnen Datensätze in UserForm auswählen und im Blatt löschen
Doppelte Datensätze und Leerzeilen löschen Alle mehrfach vorkommenden Datensätze in zweiter Tabelle listen
Doppelte Datensätze farblich markieren und auflisten Access-Datenbank öffnen und deren Makro starten