如何使用 ADO ?硌顾趸蛐薷 MS 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

在下载之前先到 VBE 界面中检查一下,【引用】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本,您就可以不用下载了!

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

1、新建一个新表单,选择 VBE 中【引用】。

2、加入 Microsoft Jet and Replication Objects X.X library,其中 ( X.X 大于或等于 2.1 )。

3、在适当的地方加入以下的程序代码,记得要修改 data source 的?热菁澳康匚募?穆肪叮?/p>

Dim jro As jro.JetEngine

Set jro = New jro.JetEngine

Dim strS as String

dim strT as String

strS="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb"

strT="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4"

jro.CompactDatabase strS,strT

'第一个参数是源文件,第二个是目的文件,另外,请注意type的版本

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

分享给朋友:
您可能感兴趣的文章:
随机阅读: