-
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.