1. 打开一个新的 VisualBasic.NET 控制台应用程序。
2. 在 添加引用 对话框中, 单击 COM 选项卡, 然后选择 Microsoft Jet 和 Replication Objects 2 x x 库 。 单击 选择 将其添加到 选定组件 。 单击 确定 。
2. 在 添加引用 对话框中, 单击 COM 选项卡, 然后选择 Microsoft Jet 和 Replication Objects 2 x x 库 。 单击 选择 将其添加到 选定组件 。 单击 确定 。
注意 在此步骤, x 是占位符, 代表 Microsoft Jet 和 Replication 对象库组件的实际版本号。
3. 如果没有找到选库没有包装将显示警告。 单击 是 以生成包装。 Microsoft ActiveX 数据对象库 (ADODB) 和 JRO 引用将添加到项目 引用 。
4. 将以下代码复制并粘贴到代码窗口:Module Module1
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")
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/NewNwind.mdb;Jet OLEDB:Engine Type=5")
MsgBox("Finished Compacting Database!")
End Sub
End Sub
End Module
压缩数据库会在 Access 2000 (Jet 4.0) 格式。为了压缩数据库, Jet 数据库引擎要求独占访问到数据库文件。 试图压缩当前正在使用数据库文件将导致异常。 使用 Try...Catch 结构可以捕获该异常。
压缩数据库会在 Access 2000 (Jet 4.0) 格式。为了压缩数据库, Jet 数据库引擎要求独占访问到数据库文件。 试图压缩当前正在使用数据库文件将导致异常。 使用 Try...Catch 结构可以捕获该异常。