In staat zijn om te controleren of de status van een ODBC-stuurprogramma via een DSN connectie met Visual Basic for Applications u tijd kunt besparen door het beëindigen van uw programma als de ODBC-verbinding niet bestaat . VBA wordt gebruikt in Microsoft Office-toepassingen om routinetaken anders handmatig gedaan automatiseren . In Excel kunt u VBA gebruiken om het proces van het importeren van gegevens uit een Access -database via een ODBC-verbinding te automatiseren . Instructies
1 Lancering Microsoft Office Excel . Klik op het tabblad "Ontwikkelaar " gevolgd door " Visual Basic . " Klik op het menu "Invoegen" en vervolgens " Module " om een nieuwe module te voegen kopen van 2 Maak een nieuwe sub- procedure : . Private Sub checkODBC
( ) op Twitter Goedkope 3 Maak het object variabelen die je zal gebruiken om de ODBC-stuurprogramma controleren: Dim adoCNN
Zoals ADODB.Connection Dim canConnect
zoals Van Boole Set adoCNN
= Nieuwe ADODB.Connection
4 Definieer de ODBC naam , inlognaam en wachtwoord : adoCNN.Open " DSN Name"
, " gebruikersnaam " , " wachtwoord"
Goedkope 5 Controleer de toestand van het ODBC-stuurprogramma :
Als adoCNN.State = adStateOpen dan canConnect
= True
adoCNN.Close
End If
display 6 een bericht de gebruiker te informeren over de stand van de ODBC -verbinding :
Als canConnect dan MsgBox " ODBC -verbinding
klaar is "
Else MsgBox
" ODBC -verbinding is nog niet klaar ! " End
Als End Sub
7
Druk op " F5 " om de procedure uit te voeren.
|
