Hvor å Sjekk for ODBC Driver i VBA
Å kunne sjekke status på en ODBC driver gjennom en DSN tilkobling ved hjelp av Visual Basic for Applications kan du spare tid ved å avslutte programmet hvis ODBC tilkobling ikke eksisterer. VBA brukes i Microsoft Office-programmer for å automatisere rutineoppgaver ellers gjort manuelt. I Excel kan du bruke VBA til å automatisere prosessen med å importere data fra en Access-database ved hjelp av en ODBC-tilkobling.
Bruksanvisning
1 Start Microsoft Office Excel. Klikk på "Utvikler" fanen etterfulgt av "Visual Basic." Klikk på "Insert" -menyen og deretter "Module" å sette inn en ny modul.
2 Opprett en ny sub prosedyre:
Private Sub checkODBC ()
3 Lag objekt variablene du vil bruke for å sjekke ODBC driveren:
Dim adoCNN As ADODB.Connection
Dim canConnect Som boolsk
Sett adoCNN = Ny ADODB.Connection
4 Definer ODBC navn, påloggingsnavn og passord:
adoCNN.Open "DSN Name", "username", "password"
5 Sjekk tilstanden til ODBC driveren:
If adoCNN.State = adStateOpen Then
canConnect = True
adoCNN.Close
Slutt om
6 Vise en meldingsboks som informerer brukeren om tilstanden i ODBC-tilkobling:
If canConnect Then
MsgBox "ODBC tilkobling er klar!"
Ellers
MsgBox "ODBC tilkobling er ikke klar!"
Slutt om
End Sub
7 Trykk "F5" for å kjøre prosedyren.