【Access源码】鲜为人知的隐藏功能实现自动生成mde/accde
时 间:2019-03-31 17:33:16
作 者:红尘如烟 ID:10768 城市:成都
摘 要:如何用代码自动生成mde/accde文件
正 文:
当我们用Access开发一个软件完成之后,为了保护我们的劳动成果,一般有2种方式:设置VBA工程密码,编译生成mde/accde格式的仅执行文件。
而由于mdb格式已使用多年,现在网上轻易便能找到破解mdb格式的工具。而accdb格式虽然暂时没有破解工具在网上流传,但VBA本身其实已经很多年没有什么更新了,每次的新版本仅仅只是维护。因此VBA工程密码是不怎么保险的方式。那么剩下的唯一出路,就只有生成mde/accde格式的仅执行文件了。
一般我们都是通过菜单或功能区来生成。
但随着我们使用Access开发的越来越深入,就会想,每次都要点几下也挺烦的,能不能用代码自动来完成这个生成mde/accde的功能呢?
通过在VBA界面按F2打开对象浏览器,我们只找到一个 Runcommand acCmdMakeMDEFile 命令。然而很可惜,此命令是没有参数的,我们不能指定文件路径名,它本质还是和我们手动操作一样,达不到我们“自动”的需要。
拔剑四顾心茫然,敢问路在何方?路当然是有的,否则本公子半天牛逼不都白吹了!我当然不会干那种只收刀片不收红包的事情啦!
不卖关子,答案揭晓:
其实Access还有一个完全隐藏的功能可以来实现自动生成mde/accde,只不过这个功能,我们从对象浏览器,帮助文档,都是找不到它的踪迹的。
这难道就是传说中口口相传,不落文字的武林门派最高秘传心法?! 还等什么!快抢一本走罢!
'============================================================================ '函数名称: MakeMDE '功能描述: 根据MDB/ACCDB文件,编译生成MDE/ACCDE文件。 '输入参数: MDBPathname 源MDB文件路径名。 ' MDEPathname 要生成的MDE/ACCDE文件路径名。 '返回参数: 成功返回True,失败返回False。 '相关调用: '使用注意: 这里用的是Access的隐藏功能,603这个常量值,在对象浏览器和帮助文档中是找不到的。 ' 因此有可能未来的新版本Access不支持此功能,不过目前到2019都还能用。 ' 另外此函数不能放在要用来生成的MDB/ACCDB文件中,必须要在另一个文件中使用。即你 ' 不能把此函数放在A.mdb中,然后再调用它A.mdb生成A.mde。必须把函数放在B.mdb中, ' 调用它来生成A.mde。 '兼 容 性: Access 2003~2019 '参考资料: '作 者: 红尘如烟 '修订记录: 2012-07-21 创建。 ' 2019-03-31 添加错误处理,进行完善。 '============================================================================ Function MakeMDE(MDBPathname As String, MDEPathname As String) As Boolean On Error GoTo ExitHere '此常量Access本身没有,必须有这句常量声明,或者直接使用603这个值。 Const acSysCmdMakeMDE = 603 MakeMDE = False Dim appAccess As New Access.Application appAccess.SysCmd acSysCmdMakeMDE, MDBPathname, MDEPathname appAccess.Quit acQuitSaveNone MakeMDE = True ExitHere: Set appAccess = Nothing Exit Function ErrorHandler: MsgBox Err.Description, vbCritical, "Error #" & Err.Number Resume ExitHere End Function
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)
- 【Access窗体导出PDF】给A...(04.07)