用Delphi 压缩Access数据库
来源:互联网 发布:软件测试培训班 编辑:程序博客网 时间:2024/05/15 10:41
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 压缩Access数据库
- 用Delphi压缩Access数据库
- 用DELPHI压缩ACCESS数据库
- Delphi 压缩Access数据库
- Delphi压缩access数据库
- Delphi下压缩Access数据库
- Delphi动态创建、压缩Access数据库
- DELPHI 创建、压缩ACCESS
- 使用Delphi压缩Access
- delphi压宿Access数据库
- Delphi连接access数据库
- Delphi 收缩Access数据库
- 用C#压缩和修复Access数据库
- 用C#压缩和修复Access数据库
- 用C#压缩和修复Access数据库
- 用C#压缩和修复Access数据库
- 用C#压缩和修复Access数据库
- 怎样压缩access数据库
- 关于焰火和其他的一些记录
- Google新闻中国版
- 参考
- OBB立项!
- 用php得到网卡mac--来自phpx.com
- 用Delphi 压缩Access数据库
- 使用增强的Windows窗体为你的.Net程序打造丰富的用户界面
- spring,ioc模式与ejb3的SLSB实现
- 请不要做浮躁的人
- Google两个细微改变
- 自定义DataSet,并写入数据
- 准备开放我的工作流客户端开源程序
- String 和 VariantArray
- [中文]Do All in Cmd Shell