用DELPHI压缩ACCESS数据库
来源:互联网 发布:qq分组软件下载 编辑:程序博客网 时间:2024/05/16 05:49
uses dao97,dao2000; //引用这两个单元
{使用本函数时调用
CompactMdbDatabase('数据库原路径','数据库目标路径','旧密码','新密码',是否是97的数据库) }
{使用本函数时调用
CompactMdbDatabase('数据库原路径','数据库目标路径','旧密码','新密码',是否是97的数据库) }
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;
0 0
- 用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数据库
- 传送门
- 深入调试tomcat源码
- 虚拟机的几种网络连接方式
- CNPM私有库在企业中的应用
- VirtualBox没有64位选项,无法安装64位的解决方法
- 用DELPHI压缩ACCESS数据库
- 斯坦福大学卷积神经网络----Module 1 Lesson 4 反向传播
- 套路啊!~小玩Android数据传输
- dbms_sql ORA-29471: DBMS_SQL 访问被拒绝
- websphere性能调优方案
- 获取网站或标签页的favicon.ico
- 用Cookie和Session简单实现购物车
- 消息摘要算法
- Cryptographic Authentication Notes