如何通过 VisualBasic.NET 压缩 MicrosoftAccess 数据库

1. 打开一个新的 VisualBasic.NET 控制台应用程序。 
2. 在 添加引用 对话框中, 单击 COM 选项卡, 然后选择 Microsoft Jet 和 Replication Objects 2 x x 库 。 单击 选择 将其添加到 选定组件 。 单击 确定 。

注意 在此步骤, x 是占位符， 代表 Microsoft Jet 和 Replication 对象库组件的实际版本号。
3. 如果没有找到选库没有包装将显示警告。 单击 是 以生成包装。 Microsoft ActiveX 数据对象库 (ADODB) 和 JRO 引用将添加到项目 引用 。 
4. 将以下代码复制并粘贴到代码窗口：Module Module1

    Sub Main()

        Dim jro As JRO.JetEngine

        jro = New JRO.JetEngine()

        jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/nwind.mdb", _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/NewNwind.mdb;Jet OLEDB:Engine Type=5")

        MsgBox("Finished Compacting Database!")
    End Sub

End Module
     
 
压缩数据库会在 Access 2000 (Jet 4.0) 格式。为了压缩数据库, Jet 数据库引擎要求独占访问到数据库文件。 试图压缩当前正在使用数据库文件将导致异常。 使用 Try...Catch 结构可以捕获该异常。