ODBC en Visual Basic
Hola!
No se mucho de visual basic, pero necesito saber como se pone el código para poder acceder a una base de datos access 2000 mediante conexión ODBC.
Si pudieras escribirme el código tanto para la conexión como para las diferentes actualizaciones de una tabla.
Espero que puedas cotestarme, gracias
No se mucho de visual basic, pero necesito saber como se pone el código para poder acceder a una base de datos access 2000 mediante conexión ODBC.
Si pudieras escribirme el código tanto para la conexión como para las diferentes actualizaciones de una tabla.
Espero que puedas cotestarme, gracias
1 Respuesta
Respuesta de ignacioproso
1
Lo que tienes que poner es lo siguiente:
conexion.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + BDServidor + ";Persist Security Info=False"
Donde BDServidor es la ruta donde se encuentra la base de datos.
Yo tengo una base de datos en Access 2000 y para actualizar, seleccionar, etc. lo que hago es utilizar sentencias SQL. "update, select, etc."
Aquí te pongo un ejemplo:
<<select * from Permisos where usuario ='" & txtUserName.Text & "' and clave = '" & txtPassword.Text & "'">>
<<"SELECT idreferencia AS campo1, idinstalador AS campo2, nombreusr AS campo3, " & _
"idusuario as campo4, tipo, fpra, fvbec " & _
"FROM wtodas " & _
"WHERE (estado <> 'A') AND (fpra is null or fvbec is null) " & Lista & _
"AND (DateDiff('d', fprograma, Format(Now, 'dd/mm/yyyy')) > 7) AND fcarta1petdoc <> null " & _
"ORDER BY idreferencia">>
Son ejemplos de los que utilizo en mi trabajo.
conexion.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + BDServidor + ";Persist Security Info=False"
Donde BDServidor es la ruta donde se encuentra la base de datos.
Yo tengo una base de datos en Access 2000 y para actualizar, seleccionar, etc. lo que hago es utilizar sentencias SQL. "update, select, etc."
Aquí te pongo un ejemplo:
<<select * from Permisos where usuario ='" & txtUserName.Text & "' and clave = '" & txtPassword.Text & "'">>
<<"SELECT idreferencia AS campo1, idinstalador AS campo2, nombreusr AS campo3, " & _
"idusuario as campo4, tipo, fpra, fvbec " & _
"FROM wtodas " & _
"WHERE (estado <> 'A') AND (fpra is null or fvbec is null) " & Lista & _
"AND (DateDiff('d', fprograma, Format(Now, 'dd/mm/yyyy')) > 7) AND fcarta1petdoc <> null " & _
"ORDER BY idreferencia">>
Son ejemplos de los que utilizo en mi trabajo.
