* --------------------------------------------
* 程序: 创建、压缩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