Delphi access 数据库压缩

本文整理自网络，侵删。

 
//uses ComObj; 
function compressDB(Afile:string):boolean; 
// 
var 
  DaoVar: OLEVariant; 
begin 
  try 
  DaoVar := CreateOleObject('dao.DBEngine.36'); 
  if FileExists('db.tmp') then deletefile('db.tmp'); 
//  DaoVar.CompactDatabase(afile,'db.tmp');    //压缩无密码的数据库 
  //压缩有密码的数据库。注意：密码不能为空 
  DaoVar.CompactDatabase(afile,'db.tmp',';pwd='+SDefDataBasePwd+'',0,';pwd='+SDefDataBasePwd+''); 
  if deletefile(afile) then RenameFile('db.tmp',Afile); 
  result:=true; 
  except 
    result:=False; 
  end; 
end; 

 

相关阅读 >>

Delphi 字符串的分割

Delphi获取优盘的id

Delphi2010 编译变量$region用法

Delphi中利用中断获得系统启动以来的时间

Delphi 查找目录下文件（多文件查找）

Delphi 图像操作

Delphi http json 验证token

Delphi 如何刷新文件图标

Delphi 得到执行程序的当前所在完整路径

Delphi 记事本与计算器的调用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi access 数据库压缩