Re: SQL Abfrage gesucht

Hallo hirustar

Habe Dir mal einen kleinen Code bebastelt. Damits schnell geht ganz primitiv mit einem Data Objekt. Zum Testen braucht Du eine
Access-Datenbank: Test.mdb
Eine Tabelle: Uhrzeit
Ein Feld: Uhrzeit
FeldTyp: Datum/Uhrzeit
Formt: Zeit, lang

Für die Form:
Ein CommandButton: Command1
Ein Dataobjekt: Data1

Ich hoffe das Du das gebrauchen kannst, Jürgen

Option Explicit

Const iMaxDatensätze = 100
Dim datZeitVon As Date
Dim datZeitBis As Date
Dim rst As Recordset
Dim sFile As String

Private Sub Command1_Click()
Dim datUhrzeit As Date
Dim datDatum As Date
Dim sql As String
Dim i As Integer

Data1.RecordSource = "SELECT * FROM Uhrzeit"
Data1.Refresh
Set rst = Data1.Recordset

'Vorhandene Daten löschen
With rst
If .RecordCount > 0 Then
.MoveLast
While Not .EOF
.Delete
.MoveFirst
Wend
End If
End With
Me.Cls

'Neue Daten in Datenbank schreiben
Randomize
For i = 1 To iMaxDatensätze
'Zufallsuhrzeit
datUhrzeit = TimeSerial(Rnd * 1, Rnd * 59, 0)

'In Datenbank speichern
rst.AddNew
rst!Uhrzeit = datUhrzeit
rst.Update
Next i

'Zeitraum festlegen
datZeitVon = CDate("00:50:00")
datZeitBis = CDate("01:10:00")

sql = "SELECT * FROM Uhrzeit " & _
"WHERE Uhrzeit BETWEEN #" & datZeitVon & "# AND #" & datZeitBis & "# " & _
"ORDER BY Uhrzeit;"
Data1.RecordSource = sql
Data1.Refresh
Set rst = Data1.Recordset

With rst
.MoveFirst
While Not .EOF
Me.Print rst!Uhrzeit
.MoveNext
Wend
End With

End Sub

Private Sub Form_Load()
sFile = App.Path & "\" & "Test.mdb"
Data1.DatabaseName = sFile
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]