Poner password a una BD en acces desde OLE
 

Hola. Saludos ante todos. Explorando un programa de trucos y codigos de delphi que tengo, me he encontrado una funcion que crea una BD en acces, sin tablas ni nada. Solamente se crea el archivo. Lo demas hay que crearselo desde SQL.

Ahora bien, yo deseo ponerle password a esa BD, pero ni modo de que lo consiga.

aqui esta el codigo...

Código Delphi [-]
function CreateAccessDatabase(FileName: string): string;
var
  cat: OLEVariant;
begin
  result := '';
  try
    cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');
    cat := NULL;
  except
    on e: Exception do
      result := e.message;
  end;
end;

Esto me crea la BD sin problemas. Despues, mediante los componentes ADO, la acceso, creo nuevas tablas ETC. Pero es que quiero que se cree con password. Pense en cambiar esto.

Código Delphi [-]
cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');

por esto otro.

Código Delphi [-]
cat := CreateOleObject('ADOX.Catalog');
    cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';Persist Security Info=False;Jet OLEDB:Database Password=sapito123;');

pero ni asi me funciona.
Por favor si alguien me puede ayudar, le estare muy agradecido...

parece que aqui lo explican, no se si funcione no lo eh probado

Bueno, es que no accedo al enlace. Por favor, podrias copiar el texto explicativo justo aqui para yo y los demas poder trabajar con el????


Gracias desde ya!

Bueno, lo que te muestro a continuación no proviene del enlace de luisgutierrezb, y tampoco es ADO sino DAO, pero funciona con dos lineas ;)

Código Delphi [-]
uses ComObj;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
var dao: OleVariant;
begin
 MoveFile('Database1.mdb', 'Database1.bak');
 dao := CreateOleObject('dao.dbengine.36');
 dao.CompactDatabase('Database1.bak', 'Database1.mdb', ';langid=0x040A;cp=1252;country=0', 2, ';pwd=HAclave');
 DeleteFile('Database1.bak');
end;

Saludos.

Ha, eso esta muy bueno. Solo que despues que lo pruebe les dire si me funciona o no.
Muchas gracias cHackAll por la ayuda brindada amigo...