access压缩和修复:使用ADO來压缩或修复Microsoft Access文件



 以前使用 DAO 時Microsoft 有提供 CompactDatabase Method 來压缩 Microsoft Access 文件RepairDatabase Method 來修复损坏 Microsoft Access 文件可是自从 ADO 出來的后好像忘了提供相对压缩及修复 Microsoft Access 文件功能 現在 Microsoft 发现了这个问题了也提供了解決思路方法不过有版本上限制!限制說明如下:

ActiveX Data Objects (ADO), version 2.1
Microsoft OLE DB Provider for Jet, version 4.0

這是 Microsoft 提出 ADO 延伸功能:Microsoft Jet OLE DB Provider and Replication Objects (JRO)

这个功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第次被提出!
這些必要 DLL 文件在您安裝了 MDAC 2.1 的后就有了您可以在以下网页中下载 MDAC 最新版本!

Universal Data Access Web Site

在下载的前先到 VB6 中檢查【Control控件】【設定引用項目】中 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上版本您就可以不用下载了!

在您安裝了 MDAC 2.1 或以上版本的后您就可以使用 ADO 來压缩或修复 Microsoft Access 文件下面步骤告訴您如何使用 CompactDatabase Method 來压缩 Microsoft Access 文件:

1、新建個新表单选择功能表中【Control控件】【設定引用項目】
2、加入 Microsoft Jet and Replication Objects X.X library其中 ( X.X 大于或等于 2.1 )
3、在适当地方加入以下代码記得要修改 data source 內容及目地文件路径:

Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\\\nwind2.mdb\", _ @#來源文件
\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\\\abbc2.mdb;Jet OLEDB:Engine Type=4\" @#目文件

在 DAO 3.60 的后RepairDatabase Method 已经无法使用了以上代码显示了 ADO CompactDatabase Method 使用方法而它也取代了 DAO 3.5 時 RepairDatabase method!


Tags:  vbadoaccess adoaccess microsoftadords access压缩和修复

延伸阅读

最新评论

发表评论