压缩access数据库易语言源码

.版本 2

.子程序 压缩mdb数据库, 整数型, , 请注意先关闭数据库.返回0成功,返回1则是创建系统对象失败,返回1是调用失败,返回3是数据库使用中
.参数 路径, 文本型
.参数 密码, 文本型, 可空
.局部变量 对象, 对象
.局部变量 临时路径, 文本型

.如果真 (对象.创建 (“JRO.JetEngine”, ) = 假)
返回 (1)
.如果真结束
临时路径 = 取临时文件名 ()
对象.方法 (“CompactDatabase”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” + 路径 + 选择 (是否为空 (密码), “”, “;Jet OLEDB:Database Password=” + 密码), “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” + 临时路径 + 选择 (密码 = “”, “”, “;Jet OLEDB:Database Password=” + 密码))
.如果真 (对象.取错误 () ≠ “”)
返回 (2)
.如果真结束
对象.清除 ()
.如果真 (删除文件 (路径) = 假)
删除文件 (临时路径)
返回 (3)
.如果真结束
.如果真 (复制文件 (临时路径, 路径) = 假)
返回 (3)
.如果真结束
返回 (选择 (删除文件 (临时路径), 0, 3))

Leave a Comment

 
Copyright © 2008-2021 lanxinbase.com Rights Reserved. | 粤ICP备14086738号-3 |