Re: Datenbankabfrage mit VBA aktualisieren
12.08.2002 19:32:10
Andre
Hallo Marc,prinzipiell so:
blatt = "'KUNDEN'!$A$1"
sql_string(1) = "SELECT * FROM ADRESSEN "
sql_string(2) = "WHERE NACH_NAME = 'MAYER' "
sql_string(3) = "ORDER BY VOR_NAME"
For i = 1 To 3
Application.Run "QueryDatenImportieren", "", _
sql_string(i) _
, , , , , False
Next i
Application.Run "QueryDatenImportieren", "DSN=MeineAnbindung;DBQ=MeineAnbindung;UID=UserIch;PWD=VerratIchNich", _
"", True, True, False, Range(blatt), True, True
SQL kannst Du beim Query mitschneiden und dann in Strings zerpflücken. Ansonsten mal Literatur oder Hilfen zu SQL durchpflücken.
DSN, DBQ entnimmst Du der Systemsteuerung - ODBC - Konfiguration,
UID und PWD der Datenbank (kann man eventuell weglassen oder als Leerstring übergeben - hab' ich aber nicht getestet).
Alternativ geht auch DAO, mit SQL-Abfragen.
gruss andre