Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

BEISPIEL

BEISPIEL

Kapitel 9: Fortgeschrittene Datenbankprogrammierung

Sollen trotzdem Passwort und UserID abgefragt werden, nehmen Sie diese aus dem String heraus oder

fragen Sie diese über ein eigenes Dialogfeld ab.

Abbildung 9.36 ODBC-Dialog zur Eingabe des Kennworts

bei fehlenden Angaben

Natürlich können Sie auch mit den DAO eine Verbindung zum SQL Server herstellen. Beim Öffnen der

Datenbank geben Sie anstatt des Datenbanknamens ODBC ein, der Connect-Parameter entspricht dem

oben ermittelten Connect-String.

ODBC-

Database

-Objekt erstellen:

Sub ODBC_Verbindung()

Dim db As Database

Set db = OpenDatabase("ODBC", False, False, "ODBC;DSN=FirmaSQL;UID=Tom;Trusted_Connection=Yes;” & _

”APP=2007 Microsoft Office system;DATABASE=northwind")

MsgBox db.Name

End Sub

Öffnen einer ODBC-Verbindung (ADO)

Auch ADO bietet nach wie vor die Möglichkeit, ODBC-Connections als Grundlage für Datenbankverbin-

dungen zu nutzen. Die offensichtlichste Möglichkeit ist Ihnen sicher nicht entgangen.

Der

Connection

-String für eine SQL Server-Verbindung:

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DRIVER=SQL

Server;SERVER=P200;APP=Access;WSID=P200;DATABASE=Verleger;Trusted_Connection=Yes"

Weniger bekannt ist eine zweite Variante, die einem etwas Schreibarbeit abnimmt – der Programmierer ist

bekanntlich dankbar für jede Entlastung.

Mit dem folgenden Aufruf erreichen Sie das Gleiche wie im vorstehenden Beispiel (die Aufrufsyntax erinnert

stark an das DAO-Beispiel aus dem vorhergehenden Abschnitt):

Dim con As ADODB.Connection

Set con = New ADODB.Connection

con.ConnectionString = "DRIVER={SQL Server};SERVER=.\SQLExpress;” & _

”Trusted_Connection=Yes;DATABASE=northwind"

con.Open

560