如何实现ACCESS数据库备份啊

Question

我应该如何实现ACCESS数据库备份到另外一个盘呢？请各位高手给以指教，谢谢！我的Q号是23685483，验证信息请输入VB讨论。

Answer 1

先断开与数据库的连接,再用filecopy命令拷贝数据库filecopy "源文件","目标文件"

Answer 2

FileCopy "c:\a.mdb", "d:\bak.mdb"

Answer 3

或者用压缩备份的方法。
'功能：压缩备份数据库
'参数：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