此方法是通过调用ADO组建的相关方法实现数据压缩的,在VB6和VB.net/C#中都可以使用。
引用 Program Files/Common Files/System/ado/msjro.dll
Dim je As JRO.JetEngine = New JRO.JetEngine
je.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/testMDB.mdb;Jet OLEDB:Database Password=412345", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/testMDB1.mdb;Jet OLEDB:Database Password=12345")