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.