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, strTIf Err <> 0 Then CompactDatabse_2007_JRO = False Debug.Print Err.Number, Err.Description Err.Clear Else CompactDatabse_2007_JRO = True End If End Function
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, strTIf Err <> 0 Then
CompactDatabse_2007_JRO = False
Debug.Print Err.Number, Err.Description
Err.Clear
Else
CompactDatabse_2007_JRO = True
End If
End Function
JRO.CompactDatabase strS, strT
vfp代码:
lole=CREATEOBJECT('JRO.JetEngine')
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"
lole.CompactDatabase(strS,strT)