Como conectarse una base de datos Access con Contraseña?

[DiegoGonzalez]

Hola! Gente de Club Delphi !... Queria preguntarles si alguien sabe como conectarse a una base de datos access con contraseña.

Siempre conecte a Base de datos Access sin contraseña por medio de un AdoConnection, con loginPromp en false; y ahora queria conectar una base de datos con un poco más de seguridad pero se me complico poniendo la contraseña!

Desde ya muchas gracias por su Ayuda!... Y por entrar al Tema!

Saludos!!!

[ozsWizzard]

No recuerdo exactamente que había que poner pero es más fácil que eso.

1.- Dobleclick en el AdoConnection o en la propiedad ConectionString del mismo, en el botón donde salen los puntos.
2.- Se abre una pantalla, pulsa el botón Build;
3.- En la siguiebnte pantalla seleccionar el motor de base de datos Access (Microssof Jet 4.0..)
4.- EN la 4 pantalla saldrá como poner la contraseña y usuario.

Eso forma el conection string. Siempre puedes ver como se ha formado por si necesitas montarlo en tiempo de ejecución.

Espero te sirva de ayuda.

[DiegoGonzalez]

Empezado por ozsWizzard

No recuerdo exactamente que había que poner pero es más fácil que eso.

1.- Dobleclick en el AdoConnection o en la propiedad ConectionString del mismo, en el botón donde salen los puntos.
2.- Se abre una pantalla, pulsa el botón Build;
3.- En la siguiebnte pantalla seleccionar el motor de base de datos Access (Microssof Jet 4.0..)
4.- EN la 4 pantalla saldrá como poner la contraseña y usuario.

Eso forma el conection string. Siempre puedes ver como se ha formado por si necesitas montarlo en tiempo de ejecución.

Espero te sirva de ayuda.

Muchas Gracias por tu respuesta hice lo que me pusiste pero me sale este Error:

Error en la prueba de conexión al iniciar al provedor. No se puede iniciar la aplicación. Falta el Archivo de información de grupo de trabajo o bien está abierto en modo exclusivo por otro usuario (Cabe destacar que la base esta completamente Cerrada!).

Es la primera vez q intento ponerle contraseña a la Base!

Saludos!

[olbeup]

Empezado por DiegoGonzalez

Muchas Gracias por tu respuesta hice lo que me pusiste pero me sale este Error:

Error en la prueba de conexión al iniciar al provedor. No se puede iniciar la aplicación. Falta el Archivo de información de grupo de trabajo o bien está abierto en modo exclusivo por otro usuario (Cabe destacar que la base esta completamente Cerrada!).

Es la primera vez q intento ponerle contraseña a la Base!

Saludos!

Hola DiegoGonzalez,

La contraseña debe de ir en "Jet OLEDB:New Database Password" y no tendrás ningún problema.

Pasos a seguir:
ADOConnection1.ConecctionsString hacer click en los tres puntos.
Pulsar el boton Build...
Seleccionar Microsoft Jet 4.0 OLE DB Provider y pulsar boton Siguiente
Pulsar en los tres puntos y localizar la DB (.mdb), desmarcar [] Contraseña en blanco.
Ahora te posicionas en la lengueta en donde dice [Todas], buscas Jet OLEDB:New Database Password y hay le pones el password de la base de datos.


Un saludo.

[GerTorresM]

<delphi>function ConexionBDADO(pNombreBaseDatos, pContrasena: String): TAdoConnection;
var ConStr_local : String;
BaseDatosAplicacion : TAdoConnection;
begin
Result:= nil;
if FileExists(pNombreBaseDatos) then
begin
ConStr_local:= 'Provider=Microsoft.Jet.OLEDB.4.0; ' +
'User ID=Admin;'+
'Data Source=' + pNombreBaseDatos + ';' +
'Persist Security Info=False;' +
'Jet OLEDBatabase Password=' + pContrasena ;
BaseDatosAplicacion:= TADOConnection.Create(nil);
BaseDatosAplicacion.ConnectionString:= ConStr_local;
BaseDatosAplicacion.LoginPrompt:= False;
BaseDatosAplicacion.open;
Result:= BaseDatosAplicacion;
end
else begin
Showmessage('No existe la base de datos');
exit;
end;
end;
</delphi>