压缩Access数据库的方法。

来源:互联网 发布:python 量化 模拟交易 编辑:程序博客网 时间:2024/05/19 06:37

此方法是通过调用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")