alguien sabe hacer el driver ODBC en visual....
ayuda... en verdad.. no logro establecer la conexion, alguien sabe como???
Jose Luis, te escribo desde Venezuela, a continuación te enumero los pasos.
1.- Por el panel de control seleciona el icono Fuente de Datos ODBC
2.- Seleciona la pestaña DSN Sistemas
3.- Agregar
4.- Selecciona el controlador para el que deseas instalar el origen de los datos
5.- Selecciona Microsoft Access Driver (*.mdb), presiona finalizar
6.- Colocale un nombre a la conexión y presiona selecionar
7.- Busca la base de datos en el directorio respectivo
y presiona aceptar, va a regresar a la pantalla de instalación de ODBC para MS Access y presiona aceptar, ya tienes tu conexión
Cualquier otra duda escribeme a la dirección [email protected] me imagino que vas a trabjar en ADO.
Saludos, Jose Morillo
1.- Por el panel de control seleciona el icono Fuente de Datos ODBC
2.- Seleciona la pestaña DSN Sistemas
3.- Agregar
4.- Selecciona el controlador para el que deseas instalar el origen de los datos
5.- Selecciona Microsoft Access Driver (*.mdb), presiona finalizar
6.- Colocale un nombre a la conexión y presiona selecionar
7.- Busca la base de datos en el directorio respectivo
y presiona aceptar, va a regresar a la pantalla de instalación de ODBC para MS Access y presiona aceptar, ya tienes tu conexión
Cualquier otra duda escribeme a la dirección [email protected] me imagino que vas a trabjar en ADO.
Saludos, Jose Morillo
tengo un docto con varios drives de codigo mandame un correo y te lo envio saludos....en que manejador quieres la cadena de conexion?
si te sirve mientrastanto esta:
Dim db As Database
Dim path As String
Dim spassword As String
path = "C:CONTRATOScontratos.mdb"
spassword = ";pwd= ''"
Set db = DBEngine.Workspaces(0).OpenDatabase(path, False, False, spassword)
Dim sql1 As String
pd. si envias mail pon el asunto para recordar...saludos desde mexico.
si te sirve mientrastanto esta:
Dim db As Database
Dim path As String
Dim spassword As String
path = "C:CONTRATOScontratos.mdb"
spassword = ";pwd= ''"
Set db = DBEngine.Workspaces(0).OpenDatabase(path, False, False, spassword)
Dim sql1 As String
pd. si envias mail pon el asunto para recordar...saludos desde mexico.