Etre capable de vérifier l'état d'un pilote ODBC via une connexion DSN aide de Visual Basic pour Applications peut vous faire gagner du temps en mettant fin à votre programme si la connexion ODBC n'existe pas. VBA est utilisé dans les applications Microsoft Office pour automatiser les tâches de routine autrement effectuées manuellement . Dans Excel , vous pouvez utiliser VBA pour automatiser le processus d'importation de données provenant d'une base de données Access en utilisant une connexion ODBC. Instructions
1

lancement de Microsoft Office Excel. Cliquez sur l'onglet « Développeur » suivi de « Visual Basic ». Cliquez sur le menu "Insertion " puis " Module " pour insérer un nouveau module
2

créer un nouveau sous procédure : .

Private Sub checkODBC ()
Hôtels 3

Créer les variables de l'objet que vous allez utiliser pour vérifier le pilote ODBC:

adoCNN As ADODB.Connection

ConnectAction As Boolean

Set adoCNN = New ADODB.Connection
4

Définir le nom ODBC, le nom de login et mot de passe :

adoCNN.Open "DSN Name", "username" , "password"

5

vérifier l'état du pilote ODBC :

Si adoCNN.State = adStateOpen Puis

ConnectAction = True

adoCNN.Close
< p> End If
6

Affiche une boîte de message qui informe l'utilisateur de l' état ​​de la connexion ODBC:

Si ConnectAction Puis

MsgBox connexion ODBC " est prêt "

Else

MsgBox" connexion ODBC n'est pas prêt ! "

End If End Sub

7

Appuyez sur "F5" pour exécuter la procédure .