UMV平台压缩后台MDB数据库的思路－源码分享

时　间:2016-05-25 23:02:05
作　者:王三平   ID：17  城市：秦皇岛
摘　要:用UMV平台开发了一个单机版的应用软件，后台为MDB数据库，想在前台压缩后台数据库，怎么实现？在红尘如烟老师的提示下，找到了思路，表示感谢。特贴此文，为需要此功能的朋友提供帮助。
当然需要提示大家的是：执行此操作前，最好把后台数据库先备份下呀。红尘如烟告诉我，压缩操作有时候会造成文件损坏，无法打开，到时可就惨了。虽然损坏的机率比较小，但是不怕一万，只怕万一。
正　文:

用UMV平台开发了一个单机版的应用软件，后台为MDB数据库，想在前台压缩后台数据库，怎么实现？在红尘如烟老师的提示下，找到了思路。具体实现步骤如下：

1、在前台建一个窗体，窗体上放置一个命令按钮，按钮的单击事件代码为：

Private Sub cbmCopactBackDB_Click()
    CompactBackDB
    Application.Quit
End Sub

2、 引用的CompactBackDB（）函数代码为

 Public Function CompactBackDB()
'请确保存在此文件，打开一个执行压缩功能的ACCESS文件，具体内容参考上传的附件呀。
    OpenAccessApp CurrentProject.Path & "\CompactDB.mde"
End Function

3、CompactDB.mde文件的压缩代码函数如下

Public Function ComPactBackDB(FilePath As String, Optional Exclusive As Boolean = False, Optional bstrPassword As String) As Boolean
'利用ACCESS自带的压缩功能压缩数据库
    On Error GoTo ErrorHandler
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase FilePath, Exclusive, bstrPassword
    objAccess.CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction
    ComPactBackDB = True
ExitHere:
    Exit Function
ErrorHandler:
    ComPactBackDB = False
    GoTo ExitHere

End Function

4、你可以修改下面的附件，只需把文件路径和密码修改下即可。这个应该没有难度吧。附件可是源码分享呀

点击下载此附件

Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店