1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| function CompactAccessDB(db,mdp : string): Boolean; {DB = path complet de la base Access, MdP = password de la DB }
// Ajouter ComObj dans les Uses
var
v: OLEvariant;
begin
Result := False;
//backup de la base
if not CopyFile(PAnsiChar(db),PAnsiChar(db+'.bak'),False)
then begin
showmessage('Base de données introuvable');
exit;
end;
//compactage
try
v := CreateOLEObject('JRO.JetEngine');
try
begin
V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db+';Jet OLEDB:Database Password='+mdp,
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db+'comp'+';Jet OLEDB:Database Password='+mdp); //compactage
DeleteFile(db);// suppression de la base d'origin
RenameFile(db+'comp',db); // mise en place de la base compactée
Result := True;
end;
except
showmessage('exception lors du compactage');
end;
finally
V := Unassigned;
end;
end; |