Programmgesteuertes Ändern der Verbindung eines Access-Projekts

Erweitert: Erfordert Expertenkenntnisse für Codierung, Interoperabilität und Mehrbenutzerfähigkeiten.

Dieser Artikel gilt nur für ein Microsoft Access-Projekt (ADP).

Zusammenfassung

In diesem Artikel erfahren Sie, wie Sie die Verbindung einer ADP-Datei (Microsoft Access-Projekt) programmgesteuert ändern.

Weitere Informationen

Die einfachste Möglichkeit, die Verbindung einer ADP zu ändern, besteht darin, dies manuell zu tun. Sie können in Access 2002 oder Access 2003 wie folgt auf die Verbindungseigenschaften des aktuellen Projekts zugreifen: Klicken Sie im Menü Datei auf Verbindung. Das angezeigte Dialogfeld enthält Optionen zum Ändern des Servernamens und der Sicherheitsmodi, unter anderem.

Hinweis Führen Sie in Access 2007 die folgenden Schritte aus, um die Registerkarte Verbindung des Dialogfelds Datenlinkeigenschaften zu öffnen:

1. Klicken Sie auf die Microsoft Office-Schaltfläche und dann auf Zugriffsoptionen.
2. Klicken Sie auf der Registerkarte Anpassen in der Liste Befehle aus auswählen auf Alle Befehle.
3. Klicken Sie im linken Bereich auf Verbindung , klicken Sie auf Hinzufügen, und klicken Sie dann auf OK.
4. Klicken Sie auf der Symbolleiste für den Schnellzugriff aufVerbindung.

Manchmal möchten Sie den Prozess jedoch möglicherweise automatisieren. Möglicherweise möchten Sie, dass Benutzer eine Verbindung mit einem anderen SQL Server für einen bestimmten Abschnitt Ihrer Anwendung herstellen, oder Sie möchten den Verbindungsprozess beim Start steuern, damit Sie nach Fehlern suchen und diese entsprechend behandeln können, z. B. durch Routing an einen anderen Server.

In den folgenden Schritten wird eine Funktion verwendet, die veranschaulicht, wie die vorhandene Verbindung einer ADP mithilfe des Access-Objektmodells geändert wird. Die Funktion gibt True zurück, wenn sie erfolgreich ist, und False, wenn sie nicht erfolgreich ist.

1. Starten Sie Access, und öffnen Sie dann das Access-Beispielprojekt NorthwindCS.adp.

2. Klicken Sie in Access 2002 oder Access 2003 im Datenbankfenster unter Objekte auf Module, und klicken Sie dann auf Neu, um ein neues Modul zu öffnen.

   Klicken Sie in Access 2007 unter Makro in der Gruppe Andere auf der Registerkarte Erstellen auf den Pfeil nach unten, und klicken Sie dann auf Modul.

3. Fügen Sie dem neuen Modul den folgenden Code hinzu, und speichern Sie das Modul dann:

Function ChangeADPConnection(strServerName As String, strDBName As _
   String, Optional strUN As String, Optional strPW As String) As Boolean
Dim strConnect As String
On Error GoTo EH:
Application.CurrentProject.CloseConnection
'The Provider, Data Source, and Initial Catalog arguments are required.
strConnect = "Provider=SQLOLEDB.1" & _
";Data Source=" & strServerName & _
";Initial Catalog=" & strDBName
If strUN <> "" Then
    strConnect = strConnect & ";user id=" & strUN
    If strPW <> "" Then
        strConnect = strConnect & ";password=" & strPW
    End If
Else  'Try to use integrated security if no username is supplied.
    strConnect = strConnect & ";integrated security=SSPI"
End If
Application.CurrentProject.OpenConnection strConnect
ChangeADPConnection = True
Exit Function
EH:
MsgBox Err.Number & ": " & Err.Description, vbCritical, "Connection Error"
ChangeADPConnection = False
End Function

4. Klicken Sie in Access 2002 oder Access 2003 im Datenbankfenster unter Objekte auf Formulare, klicken Sie auf Neu, und klicken Sie dann auf OK, um ein neues Formular in der Entwurfsansicht zu öffnen.

   Klicken Sie in Access 2007 auf der Registerkarte Erstellen auf Formular.

5. Fügen Sie dem Formular eine Befehlsschaltfläche hinzu.

6. Legen Sie die OnClick-Eigenschaft der Befehlsschaltfläche auf die folgende Ereignisprozedur fest:

Dim bCheckConnection As Boolean
   'You must specify the correct parameters for your following server.
   'username and password parameters are optional.
bCheckConnection=ChangeADPConnection("ServerName","DBName","UserName","PW")
MsgBox bCheckConnection

7. Schließen Sie die Visual Basic-Umgebung, um zum Formular zurückzukehren.

8. Speichern Sie das Formular, und wechseln Sie dann in die Formularansicht.

9. Klicken Sie auf die Befehlsschaltfläche, um den zugrunde liegenden Code auszuführen.

   Sie erhalten ein Meldungsfeld mit dem Hinweis True, wenn Sie in Schritt 6 die richtigen Parameter für eine Verbindung angegeben haben.

   – ODER –

   Wenn Sie nicht die richtigen Parameter angegeben haben, erhalten Sie die Fehlermeldung. Wenn Sie auf OK klicken, um die Fehlermeldung anzuzeigen, wird das Meldungsfeld False angezeigt.