Има няколко начина да се направи "Compact and Repair" na Access-ка база от Delphi(От значение е каква версия е Аccessa).
Ето един пример как да стане:

1. Пускаш Delphi-то и отиваш в менюто: Project=>Import Type Library, намираш в списъка с библиотеки "Microsoft Jet and Replication Objects 2.5 Library" и натискаш Install; После я добави в някой пакет(може и нов) и го прекомпилирай(компилирай);
2. В програмата която ще прави "Compact and Repair" добавяш след "uses" JRO_TLB;
3. Примерен код:

procedure TForm1.Button1Click(Sender: TObject);
var
JET: JetEngine;
strProvider: string
begin
strProvider:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
try
JET:=CoJetEngine.Create;
JET.CompactDatabase(strProvider+'c:\FileForRepair.mdb',
strProvider+'c:\RepairedFile.mdb');
finally
JET:=nil;
end;
end;

Това е


Видях да язди през реки, те седем са на брой...