ACCESS 数据库大小的问题！帮帮小弟吧！

Question

请问：我用drop table 删除表后的数据库大小为什么没有变化。该如何解决！

Answer 1

程序实现不知道，在Access中可以这样做：
文件->打开->选中文件以独占模式打开->工具->数据库实用工具->压缩和修复数据库

Answer 2

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;

Answer 3

删除“dmshare.BakDisConnect;”这一行！