求ACCDB文件( ACCESS2007 ) 易语言可以用的压缩代码

一指温柔

求ACCDB文件( ACCESS2007 ) 易语言可以用的压缩代码

ermituofo

.版本 2

.子程序 优化Mdb文件, 逻辑型, 公开
.参数 参_Mdb文件路径, 文本型
.局部变量 局_对象, 对象
.局部变量 局_source, 文本型
.局部变量 局_target, 文本型

.如果 (文件是否存在 (参_Mdb文件路径) ＝ 真)
    局_对象.创建 (“JRO.JetEngine”, )
    局_source ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 参_Mdb文件路径 ＋ “;Jet OLEDB:Database Password=********”
    局_target ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 参_Mdb文件路径 ＋ “.compact;Jet OLEDB:Database Password=********”
    局_对象.方法 (“CompactDatabase”, 局_source, 局_target)
    处理事件 ()
    .如果真 (文件是否存在 (参_Mdb文件路径 ＋ “.compact”) ＝ 真 且 删除文件 (参_Mdb文件路径) ＝ 真)
        文件更名 (参_Mdb文件路径 ＋ “.compact”, 参_Mdb文件路径)
        处理事件 ()
    .如果真结束
    返回 (真)
.否则
    返回 (假)

一指温柔

ermituofo 发表于 2023-8-28 15:56
.版本 2

.子程序 优化Mdb文件, 逻辑型, 公开

这个是mdb 的吧  需要 ACCDB文件( ACCESS2007 )

补充内容 (2023-8-28 16:14):
新软件输出的是这个格式  旧的mdb不能用

一指温柔

压缩这个类型的

补充内容 (2023-8-30 08:53):
https://wwny.lanzouj.com/iOj4y16vahij
密码:dhh1