Att kunna kontrollera status för en ODBC-drivrutin via ett DSN -anslutning med hjälp av Visual Basic for Applications kan du spara tid genom att avsluta ditt program om ODBC-anslutning inte existerar . VBA används i Microsoft Office-program för att automatisera rutinuppgifter annars sker manuellt . I Excel kan du använda VBA för att automatisera processen att importera data från en Access-databas med hjälp av en ODBC -anslutning . Instruktioner
1
Launch Microsoft Office Excel. Klicka på " Utvecklare " fliken , följt av " Visual Basic . " Klicka på " Infoga " -menyn och sedan " modul " för att infoga en ny modul
2
Skapa en ny sub förfarande : .
Private Sub checkODBC ( )
Sida 3
skapa objektet variabler du använder för att kontrollera ODBC-drivrutin :
Dim adoCNN som ADODB.Connection
Dim canConnect As Boolean
Set adoCNN = Nytt ADODB.Connection
4
Ange ODBC namn , inloggningsnamn och lösenord:
adoCNN.Open " DSN Name " , " användarnamn " , " lösenord "
5
Kontrollera tillståndet i ODBC-drivrutin :
p Om adoCNN.State = adStateOpen Sedan
canConnect = Sant
adoCNN.Close
End If
6
visa ett meddelande som informerar användaren om tillståndet i ODBC-anslutning :
p Om canConnect Sedan
MsgBox " ODBC -anslutningen är klar "
Else
MsgBox " ODBC-anslutning är inte redo ! "
End If
End Sub
7
Tryck " F5 " för att köra proceduren .
