At kunne kontrollere status for en ODBC driver via en DSN -forbindelse ved hjælp af Visual Basic for Applications kan du spare tid ved at afslutte dit program , hvis ODBC-forbindelsen ikke eksisterer. VBA anvendes i Microsoft Office-programmer til at automatisere rutineopgaver ellers sker manuelt. I Excel kan du bruge VBA til at automatisere processen med at importere data fra en Access-database ved hjælp af en ODBC -forbindelse. Instruktioner
1
Launch Microsoft Office Excel. Klik på " Udvikler "-fanen efterfulgt af " Visual Basic ". Klik på " Indsæt" menuen og derefter " Modul " for at indsætte et nyt modul
2
Opret en ny sub procedure : .
Private Sub checkODBC ()
3
oprette objektet variabler, du vil bruge til at kontrollere ODBC driver : Hej
Dim adoCNN Som ADODB.Connection
Dim canConnect Som Boolean
Set adoCNN = Ny ADODB.Connection
4
Definer ODBC navn, brugernavn og password : Hej
adoCNN.Open " DSN navn", " brugernavn" , "password "
5
Kontrollér tilstanden af ODBC-driveren : Hej p Hvis adoCNN.State = adStateOpen Så
canConnect = Sand
adoCNN.Close
< p> End If
6
Display en besked boks informerer brugeren om tilstanden af ODBC-forbindelsen : Hej p Hvis canConnect Så
MsgBox " ODBC -forbindelsen er klar ! "
Else
MsgBox " ODBC -forbindelsen er ikke klar ! "
End If
End Sub
7
Tryk på " F5 " for at køre proceduren.