SQL ??
23.08.2004 22:39:37
Juergen
Vielleicht hat jemand 2-3min. Ich lese mit dem unteren Modul eine Access MDB aus suche nach Rechnungsnummer und füge das gefunde in Variablen ein. Meine Frage.... geht das auch einfacher mit einem SQL-Statment geht vielleicht schon vom Prinzip einfacher (also mit weniger Zeilen) und...wenn mit SQL was für einen Verweis muß ich neben DAO noch setzten.
DANKE!!!!
Gruß Jürgen
Sub dblesen()
Dim wrkJet As Workspace
Dim wrkODBC As Workspace
Dim dbsrech As Database
Dim rs As Recordset
Set wrkJet = CreateWorkspace("", "Admin", "", dbUseJet)
Set wrkODBC = CreateWorkspace("", "Admin", "", dbUseODBC)
Set dbsrech = wrkJet.OpenDatabase("c:\fibu2005\db.mdb")
Set rs = dbsrech.OpenRecordset("Tabelle1", dbOpenDynaset)
i = 1
Do Until rs.EOF
If rechnr <> rs![rechnr] Then GoTo 10
kdnr = rs![kdnr]
ukdnr = rs![ukdnr]
posten1(i) = rs![po1]
posten2(i) = rs![po2]
posten3(i) = rs![po3]
posten4(i) = rs![po4]
posten5(i) = rs![po5]
posten6(i) = rs![po6]
posten7(i) = rs![po7]
posten8(i) = rs![po8]
da1 = rs![datum]
lsdatum = rs![lsdatum]
i = i + 1
10
rs.MoveNext
Loop
po = i
rs.Close
dbsrech.Close
wrkJet.Close
wrkODBC.Close
rechholen3
End Sub