Estoy realizando una aplicación con vb6 en la cual accedo a una BD creada con Access (Windows XP). He asignado por código una contraseña para mi BD, pero no consigo crear un Recordset a partir de una sentencia SQL muy básica.

Este es el código:

Public Sub abreBD(rst As Recordset, sql As String)
Dim ruta As String
Dim miCont As String
Dim baseDatos As Database

ruta = App.Path + "\Default.mdb"
Set baseDatos = OpenDatabase(ruta, True, False, "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta & ";pwd=pass")
Set rst = baseDatos.OpenRecordset(sql, dbOpenTable)
End Sub

En la linea roja es donde me falla y me dice que no se pudo establecer la conexión.

¿Alguien me puede ayudar, por favor?


Muchas gracias.

De la manera que tratas de abrir la base de datos, creo que el aomando correcto sería éste.

Set baseDatos = OpenDatabase(ruta, True, False)

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

¿Y qué pasa con la contraseña?

**** 1º creo la cadena de conexion al comienzo del programa
Global cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & G_BDD & ";Persist Security Info=False;Jet OLEDBatabase Password=pass"
cn.Open

**** 2º trabajo con los recordset
Dim Ado As ADODB.Recordset
Set Ado = New ADODB.Recordset
dim vSQL as string

vSQL=""
Ado.Open vSQL, cn, adOpenKeyset, adLockOptimistic

__________________
### http://www.ibernodos.com ###

Problema resuelto. Muchas gracias