Office中国论坛/Access中国论坛

标题: [求助]在access中如何备份数据库 [打印本页]

作者: postmaster03 时间: 2006-11-3 01:46
标题: [求助]在access中如何备份数据库
在access中如何通过自己编写一段函数或者代码来实现当前这个数据库的压缩和备份?（可以自己选择存储路径。与access中"工具"菜单中带的那个数据库备份一样的效果。）还请高手们不吝赐教！

作者: fan0217 时间: 2006-11-3 02:24

压缩、修复指定的数据库

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

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

作者: 情比金坚 时间: 2006-11-3 04:15
直接调用那个工具栏不就行了吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)