Eğer DAO 3.6, kullanıyorsanız 'DAO.DBEngine.35' yerine 'DAO.DBEngine.36' yazın.
Uses kısmına da ComObj unitini eklemeyi unutmayın.
Sıkıştırmak için,
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.35');
dao.UserName :='Admin';
dao.DefaultPassword := '123';
dao.CompactDatabase('d:\eskidata.mdb',
'd:\yenidata.mdb');
end;
Daha sonra sıkştırılmamış database i silip sıkıştırılmış database in ismi de
değiştirilmelidir.
Onarmak için,
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.35');
dao.RepairDatabase('d:\eskidata.mdb');
end;