如何通过 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 结构可以捕获该异常。