数据库的备份与恢复

Question

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'备份
Private Sub bf_Click()
   Dim valA As Long
   On Error GoTo a0
   CDlg.Flags = cdlOFNOverwritePrompt   '&H2 覆盖提示
   CDlg.FileName = "C:\My Documents\my.mdb"
   CDlg.DialogTitle = "备份数据库到"
   CDlg.Filter = "Microsoft Access Mdb(*.mdb)|*.mdb|*.*(*.*)|*.*"
   CDlg.CancelError = True    '按[取消]按钮是出错
   CDlg.ShowSave
   Screen.MousePointer = 11
   valA = CopyFile(App.Path + "\my.mdb", CDlg.FileName, 0)  '0为强行覆盖
   If valA = 0 Then MsgBox "备份文件失败,目标数据库可能处于开启状态！", 16, "错误!"
a0:
   Screen.MousePointer = 1
End Sub'恢复
Private Sub hf_Click()
   Dim valA As Long
   On Error GoTo a0
   CDlg.Flags = cdlOFNOverwritePrompt   '&H2 覆盖提示
   CDlg.FileName = "my.mdb"
   CDlg.InitDir = "C:\My Documents"
   CDlg.DialogTitle = "要恢复的数据库来自"
   CDlg.Filter = "Microsoft Access Mdb(*.mdb)|*.mdb|*.*(*.*)|*.*"
   CDlg.CancelError = True    '按[取消]按钮是出错
   CDlg.ShowOpen
   Screen.MousePointer = 11
   valA = CopyFile(CDlg.FileName, App.Path + "\my.mdb", 0)  '0为强行覆盖
   If valA = 0 Then MsgBox "恢复文件失败,可能目标数据库处于开启状态！", 16, "错误!"
a0:
   Screen.MousePointer = 1
End Sub