程序: 创建、压缩Access数据库并修改密码演示

最新推荐文章于 2020-10-07 12:04:09 发布

hnhongyu

最新推荐文章于 2020-10-07 12:04:09 发布

阅读量1.2k

点赞数

分类专栏： VFP代码文章标签：数据库 access database file function null

本文链接：https://blog.csdn.net/hnhongyu/article/details/154500

版权

此程序展示了如何使用VBA创建Access数据库、对其进行压缩以及更改密码。通过`CreateMDB`函数创建数据库，`CompactMDB`函数压缩并修改密码，而`ChangeMdbPassword`函数则用于单独更改数据库密码。程序使用了ADOX和JRO对象来执行这些操作。

摘要由CSDN通过智能技术生成

* --------------------------------------------
* 程序: 创建、压缩Access数据库并修改密码演示
* 设计: 红雨
* --------------------------------------------
Local lcMdbFile, lcRetuStr
lcMdbFile = [C:/Temp/TestCreaMdbFile.mdb]
lcPswd1 = [test1]
lcPswd2 = [test2]
lcPswd3 = [test3]
lcRetuStr = [创建、压缩Access数据库并修改密码演示：] + Chr(13)

If CreateMDB( lcMdbFile, lcPswd1)
    lcRetuStr = lcRetuStr + Chr(13) + [1、创建数据库成功         - 密码: ] + lcPswd1
    If CompactMDB( lcMdbFile, lcPswd1, lcPswd2 )
        lcRetuStr = lcRetuStr + Chr(13) + [2、压缩并修改密码成功     - 密码: ] + lcPswd2
        If ChangeMdbPassword( lcMdbFile, lcPswd2, lcPswd3 )
            lcRetuStr = lcRetuStr + Chr(13) + [3、单独修改数据库密码成功 - 密码: ] + lcPswd3
        Else
            lcRetuStr = lcRetuStr + Chr(13) + [3、单独修改数据库密码失败]
        Endif
    Else
        lcRetuStr = lcRetu