Cómo comprobar el controlador ODBC en VBA

Ser capaz de comprobar el estado de un controlador ODBC a través de una conexión DSN utilizando Visual Basic para aplicaciones puede ahorrar tiempo al poner fin a su programa si no existe la conexión ODBC. VBA se utiliza en aplicaciones de Microsoft Office para automatizar tareas rutinarias hecho lo contrario de forma manual. 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 "desarrolladores" seguido de "Visual Basic". Haga clic en el menú "Insertar" y luego "módulo" para insertar un nuevo módulo.

2 Crear un nuevo procedimiento de substitución:

Private Sub checkODBC ()

3 Crear las variables de objeto que va a utilizar para comprobar el controlador ODBC:

Dim adoCNN As ADODB.Connection

Dim canConnect As Boolean

Establecer adoCNN = New ADODB.Connection

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

adoCNN.Open "DSN Name", "username", "password"

5 Compruebe el estado de los controladores ODBC:

If adoCNN.State = adStateOpen Then

canConnect = True

adoCNN.Close

Terminara si

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

If canConnect Then

MsgBox "conexión ODBC está listo!"

Más

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

Terminara si

End Sub

7 Pulse la tecla "F5" para ejecutar el procedimiento.