Manejo mucho este código simple que realiza la conexión a la BD sin ADO, es "código puro",
pero al agregarle una contraseña a la base de datos no logro hacer que este código la abra.
La neta no se que es lo que le falta, donde poner la instrucción del Password, o si se debe de escribir de otra forma.... En fin no tengo idea de como va..
Si alguién me puede ayudar lo agradeceré mucho...
El código es el siguiente....
Private Sub Text1_Change()
Set BaseDatos = OpenDatabase(App.Path & "\bd1.mdb")
'************************************************
' Como validar una Contraseña de la BD ???
' Set BaseDatos = OpenDatabase(Password = edson) <----
' Obviamente así no es
'************************************************
Set Rs = BaseDatos.OpenRecordset("Select * From escuela")
With Rs
Dim BCadenay, B As Variant
If Rs.RecordCount > 0 Then
List8.Clear
List9.Clear
List10.Clear
List11.Clear
List1.Clear
Rs.MoveFirst
BCadenay = Len(Text2.Text)
While Not Rs.EOF
cadenay = Mid(Rs(1), 1, Len(Text2.Text))
If UCase(cadenay) Like UCase(Text2.Text) Then
List1.AddItem "$"
List8.AddItem Rs(0)
List9.AddItem Rs(1)
List10.AddItem Rs(4)
List11.AddItem Rs(3)
End If
Rs.MoveNext
Wend
End If
End With
End Sub
