为什么数据已经清空了，ACCESS文件还是这么大，如何彻底清空了，减少容量。

Question

如题，要能用代码实现。

Answer 1

uses
  ComObj;procedure TForm1.Button2Click(Sender: TObject);
var
  dao: OLEVariant;
  sFile: String;
begin
  OpenDialog.Filter := 'Access 数据库|*.mdb';
  if not OpenDialog.Execute then Exit;
  sFile := ExtractFilePath(OpenDialog.FileName) + '_' +
           ExtractFileName(OpenDialog.FileName);
  dao := CreateOleObject('DAO.DBEngine.36');
  dao.CompactDatabase(OpenDialog.FileName,sFile);
  DeleteFile(OpenDialog.FileName);
  RenameFile(sFile,OpenDialog.FileName);
end;

Answer 2

工具->数据库实用工具->压缩和修复数据库