Ado Y Password

[Neftali [Germán.Estévez]]

Se puede hacer compactando la Base de Datos y dando un nuevo password para el proceso.
Importa la librería "Microsoft Jet and Replication Objects 2.6 Library" desde delphi y utiliza el siguiente código:

Código Delphi [-]
uses JRO_TLB;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 engine: IJetEngine;
 src, dst, path: WideString;
begin
 // Directio donde se encuentra
 path := 'c:\temp\';
 //src: Base de Datos existente con assword antiguo
 src := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + 'dbdemos.mdb' +
  ';Jet OLEDBatabase Password=ANTIGUO';
  //dst: Base de Datos nueva con password cambiado
 dst := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + 'dbDemosNew.mdb' +
  ';Jet OLEDBatabase Password=NUEVO';
 
  // Compactar y cambiar el password
 engine := CoJetEngine.Create();
 engine.CompactDatabase(src, dst);
end;

La Base de Datos se debe abrir en modo exclusivo. Ésto te debe generar una base de datos nueva con el nuevo password; Si deseas luego puedes borrar la antigua (DeleteFile) y renombrar la nueva (RenameFile).