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; 

 

相关阅读 >>

md5unit.pas

java2op.exe，Delphi安卓原生桥接文件生成器

Delphi 自动填表代码

Delphi 让控制台窗口不现实出来

Delphi xe5如何像手机qq一样最小化后显示图标

Delphi 提升Delphi 启动加载速度

Delphi把一个字符串中的某个子串，用另一个子串去替换

Delphi隐藏桌面图片和显示桌面图标

datasnap服务器如何得到客户端的ip和端口

Delphi更新本地时间

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

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