Ser capaz de detectar el estado de un controlador ODBC a través de una conexión DSN utilizando Visual Basic para aplicaciones que puede ahorrar tiempo , poniendo fin a su programa si la conexión ODBC no existe. VBA se utiliza en aplicaciones de Microsoft Office para automatizar tareas rutinarias de lo contrario se hace manualmente. En Excel , puede utilizar VBA para automatizar el proceso de importación de datos desde una base de datos mediante una conexión ODBC. Instrucciones
1

lanzamiento de Microsoft Office Excel. Haga clic en la pestaña de " desarrolladores" seguido de " Visual Basic ". Haga clic en el menú " Insertar" y luego en " módulos" para insertar un nuevo módulo
2

Crear un nuevo procedimiento sub : .

Private Sub checkODBC ()
Página 3

Crear las variables de objeto que utilizará para comprobar el controlador ODBC :

adoCNN As ADODB.Connection

CanConnect Dim As Boolean

Set adoCNN = New ADODB.Connection
4

Definir el nombre de ODBC , nombre de usuario y contraseña:

adoCNN.Open " DSN Name" , "username" , "password "
Página 5

Compruebe el estado del controlador ODBC :

Si adoCNN.State = adStateOpen Entonces

CanConnect =

verdadera adoCNN.Close
< p> End If
6

mostrar un cuadro de mensaje que informa al usuario del estado de la conexión ODBC :

Si CanConnect Entonces

MsgBox " conexión ODBC está listo "

demás

MsgBox " conexión ODBC no está listo ! "

End If End Sub

7

Pulse la tecla "F5 " para ejecutar el procedimiento .