Eihwaz
31 de Agosto del 2003

Hola!
Me da el error 2147467259 al abrir una base de datos. Por lo que parece la conexión la hace, el problema viene al abrir la bdd, que no la abre, me da ese error.
He estado mirando por ahi acerca de este error pero no consigo resolverlo.
Tengo un modulo de datos donde esta la funcion para abrir la conexion y la bdd

Public Sub abrir_conexion(BaseDatos As String)
conexion.Provider = "Microsoft.Jet.OLEDB.4.0"
conexion.ConnectionString = "Data Source=" & BaseDatos
On Error Resume Next
conexion.Open
If Err Then
MsgBox "No puedo la abrir la base de datos.Contacta con María", , "Error" & Err
End
End If
On Error GoTo 0
End Sub

Public Sub abrir_rs(rs As Recordset, datos As String, localizacion As Integer)
Set rs = New Recordset
rs.LockType = adLockOptimistic
rs.CursorLocation = localizacion
rs.CursorType = adOpenDynamic
rs.Source = datos
rs.ActiveConnection = conexion
rs.Open
End Sub

Y hago la llamada en el form_load del formulario principal del programa

Private Sub Form_Load()
abrir_conexion "bd1.mdb"
abrir_rs rsdos, "SELECT * FROM tbdia", adUseClient

No me explico a que se debe, alguien tiene alguna idea?
Gracias

xvisual
31 de Agosto del 2003

hola
vi tu problema y al agregar en el procedimiento
abrir_conexion el lugar donde se encuentra la base no arroja error ejm:
ejm 1 si se encuentra la base en el mismo lugar que el ejecutable (exe)
abrir_conexion App.Path & "" & "bd1.mdb"

ejm 2 si se encuentra la base en otra carpeta
abrir_conexion "c:archivo de programas programa base" & "bd1.mdb"

Eihwaz
31 de Agosto del 2003

Muchisimas gracias, pero muchas, eh? Ya me funciona, menos mal. Ya creia que me iba a dar algo con el maldito error, jeje.
Gracias de nuevo :)