Visual Basic - DAO y Access

Hola:

Soy un poco novata y tengo un problema. He creado una base de datos en Access y no puedo acceder a ella desde Visual Basic. Estoy utilizando DAO. El error me da al hacer "Opendatabase". Me dice que el formato de la base de datos no es correcto. ¿Alguien me puede ayudar?

Un saludo,
Myriam

Hola !

Si estas usando una base de datos access 2000 te dara problemas de conexion, ya que lo indicado es usar ADO en vez de DAO.

Si deseas utilizar DAO debe ser una version anterior a la 2000

Te mando un ejemplo con la version de ADO.

'Reference Microsoft Activex Objects 2.7 o 2.6

Global cnn1 As ADODB.Connection
Global rst As ADODB.Recordset

Set cnn1 = New ADODB.Connection

cnn1.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & App.Path & "\BDRegistro.mdb;" & _
"DefaultDir=" & App.Path & ";" & _
"UID=admin;PWD=;"

cnn1.Open

Set rst1 = New ADODB.Recordset

criterio = criterio + " SELECT count(Numero) as total,provincia,canton,distrito "
criterio = criterio + " From INDICE"
criterio = criterio + " GROUP BY provincia,canton,distrito"

rst.Open criterio, cnn1, adOpenKeyset, adLockPessimistic

Ok.

Si utilizas Acces 97 te envío un ejemplo que hace mucho lo utilizo y funciona muy bien (DAO):

' Establecer conexión con Passwod
Set wks = CreateWorkspace("", "admin", "", dbUseJet)
PasswordDB = "tupassword"
Set bd = wks.OpenDatabase("TuBD.mdb", False, False, ";pwd=" & PasswordDB)

' Establecer conexión sin Passwod
Set wks = CreateWorkspace("", "admin", "", dbUseJet)
Set bd1 = wks.OpenDatabase("TuBD.mdb")

' Consultas
cadena = "Select * From Personas"
Set rec = bd.OpenRecordset(cadena, dbOpenSnapshot)

' INSERT - UPDATE - DELETE
' Personas -> Tu tabla
cadena = "Personas"
Set rec = bd.OpenRecordset(cadena, dbOpenTable)
rec.Index = "primarykey"
' Doc -> variable índice
rec.Seek "=", Doc
...

Espero que te sea útil.
Saludos