lancio di Microsoft Office Excel. Fare clic sulla scheda "Sviluppatore " seguito da " Visual Basic ". Fai clic sul menu "Inserisci" e poi "Modulo " per inserire un nuovo modulo
2
Creare una nuova procedura secondaria : .
Private Sub checkODBC ( ) economici
3
Creare le variabili oggetto che si intende utilizzare per controllare il driver ODBC :
Dim adoCNN come ADODB.Connection
Dim canConnect come booleano
adoCNN = New ADODB.Connection
4
Definire il nome ODBC , il nome di login e la password :
adoCNN.Open " DSN name" , "username " , "password"
5
Verificare lo stato del driver ODBC :
adoCNN.State = adStateOpen Poi
canConnect = True
adoCNN.Close
End If
6
visualizzare una finestra di messaggio che informa l'utente dello stato della connessione ODBC :
canConnect Poi
MsgBox " connessione ODBC
è pronto "
Else
MsgBox" connessione ODBC non è pronto ! "
End If End Sub
7
premere il tasto " F5 " per eseguire la procedura .
Programmazione © www.354353.com