VB使用ADOX压缩修复ACCESS数据库文件的类模块

最新推荐文章于 2022-01-07 14:43:51 发布

原创

最新推荐文章于 2022-01-07 14:43:51 发布 · 690 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #access #vb #string #microsoft #kill

这是一个VB类模块，用于压缩和修复ACCESS数据库文件。通过引用Microsoft Jet and Replication Objects库，该模块提供了备份数据库、压缩数据库到临时文件，然后替换原文件的功能。在压缩过程中，如果需要，它还会自动备份原始数据库。类模块由段利庆开发，并提供了错误处理和用户反馈机制。

Option Explicit '//*********************************************************************** '//类模块名称：ClsCompactDatabase '//版权所有：米特仪表有限公司版权所有 '//开发作者：段利庆(Lee) '// QQ:14035344 '// http://www.duanliqing.kudo.cn '// http://leek.woku.com '//创建日期：2010-07-28 '//功能描述：处理数据库文件备份 '// 备注：引用 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。 '//*********************************************************************** '*系统临时文件夹路径 Private Declare Function GetTempPath Lib "kernel32" Alias _ "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Sub ErrMessage(ByVal Procedure As String, _ Optional ByVal AffErrMsg As String) '' ========================================================== ' 开发人员：段利庆 ' 编写时间：2009-02-01 ' 过程名称：ErrMessage ' 参数说明：Procedure 过程或函数的名称 ' 可选参数：AffErrMsg 附加说明的错误消息提示文本 ' '

最低0.47元/天解锁文章