或者用压缩备份的方法。 '功能:压缩备份数据库 '参数:DataS--数据库路径,DataZ--压缩备份到的路径 '返回:压缩备份是否成功Public Function DataZip(DataS As String, DataZ As String) As Boolean On Error GoTo Compact_Error Dim JRO As JRO.JetEngine Dim fso As New FileSystemObject Set JRO = New JRO.JetEngine If fso.FileExists(DataZ) = True Then Kill DataZ End If JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataS, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataZ & ";Jet OLEDB:Engine Type=5" DataZip = True Exit Function Compact_Error: DataZip = False MsgBox err.Description, 16, "Error" End Function
'功能:压缩备份数据库
'参数:DataS--数据库路径,DataZ--压缩备份到的路径
'返回:压缩备份是否成功Public Function DataZip(DataS As String, DataZ As String) As Boolean
On Error GoTo Compact_Error
Dim JRO As JRO.JetEngine
Dim fso As New FileSystemObject
Set JRO = New JRO.JetEngine
If fso.FileExists(DataZ) = True Then
Kill DataZ
End If
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataS, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataZ & ";Jet OLEDB:Engine Type=5"
DataZip = True
Exit Function
Compact_Error:
DataZip = False
MsgBox err.Description, 16, "Error"
End Function