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

Question

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

Answer 1

Dim jetEngine As JRO.jetEngine
Dim fso As New Scripting.FileSystemObjectSub 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 SubPrivate Sub Class_Initialize()
    Set jetEngine = New JRO.jetEngine
    Set fso = New Scripting.FileSystemObject
End SubPrivate Sub Class_Terminate()
    Set jetEngine = Nothing
    Set fso = Nothing
End Sub

Answer 2

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