’工程-引入 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 第一个参数是原始数据库,第二个是目标数据库
责任编辑:cyth