二、数据备份和数据恢复

数据库备份

可以帮助 Access 数据库用户在日常使用过程中快速备份数据，以防止数据丢失或损坏。通过让用户选择备份的目标文件夹，可以方便地将备份文件保存到用户指定的位置。在完成备份后，通过显示消息框，让用户知道备份已完成并提示备份文件的位置，从而增强用户体验。

Sub BackupDatabase()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim strSourceFile As String
    Dim strDestinationFolder As String
    Dim strDestinationFile As String

    ' 设置源文件路径
    strSourceFile = CurrentDb.Name

    ' 使用对话框选择目标文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择一个文件夹"
        .AllowMultiSelect = False
        If .Show = -1 Then ' 如果按下了确定按钮
            strDestinationFolder = .SelectedItems(1)
        Else ' 如果按下了取消按钮
            MsgBox "未选择文件夹。备份已取消。"
            Exit Sub
        End If
    End With

    ' 设置目标文件路径
    strDestinationFile = strDestinationFolder & "\" & fso.GetBaseName(strSourceFile) & " 备份 " & Format(Now, "yyyy-mm-dd hh-mm-ss") & "." & fso.GetExtensionName(strSourceFile)

    ' 复制文件
    fso.CopyFile strSourceFile, strDestinationFile

    MsgBox "备份完成: " & strDestinationFile
End Sub

该代码中使用了 FileSystemObject 对象来管理文件和文件夹，展示了 VBA 在处理文件和文件夹方面的优秀能力。同时，该代码还使用了 VBA 中的字符串操作和日期格式化函数，展示了 VBA 在字符串和日期处理方面的灵活性和强大性。因此，该代码不仅可以备份 Access 数据库文件，还可以为 VBA 编程学习者提供一个简单的案例，展示了 VBA 在文件和字符串处理方面的基本应用。

数据库恢复

Private Sub 数据恢复_Click()
    '定义变量
    Dim strSource As String
    Dim strDestination As String
    '获取当前数据库路径
    strDestination = CurrentDb.Name
    '弹出对话框选择备份文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择备份文件"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Access 数据库", "*.accdb"
        If .Show Then
            strSource = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    '关闭所有窗口和连接，以便覆盖当前数据库。
    DoCmd.Close acForm, Me.Name, acSaveNo '关闭所有窗口。
    DBEngine.Idle dbFreeLocks '释放锁定。
    '恢复数据库。
    On Error Resume Next '忽略错误信息，继续执行下一行代码。
    FileCopy strSource, strDestination
End Sub

这段代码的应用场景是在 Microsoft Access 数据库中，用于恢复数据库。它的作用是通过选择一个备份文件来覆盖当前数据库。

当用户点击名为 “数据恢复” 的按钮时，代码会执行。首先，代码会获取当前数据库的路径并将其存储在变量 strDestination 中。然后，代码会弹出一个对话框，让用户选择一个备份文件。如果用户选择了一个文件，那么代码会将该文件的路径存储在变量 strSource 中。如果用户没有选择任何文件，那么代码会退出。

接下来，代码会关闭所有窗口并释放锁定，以便覆盖当前数据库。最后，代码会使用 FileCopy 函数将备份文件复制到当前数据库的位置，从而实现数据库恢复。

下一篇将给大家介绍ACCESS窗体的事件类型，请大家务必跟上，这是Access设计必须掌握的基础知识。

系列文章链接

1. 系统登录窗口的设计