Question

怎样用vb把数据库（Access)压缩和修复

Answer 1

可是自从 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 以上的版本，您就可以不用下载了！ 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", _ '来源文件