🚀 go-pugleaf

Set property "Jet OLEDB:Database Password" to existing password and "Jet
OLEDB:New Database Password" to new password. Or compact database with new
password. In Delphi this looks as:

uses
    ADOX_tlb;

procedure TForm1.Button1Click(Sender: TObject);
var
 engine: IJetEngine;
 src, dst, path: WideString;
begin
 path := ExtractFilePath(ParamStr(0));
 //src is connection string to existing database with old password
 src := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path + 'test.mdb'
+
  ';Jet OLEDB:Database Password=oldpassword';
  //dst is connection string to compacted db with new password
 dst := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + path +
'compacted.mdb' +
  ';Jet OLEDB:Database Password=newpassword';

 engine := CoJetEngine.Create();
 engine.CompactDatabase(src, dst);
end;

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"neeme" <neeme2003@hotmail.com> �������/�������� � �������� ���������:
news:41af222d@newsgroups.borland.com...
> Hi:
>
>   I use BCB 5.0  with  ADO.
>
>   How can i set or change password for mdb file?
>
>   Thank you!
>
>