如何用VB语言进行ACCESS数据库的恢复和修复，急用，谢谢！

Question

如何使用 ADO 來压缩或修复 Microsoft Access 文件？  
版本：VB6 以前使用 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 中檢查一下，【控件】【設定引用項目】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本，您就可以不用下载了！在您安裝了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 來压缩或修复 Microsoft Access 文件，下面的步骤告訴您如何使用 CompactDatabase Method 來压缩 Microsoft Access 文件：1、新建一個新表单，选择功能表中的【控件】【設定引用項目】。
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！ 

Answer 1

来晚了
Ado没有这种功能的；
一般使用楼上说的那种方法；也就是Adox

Answer 2

http://www.myvc.net/dispbbs.asp?boardID=2&RootID=509&ID=509

Answer 3

大哥们，你们说的我都有，但是根本用不了啊，因为没有那个控件啊。那个
DBEngine.compactdatabase 这条命令在VB中能用么？怎么用呢？直接用好象是不行的啊。大哥们帮帮忙，我以50分作为答谢！

Answer 4

但是DAO里有一个对象，叫DBEngine,我不知道如何才能初始化它，他的语句是这样的：DBEngine.compactdatabase "源文件"，“目标文件”
        DBEngine.repairdatabase "源文件"
这两句话要使用的话，必须要初始化DBEngine这个对象才行啊，但是我不知道怎么初始化？
但是有个提示：在使用ADO的时候，我曾经这样初始化
dim db as jro.jetengine
set db=new jro.jetengine
db.compactdatabase "-","-"
如果有人知道的话，能帮我解决，我就送50分