VB中如何备份 修复 还原 数据库（Access)

[xxw19820907]

大家好，请问在VB中如何备份 修复 还原 数据库（Access)。

[xxw19820907]

没有人帮忙吗？

[agame]

Dim jetEngine As JRO.jetEngine
Dim fso As New Scripting.FileSystemObject

Sub CompactAndRepairDB(dbFile As String)
Dim strSourceConnect As String
Dim strDestConnect As String

strSourceConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & dbFile & ";"

strDestConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & dbFile & ".ylk" & ";"

jetEngine.CompactDatabase strSourceConnect, strDestConnect

fso.DeleteFile dbFile, True
Name dbFile & ".ylk" As dbFile
End Sub

Private Sub Class_Initialize()
Set jetEngine = New JRO.jetEngine
Set fso = New Scripting.FileSystemObject
End Sub

Private Sub Class_Terminate()
Set jetEngine = Nothing
Set fso = Nothing
End Sub

[ljhdi]

备份还原直接用filecopy就行了
修复压缩要引用JET