Help! Help! Help! 怎样 压缩和修复MS Access数据库？

Question

Help! Help! Help! 怎样 压缩和修复MS Access数据库？
删除了MS Access数据库里的记录后，但它的数据库大小不会减少，
怎样通过程序 压缩和修复MS Access数据库？
Thanks.

Answer 1

//转一个
uses  DAO2000; //实现Access 2000数据库压缩，缩影维护功能
procedure CompressAccess(AccessFile : string);
var
  AccessEngine: DBEngine;
  TmpStr : string;
begin
  TmpStr := ExtractFilePath(ParamStr(0));
  dmshare.BakDisConnect;
  AccessEngine:=CoDBEngine.Create;
  //通过DAO方式压缩Access2000格式的数据库
  AccessEngine.CompactDatabase(AccessFile,
        TmpStr + 'TempFile.mdb','',0,'');
  DeleteFile(AccessFile);
  CopyFile(PChar(TmpStr+'TempFile.mdb'),  Pchar(AccessFile),False);
  DeleteFile(TmpStr+TempFile.mdb');
end;