access数据库压缩:用Delphi压缩Access数据库

uses dao97,dao2000;

procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,pwd:;bAccess97:boolean=true);
var idbEngine:_dbEngine;
begin
   oldpwd <>'' then oldpwd := ';pwd='+oldpwd;
   pwd <>'' then pwd := ';pwd='+pwd;

   bAccess97 then
  begin
    idbengine := CreateComObject(dao97.CLASS_DBEngine) as _DBEngine;
    idbEngine.CompactDatabase(srcDbname,dstDbname,pwd,dbVersion30,oldpwd);
  end
  begin
    idbengine := CreateComObject(dao2000.CLASS_DBEngine) as _DBEngine;
    idbEngine.CompactDatabase(srcDbname,dstDbname,pwd,dbVersion40,oldpwd);
  end;
end;

延伸阅读

• 2008-12-26-- delphi数据库:用Delphi实现区别数据库系统的间的数据转移
• 2009-2-12-- delphi表格:Delphi数据表格增加彩色
• 2009-2-12-- delphi数据库:Delphi开发单机瘦数据库程序要点
• 2008-9-24-- delphi数据库:为Delphi中数据库报表加网格
• 2008-12-26-- delphi数据库:DELPHI存取JPEG文件到SQL Server数据库
• 2009-2-12-- delphi数据库:Delphi开发单机瘦数据库程序要点
• 2009-2-12-- 数据库管理器:delphi数据库引擎管理器
• 2008-12-26-- delphi数据库:用delphi批量导入某子目录下所有JPG图片文件到数据库
• 2008-9-24-- delphibcb:三层数据库与应用程序服务器的小型介绍（Delphi&BCB)
• 2008-9-24-- delphi数据库:Delphi将纯文本资料转入数据库