用Delphi 压缩Access数据库

• uses dao97,dao2000;

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

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

  （出处：急速软件下载学院）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用Delphi 压缩Access数据库 相关文章：
• ·用Delphi 压缩Access数据库
• 用Delphi 压缩Access数据库 相关软件

上一篇:Delphi 消息机制学习笔记

下一篇:用Delphi 3.0编制MP3音乐点歌台

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐