利用JRO.JetEngine对象实现Access数据库压缩

资源介绍：

利用JRO.JetEngine对象实现Access数据库压缩

资源作者：

易语言数据库源码

资源界面：

.版本 2

.子程序 _按钮1_被单击
.局部变量 对象, 对象
.局部变量 source, 文本型
.局部变量 target, 文本型

.如果真 (对象.创建 (“JRO.JetEngine”, ) ＝ 假)
    信息框 (“JRO.JetEngine对象不存在，无法压缩数据库”, #错误图标, “error”)
    返回 ()
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)
.如果真 (通用对话框_源文件.打开 () ＝ 假)
    返回 ()
.如果真结束
.如果真 (通用对话框_目标文件.打开 () ＝ 假)
    返回 ()
.如果真结束
source ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 通用对话框_源文件.文件名
target ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 通用对话框_目标文件.文件名
按钮1.禁止 ＝ 真
按钮1.标题 ＝ “正在压缩中......”
处理事件 ()
对象.方法 (“CompactDatabase”, source, target)
按钮1.禁止 ＝ 假
按钮1.标题 ＝ “压缩Access”
信息框 (“压缩成功！” ＋ #换行符 ＋ “源文件:” ＋ 通用对话框_源文件.文件名 ＋ #换行符 ＋ “体积为：” ＋ 到文本 (取文件尺寸 (通用对话框_源文件.文件名) ＼ 1024) ＋ “KB” ＋ #换行符 ＋ “新文件:” ＋ 通用对话框_目标文件.文件名 ＋ #换行符 ＋ “体积为：” ＋ 到文本 (取文件尺寸 (通用对话框_目标文件.文件名) ＼ 1024) ＋ “KB”, #信息图标, “恭喜”)

资源下载：