[求助]在access中如何备份数据库

postmaster03

在access中如何 通过自己编写一段函数或者代码来实现当前这个数据库的压缩和备份?（可以自己选择存储路径。与access中"工具"菜单中带的那个数据库备份一样的效果。）还请高手们不吝赐教！

fan0217

压缩、修复指定的数据库

Public Function RepairDatabase(strSource As String) As Boolean
On Error GoTo error_handler
Dim i As Integer     '生成压缩后的文件名
Dim strDestination As String
i = 1
Do
    strDestination = strSource & i
    If Dir(strSource & i) = "" Then
        Exit Do
    Else
        i = i + 1
    End If
Loop     '压缩修复指定文件
    RepairDatabase = _
    Application.CompactRepair( _
    LogFile:=True, _
    SourceFile:=strSource, _
    DestinationFile:=strDestination)     '压缩完成后删除原文件
    Kill strSource     '把压缩后的文件名改成原文件名
    Name strDestination As strSource
On Error GoTo 0

Exit Function
error_handler:
    RepairDatabase = False

End Function



备份数据库： 复制就可以了

情比金坚

直接调用那个工具栏不就行了吗？