'
工程-引入 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 第一个参数是原始数据库,第二个是目标数据库
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 第一个参数是原始数据库,第二个是目标数据库