当前位置:首页 » 网站技术

用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;

继续阅读
用Delphi制作以浏览器为界面的应用程序
用Delphi实现文件下载的几种方法
Delphi开发基于DCOM的聊天室
在Delphi中实现图片的旋转、缩放
用Delphi轻松实现字数统计
Delphi面向对象编程的20条规则
发表评论

昵称:
最新评论
暂时没有评论!