vba示例:
Function CompactDatabse_2007_JRO(ByVal SourceAccdb As String, _
ByVal TargetAccdb As String) As Boolean
On Error Resume Next
Dim JRO As JRO.JetEngine
Set JRO = New JRO.JetEngine
Dim strS As String
Dim strT As String
strS = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & SourceAccdb
strT = "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & TargetAccdb & ";Jet OLEDB:Engine Type=5"
JRO.CompactDatabase strS, strT
If Err <> 0 Then
CompactDatabse_2007_JRO = False
Debug.Print Err.Number, Err.Description
Err.Clear
Else
CompactDatabse_2007_JRO = True
End If
End Function