|
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 .
|
