Hallo!
Also ich mach das mit DAO und mit OpenRecordset, was (für mich) den Vorteil hat, daß ich da SQL verwenden kann. Ein kleines Demo-Programm folgt ...
Christian
1) Projekt -> Verweise: Microsoft DAO 3.6 (oder so ähnlich)
2) Source-Code:
Dim dbTemp As Database
Dim rsTemp As Recordset
Set dbTemp = OpenDatabase("D:\Test.mdb")
Set rsTemp = dbTemp.OpenRecordset("SELECT * FROM MeineTabelle WHERE PLZ='1230' ORDER BY Nachname, Vorname;")
If rsTemp.RecordCount > 0 Then
rsTemp.MoveLast
rsTemp.MoveFirst
For intI = 0 To rsTemp.RecordCount - 1
Debug.Print rsTemp.Fields(0)
rsTemp.MoveNext
Next intI
End If
dbTemp.Close
|