Como conectarse una base de datos Access con Contraseña?
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!!! |
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. |
Cita:
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! |
Cita:
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. |
Conectalo con un método
<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 OLEDB:Database 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> |
La franja horaria es GMT +2. Ahora son las 14:47:24. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi