Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
oJetEng : JetEngine;
begin
sOldMDB := sProvider + 'Data Source=' + sOldMDB;
sNewMDB := sProvider + 'Data Source=' + sNewMDB;

try
oJetEng := CoJetEngine.Create;
oJetEng.CompactDatabase(sOldMDB, sNewMDB);
oJetEng := Nil;
Result := True;
except
oJetEng := Nil;
Result := False;
end;
end;


Ornek :

if CompactAndRepair('e:\Old.mdb', 'e:\New.mdb') then
ShowMessage('İşlem Başarılı.')
else
ShowMessage('İşlemde Hata Oluştu.');

Onemli Not:
1- JRO_TLB unit ini uses bolumune ekleyin.
2- Database sıkıştırılırken kimse database i acıp kullanmamalıdır.
3- Eğer JRO_TLB unit i ile ilgili Delphi hata verirse aşağıdakileri yapın
a) Delphi menusunde Project - Import Type Library i secin
b) "Microsoft Jet and Replication Objects 2.1 Library" i bulun.
c) Install butonunu tıklayın.
d) Programınızı tekrar derleyin
__________________