CONTRASEÑA BD ACCESS Y ADO
Publicado por Aseluis (130 intervenciones) el 04/08/2003 20:26:25
Les ruego me digan la forma de conectar a un base de datos de access 2000. He leido bastante en el foro sobre ello pero no consigo hacerlo. Utilizo el siguiente código:
ChDir App.Path
Const sPathBase As String = "Palabra.mdb"
Set cnoContraseña = New ADODB.Connection
Set rstContraseña = New ADODB.Recordset
With cnoContraseña
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";UID=Admin;PWD=Contraseña"
.Open
End With
rstContraseña.Open "SELECT * FROM Palabra", cnoContraseña, adOpenDynamic, adLockOptimistic
With rstContraseña
verpalabra = .Fields("palabraclave")
'esto es solo para comprobar luego la clave con un textbox
End With
Me imagino que estará mal la forma de intentar meterle la contraseña y el usuario, ya que si le quito UID=Admin;PWD=Contraseña me abre la base de datos perfectamente (quitandole antes la clave, claro)
El error que me da es "No se pudo encontrar el archivo ISAM instalable"
Pero yo creo que simplemente lo pongo mal.
Gracias
ChDir App.Path
Const sPathBase As String = "Palabra.mdb"
Set cnoContraseña = New ADODB.Connection
Set rstContraseña = New ADODB.Recordset
With cnoContraseña
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";UID=Admin;PWD=Contraseña"
.Open
End With
rstContraseña.Open "SELECT * FROM Palabra", cnoContraseña, adOpenDynamic, adLockOptimistic
With rstContraseña
verpalabra = .Fields("palabraclave")
'esto es solo para comprobar luego la clave con un textbox
End With
Me imagino que estará mal la forma de intentar meterle la contraseña y el usuario, ya que si le quito UID=Admin;PWD=Contraseña me abre la base de datos perfectamente (quitandole antes la clave, claro)
El error que me da es "No se pudo encontrar el archivo ISAM instalable"
Pero yo creo que simplemente lo pongo mal.
Gracias
Valora esta pregunta


0