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

最新推荐文章于 2024-09-08 10:30:08 发布

原创最新推荐文章于 2024-09-08 10:30:08 发布 · 577 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#microsoft #数据库 #module #database #access #引擎

VB.NET 专栏收录该内容

17 篇文章

订阅专栏

本文介绍如何使用Visual Basic .NET来压缩Microsoft Access数据库。通过添加Microsoft Jet和Replication Objects库引用，并编写简单的VB.NET代码，可以实现对Access数据库(.mdb格式)的压缩操作。

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