access的清空问题。

Question

压缩数据库即可，转一个答案uses dao_2k;Var
  Engine TCOM_DBEngine;
Begin
  Engine := CoDBEngine.Create;
  Engine.CompactDatabase( srcDatabase, destDatabase );
  Engine.Free;
End;

Answer 1

dao_2k单元到那里导？我用的是delphi5。delphi6中查了一下，好像也没呀！

Answer 2

uses ComObj
var  Access1:OleVariant;begin access1:= CreateOleObject('DAO.DBEngine.35');//access2000 是 .40 access1.CompactDatabase( srcDatabase, destDatabase );
 access1.free;
  
end;

Answer 3

直接用dao
procedure TForm1.Button1Click(Sender: TObject);
var
  dbe:olevariant;
begin
// DBEngine
  dbe:= CreateOleObject('dao.DBEngine.36');  //or 'dao.DBEngine.35'
  if OpenDialog1.Execute then
  dbe.CompactDatabase(OpenDialog1.FileName, ExtractFilePath (OpenDialog1.FileName) + 'c.mdb', '', 0, '');
end;