VB und Datenbanken

cgaertner · 11.12.2001, 12:57

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

11.12.2001, 12:57	#2
cgaertner Jr. Member Registriert seit: 02.07.2001 Beiträge: 36	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

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)