VB 怎么样实现压缩ACCESS数据库的功能!

2025-04-14 22:28:08

推荐回答（2个）

回答1：

'工程-引入 Microsoft Jet and Replication Objects Library

Private Sub Command1_Click()

Dim FIXDB As New JRO.JetEngine
FIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\aa.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\aac.mdb"
End Sub

'CompactDatabase 第一个参数是原始数据库，第二个是目标数据库

回答2：

先引入Microsoft Jet and Replication Objects Library
Dim FIXDB As New JRO.JetEngine
FIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\old.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\new.mdb"