Microsoft Access Programmierrezepte

R6.17 Eine SQL-Pass-Through-Abfrage erstellen

Aufgabe

Sie möchten per DAO in einer Access-Datenbank eine SQL-Pass-Through-Abfrage erstellen.

Lösung

Bei diesem Abfragetyp sind einige Besonderheiten zu beachten. Beim Anlegen der Abfrage geben Sie nicht sofort den SQL-String an, da die DAOs sonst davon ausgehen, dass es sich um eine Lokal-SQL-Abfrage handelt. Setzen Sie zunächst die Connect-Eigenschaft des QueryDef-Objekts. Erst zum Schluss können Sie der SQL-Eigenschaft die Pass-Through-Abfrage übergeben.

Beispiel

Pass-Through-Abfrage

Dim db As Database
Dim qd As QueryDef

Set db = CurrentDb()

Set qd = db.CreateQueryDef("SQL-Pass-Through-Abfrage")
qd.Connect = "ODBC;DSN=BeispielSQL;UID=sa;PWD=;DATABASE=verleger"

qd.SQL = "SELECT * FROM verleger"

Hinweis ...