Office中国论坛/Access中国论坛

标题: [求助]备份后台数据 [打印本页]

作者: zyz218 时间: 2007-10-25 16:53
标题: [求助]备份后台数据
无论谁打开数据库，关闭时都以当天日期为文件名备一次，预期目标如下：
每次关闭数据时备份后台
首先判断C盘WINDOWS下有没有BACKUP这个文件夹，没有则建之
其次判断BACKUP下是不是已有了当天日期为文件名的文件，有则删除，没有跳过
最后备份后台（服务器中的）到本地C盘WINDOWS下BACKUP这个文件夹中

[ 本帖最后由 zyz218 于 2007-10-25 17:06 编辑 ]

作者: liwen 时间: 2007-10-25 17:30
dir()
filecopy()

作者: zyz218 时间: 2007-10-26 10:45
能不能具体点？
filecopy只备份文件，现在是要指定路径？？？！！

作者: wanshan 时间: 2007-10-26 11:40
建议另外弄一个备份工具，定时自动备份后台数据库，可参考：http://www.wanshan.net/AutoBak/index.asp
如果需要实现打开或退出时自动备份，可参考：http://www.wanshan.net/mdbshell/index.asp，里面有个功能就是退出是自动备份。

作者: liwen 时间: 2007-10-26 12:20
filecopy是能够指定路径的，但如果后果数据库可能会处于使用状态，可能要用API的copyfile

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

If Dir(filepath) = "" Then MkDir (filepath)
if dir(filepath-filename)="" then

作者: andymark 时间: 2007-10-26 12:35
Public Function BackEndData() As Boolean
Dim StrDesPath As String
Dim StrSourcePath As String
Dim StrDesName As String
Dim StrSourceName As String
StrSourceName = "Data.mdb"
StrSourcePath = CurrentProject.Path & "\Data\" & StrSourceName
StrDesName = Format(Now, "yymmdd") & "data.mdb"
StrDesPath = CurrentProject.Path & "\Bak\" & StrDesName
If Dir(StrDesPath) <> "" Then
Kill StrDesPath
End If
FileCopy StrSourcePath, StrDesPath

End Function

作者: zyz218 时间: 2007-10-26 18:26
错误提示：“权限不允许！”

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