Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ADO Tabelle anlegen und abfragen

ADO Tabelle anlegen und abfragen
22.04.2014 17:15:45
Stephan
Hallo zusammen,
ich habe eine ADO Tabelle und dort werden viele Werte eingefüllt.
Jetzt stehe ich aber auf dem Schlauch und weiß nicht wie ich mit der Tabelle arbeite.
1. Ich will prüfen, ob ein Eintrag mit der Zeit "22.04.2014 14:59:01" exsistiert.
2. Für diesen Eintrag möchte ich die anderen Felder auslesen.
3. Ich will den Datensatz mit der Serial 289562500 aus dem Recordset löschen.
Hier der Beispielcode.
Sub test_ado()
Dim Rs As New ADODB.Recordset
With Rs
.Fields.Append "Time", adDate
.Fields.Append "Serial", adInteger
.Fields.Append "Command", adChar, 255
.Open
End With
Rs.AddNew
Rs!Time = "22.04.2014 14:59:01"
Rs!Serial = 289562468
Rs!Command = "Module1 123"
Rs.Update
Rs.AddNew
Rs!Time = "22.04.2014 15:59:01"
Rs!Serial = 289562500
Rs!Command = "Module1 234"
Rs.Update
MsgBox Rs.RecordCount
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ADO Tabelle anlegen und abfragen
22.04.2014 18:58:12
Tino
Hallo,
kannst mal so in etwa versuchen.
suchDatum = DateValue("22.04.2014") + TimeValue("14:59:01")
With Rs
If Not .BOF Then
'suche
.MoveFirst
.Find "[Time] = '" & suchDatum & "'"
Do While Not Rs.EOF
MsgBox Rs!Time
MsgBox Rs!Serial
MsgBox Rs!Command
.MoveNext
Loop
'289562500         löschen
.MoveFirst
.Filter = "[Serial] = '289562500'"
Do While Not .EOF
.Delete
.MoveNext
Loop
.Filter = 0
.Update
End If
End With
Gruß Tino

AW: ADO Tabelle anlegen und abfragen
22.04.2014 20:34:49
Stephan
Danke,
der Tipp ist gut.
Nur der Loop hinter dem suchen liefert alle Einträge und nicht nur den gesuchten.
So klappt es bei mir.
Sub test_ado()
suchDatum = DateValue("22.04.2014") + TimeValue("14:59:01")
With Rs
If Not .BOF Then
'suche
.MoveFirst
.Find "[Time] = '" & suchDatum & "'"
'Zeigt die Position des Datensatzes an
MsgBox Rs.AbsolutePosition
MsgBox Rs!Time
MsgBox Rs!Serial
MsgBox Rs!Command
'289562500         löschen
.MoveFirst
.Filter = "[Serial] = '289562500'"
Do While Not .EOF
.Delete
.MoveNext
Loop
.Filter = 0
.Update
End If
End With
End Sub

Anzeige
AW: ADO Tabelle anlegen und abfragen
22.04.2014 22:15:50
Tino
Hallo,
dann mach dort auch einen Filter um doppelte zu finden ;-)
 With Rs
If Not .BOF Then
'suche
.MoveFirst
.Filter = "[Time] = '" & suchDatum & "'"
Do While Not Rs.EOF
MsgBox Rs!Time
MsgBox Rs!Serial
MsgBox Rs!Command
.MoveNext
Loop
.Filter = 0
'289562500         löschen
.MoveFirst
.Filter = "[Serial] = '289562500'"
Do While Not .EOF
.Delete
.MoveNext
Loop
.Filter = 0
.Update
End If
End With
Gruß Tino

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige