De verbinding van een Access-project programmatisch wijzigen

Geavanceerd: vereist professionele codering, interoperabiliteit en vaardigheden voor meerdere gebruikers.

Dit artikel is alleen van toepassing op een Microsoft Access-project (.adp).

Samenvatting

In dit artikel wordt beschreven hoe u de verbinding van een ADP-bestand (Microsoft Access-project) programmatisch wijzigt.

Meer informatie

De eenvoudigste manier om de verbinding van een ADP te wijzigen, is door dit handmatig te doen. U hebt als volgt toegang tot de verbindingseigenschappen van het huidige project in Access 2002 of in Access 2003: klik in het menu Bestand op Verbinding. Het dialoogvenster dat wordt weergegeven, biedt opties voor het wijzigen van de servernaam en beveiligingsmodi, onder andere eigenschappen.

Opmerking Voer in Access 2007 de volgende stappen uit om het tabblad Verbinding van het dialoogvenster Eigenschappen van gegevenskoppeling te openen:

1. Klik op de Microsoft Office-knop en klik vervolgens op Opties voor Access.
2. Klik op het tabblad Aanpassen op Alle opdrachten in de lijst Opdrachten kiezen uit .
3. Klik op Verbinding in het linkerdeelvenster, klik op Toevoegen en klik vervolgens op OK.
4. Klik op Verbinding op de werkbalk Snelle toegang.

Soms wilt u het proces echter automatiseren. Mogelijk wilt u dat gebruikers verbinding maken met een andere SQL-server voor een specifieke sectie van uw toepassing, of u wilt het verbindingsproces bij het opstarten beheren, zodat u naar fouten kunt zoeken en deze dienovereenkomstig kunt afhandelen, bijvoorbeeld door te routeren naar een andere server.

In de volgende stappen wordt een functie gebruikt die laat zien hoe u de bestaande verbinding van een ADP wijzigt met behulp van het Access-objectmodel. De functie retourneert Waar als deze slaagt en Onwaar als dit niet lukt.

1. Start Access en open vervolgens het access-voorbeeldproject NorthwindCS.adp.

2. Klik in Access 2002 of in Access 2003 op Modules onder Objecten in het databasevenster en klik vervolgens op Nieuw om een nieuwe module te openen.

   Klik in Access 2007 op de pijl-omlaag onder Macro in de groep Overige op het tabblad Maken en klik vervolgens op Module.

3. Voeg de volgende code toe aan de nieuwe module en sla de module vervolgens op:

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. Klik in Access 2002 of in Access 2003 op Formulieren onder Objecten in het databasevenster, klik op Nieuw en klik vervolgens op OK om een nieuw formulier te openen in de ontwerpweergave.

   Klik in Access 2007 op Formulier op het tabblad Maken .

5. Voeg een opdrachtknop toe aan het formulier.

6. Stel de eigenschap OnClick van de opdrachtknop in op de volgende gebeurtenisprocedure:

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. Sluit de Visual Basic-omgeving om terug te keren naar het formulier.

8. Sla het formulier op en schakel het formulier over naar de formulierweergave.

9. Klik op de opdrachtknop om de onderliggende code uit te voeren.

   U ontvangt een bericht met de tekst Waar als u in stap 6 de juiste parameters voor een verbinding hebt opgegeven.

   -OF-

   Als u niet de juiste parameters hebt opgegeven, wordt het foutbericht weergegeven. Wanneer u op OK klikt in het foutbericht, wordt het berichtvak Onwaar weergegeven.