ADO创建空数据库

易语飞扬

.版本 2

.子程序 _临时子程序

ADO_创建数据库 (“C:\123.mdb”, “mdb”)

.子程序 ADO_创建数据库, 逻辑型, 公开
.参数 文件名, 文本型, , 格式：C:\123.mdb
.参数 类型, 文本型, , 可选值：mdb、accdb。accdb需安装32位Access Database Engine驱动。
.局部变量 ADOX, 对象

.如果真 (文件是否存在 (文件名) ＝ 假)
    .如果真 (ADOX.创建 (“ADOX.Catalog”, ))
        .判断开始 (文本比较 (类型, “mdb”, 假) ＝ 0)
            ADOX.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 文件名)
        .判断 (文本比较 (类型, “accdb”, 假) ＝ 0)
            ADOX.通用方法 (“Create”, “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” ＋ 文件名)
        .默认

        .判断结束
        返回 (文件是否存在 (文件名))
    .如果真结束

.如果真结束
返回 (假)

杨明煜

学习学习！........

116154801

感谢分享

hehz977

感谢分享，很给力！~

一指温柔

感谢分享，很给力！~

year1970

感谢分享

qqmqqg

666666666666666666

wh1234567

感谢分享

SMTHU

.如果真结束 返回 (假)

鱼雨遇玉羽

lassgo 发表于 2026-4-11 18:08
这代码有点意思啊，直接调用就能创建mdb，不过路径写死了不太灵活，建议加个参数让用户自己选路径哈。 ...

不是！"C:\123.mdb"是参数的举例呀。