以前使用 DAO 時(shí)，Microsoft 有提供 CompactDatabase Method 來(lái)壓縮 Microsoft Access 文件，RepairDatabase Method 來(lái)修復(fù)損壞的 Microsoft Access 文件，?？墒亲詮?ADO 出來(lái)之后，好像忘了提供相對(duì)的壓縮及修復(fù) Microsoft Access 文件的功能。

現(xiàn)在 Microsoft 發(fā)現(xiàn)了這個(gè)問(wèn)題了，也提供了解決方法，不過(guò)有版本上的限制！限制說(shuō)明如下：

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)

這個(gè)功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第一次被提出！
這些必要的 DLL 文件在您安裝了 MDAC 2.1 之后就有了，您可以在以下的網(wǎng)頁(yè)中下載 MDAC 的最新版本！

Universal Data Access Web Site

在下載之前先到 VB6 中檢查一下，【控件】【設(shè)定引用項(xiàng)目】中的 Microsoft Jet and Replication Objects X.X library 如果已經(jīng)是 2.1 以上的版本，您就可以不用下載了！

在您安裝了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 來(lái)壓縮或修復(fù) Microsoft Access 文件，下面的步驟告訴您如何使用 CompactDatabase Method 來(lái)壓縮 Microsoft Access 文件：

1、新建一個(gè)新表單，選擇功能表中的【控件】【設(shè)定引用項(xiàng)目】。
2、加入 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。
3、在適當(dāng)?shù)牡胤郊尤胍韵碌某绦虼a，記得要修改 data source 的內(nèi)容及目地文件的路徑：

Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb", _ '來(lái)源文件
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet OLEDB:Engine Type=4" '目的文件

在 DAO 3.60 之后，RepairDatabase Method 已經(jīng)無(wú)法使用了，以上的程序代碼顯示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 時(shí)的 RepairDatabase method！