Mira chava, lee los manuales documentados en esta web son buenos, te enseñan lo basico y alli aparece 2 metodos para conectarte a access.
bueno el codigo que queres es el siguiente:
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=\"DSN=MS Access Database;DBQ=C:\\Archivos de programa\\Cyber\\Cyber_Servidor-Acces2002.mdb;DefaultDir=C:\\Archivos de programa\\Cyber;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;\"
asi quedo conectionstring, asi si abre base de datos acces XP, de otra forma con El jet 4.0 me marca el error:\" Error en la prueba de conexion, no se puede iniciar la aplicacion falta el archivo de informacion del grupo de trabajo o bien esta abierto en modo exclusivo por otro usuario\"
La verdad estoy aprendiendo apenas pero no soy flojo eh!, busco en donde puedo, soy autodidacta, me gusta aprender, no quiero las cosas hechas, pero se que es un mundo de informacion, pero adelante.
desde sinaloa mexico, saludos.-
Esta bien, veo que le has dado duro al asunto pero falta que nos comentes cómo abres con jet 4.0 al access, al menos yo uso la conexión de esta forma:
set objConexion = new ADODB.Connection
objConexion.Provider = "Microsoft Jet 4.0 OLE DB Provider"
objConexion.Properties("Jet OLEDB:Database Password") = "solo_si_tiene"
objConexion.ConnectionString = "Data Source=" & varMiBDAccess
On Error resume next
objConexion.Open
if err.Number <> 0 then
Retorno = 0
Conexion = ""
else
Retorno = 1
'varConexion es del tipo string, el usar el objeto es poco eficiente aunque sea eficaz
varConexion = objConexion.ConnectionString
objConexion.Close
end if
set objConexion = nothing
Que tal les va con el JET 4.0? Lo que dice Lily Es razonable... para mi es importante abrir una BD de XP usando ADO 2.6 o superior. No solo la version del JET es importante si no tambien la version de ADO.
Bueno si lo que intentamos es aclarar dudas en este excelente foro de VB ADO, voy haciendo algunas sugerencias:
Es mucho mejor declarar el objeto conexion de esta forma:
DIm objConexion as new ADODB.Connection
Que hacerlo de esta otra forma:
Dim objConexion as ADODB.Connection
set objConexion = new ADODB.Connection
Si deseo conocer el estado acutal de mi conexion, es decir, si se conecto o esta en proceso en caso de conexiones asincronas:
if objConexion.State = adStateOpen ' Se conecto correctamente
if objConexion.State = adStateClosed ' Esta cerrada, lo que indica que se tiene que conectar primero
if objConexion.State = adStateConnecting ' Esta en proceso de conexion, lo que indica que no podemos usarla hasta que este abierta, ojo, porque luego por eso hay errores, no puedo ejecutar un comando cuando la conexion esta en proceso, ADO, puede habrir otra conexion de manera automatica aunque lo hace traspartente para nosotros. Ojo.