Poner password a una BD en acces desde OLE

[fide]

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!

[[cHackAll]]

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.

[fide]

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...