Fórum ::: Como criar uma senha no arquivo MDB via Delphi ?! ... #154471

Dica extraída do DTDelphi:

716. Colocar senha geral em um banco de dados Access:

procedure TForm1.Button1Click(Sender: TObject);
var
DBDAO: Variant;
begin
DBDAO := CreateOleObject(´DAO.DBEngine.35´);
Screen.Cursor :=3D3D crHourGlass;
try
DBDAO.CompactDatabase(´C:SeuBancodeDadosAtual.MDB´,
´C:CopiaCompactadadoBancodeDados.MDB´,,,´;PWD=3DsenhadoBD´);
finally
Screen.Cursor := crDefault;
DBDAO := Unassigned;
end;
ShowMessage(´Operacao Concluida´);
end;