用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、你可以修改下面的附件，只需把文件路径和密码修改下即可。这个应该没有难度吧。附件可是源码分享呀

点击下载此附件