Come modificare a livello di codice la connessione di un progetto di Access

Avanzate: richiede competenze esperte di codifica, interoperabilità e multiutente.

Questo articolo si applica solo a un progetto di Microsoft Access (con estensione adp).

Riepilogo

Questo articolo illustra come modificare a livello di codice la connessione di un file di progetto di Microsoft Access (ADP).

Ulteriori informazioni

Il modo più semplice per modificare la connessione di un ADP consiste nel farlo manualmente. È possibile accedere alle proprietà di connessione del progetto corrente come indicato di seguito in Access 2002 o in Access 2003: scegliere Connessione dal menu File. La finestra di dialogo visualizzata offre opzioni per modificare il nome del server e le modalità di sicurezza, tra le altre proprietà.

Nota In Access 2007 seguire questa procedura per aprire la scheda Connessione della finestra di dialogo Proprietà collegamento dati :

1. Fare clic sul pulsante Microsoft Office e quindi su Opzioni di Accesso.
2. Nella scheda Personalizza fare clic su Tutti i comandi nell'elenco Scegli comandi da .
3. Fare clic su Connessione nel riquadro sinistro, fare clic su Aggiungi e quindi su OK.
4. Fare clic su Connessione nella barra di accesso rapido.

Tuttavia, a volte potrebbe essere necessario automatizzare il processo. È possibile che gli utenti si connettono a un server SQL diverso per una sezione specifica dell'applicazione oppure che si voglia controllare il processo di connessione all'avvio in modo da poter cercare gli errori e gestirli di conseguenza, ad esempio eseguendo il routing a un altro server.

I passaggi seguenti usano una funzione che illustra come modificare la connessione esistente di un ADP usando il modello a oggetti di Access. La funzione restituisce True se ha esito positivo e False se non ha esito positivo.

1. Avviare Access e quindi aprire il progetto di accessi di esempio NorthwindCS.adp.

2. In Access 2002 o in Access 2003 fare clic su Moduli in Oggetti nella finestra Database e quindi su Nuovo per aprire un nuovo modulo.

   In Access 2007 fare clic sulla freccia giù sotto Macro nel gruppo Altro della scheda Crea e quindi fare clic su Modulo.

3. Aggiungere il codice seguente al nuovo modulo e quindi salvare il modulo:

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. In Access 2002 o in Access 2003 fare clic su Moduli in Oggetti nella finestra Database, fare clic su Nuovo e quindi su OK per aprire una nuova maschera in visualizzazione Struttura.

   In Access 2007 fare clic su Modulo nella scheda Crea .

5. Aggiungere un pulsante di comando al modulo.

6. Impostare la proprietà OnClick del pulsante di comando sulla routine evento seguente:

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. Chiudere l'ambiente Visual Basic per tornare al form.

8. Salvare la maschera e quindi passare alla visualizzazione Maschera.

9. Fare clic sul pulsante di comando per eseguire il codice sottostante.

   Si riceverà una finestra di messaggio che indica True se sono stati specificati parametri corretti per una connessione nel passaggio 6.

   -OPPURE-

   Se non sono stati specificati i parametri corretti, viene visualizzato il messaggio di errore. Quando si fa clic su OK per il messaggio di errore, viene visualizzata la finestra di messaggio che visualizza False.