以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]项目备份的是时间频率可以调整吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23315)

--  作者:99473593
--  发布时间:2012/9/8 17:45:00
--  [求助]项目备份的是时间频率可以调整吗?
请问下项目备份的时间频率可以调整吗,现在好像是每天备份一次,比如能不能调整为每小时一次啊。我前天做了备份,昨天就输入大量的数据,但快下班的时候出了问题,没办法只有回复到前天的状态,害我今天又得重新输入了,郁闷啊。。。。。。
--  作者:狐狸爸爸
--  发布时间:2012/9/8 17:47:00
--  
自己写个计划,定时执行就行了。
--  作者:99473593
--  发布时间:2012/9/8 17:51:00
--  

唉,我现在还很菜呢,能详细指点一下吗?


--  作者:狐狸爸爸
--  发布时间:2012/9/8 17:55:00
--  

http://www.foxtable.com/help/topics/0657.htm

 

写个计划,每个小时执行一次,代码为:

 

Syscmd.Project.Backup()

 


--  作者:lin_hailun
--  发布时间:2012/9/8 18:02:00
--  
 备份数据代码

Dim zip As New zipFile
Dim zFile As String = "d:\\backup.zip"   \'保存的路径
Dim NewName As String
NewName = Date.Today.Month & "." & Date.Today.Day & "." & Date.Now.Hour & ".Table"
If FileSys.FileExists(zfile) Then \'如果压缩文件已经存在
    zip.Open(zFile) \'则打开
Else
    zip.Create(zFile) \'否则创建
End If
zip.AddFile(ProjectFile, NewName)
zip.Close()

--  作者:99473593
--  发布时间:2012/9/9 14:15:00
--  
以下是引用lin_hailun在2012-9-8 18:02:00的发言:
 备份数据代码

Dim zip As New zipFile
Dim zFile As String = "d:\\backup.zip"   \'保存的路径
Dim NewName As String
NewName = Date.Today.Month & "." & Date.Today.Day & "." & Date.Now.Hour & ".Table"
If FileSys.FileExists(zfile) Then \'如果压缩文件已经存在
    zip.Open(zFile) \'则打开
Else
    zip.Create(zFile) \'否则创建
End If
zip.AddFile(ProjectFile, NewName)
zip.Close()

如果需要每隔30分钟备份一次,每次备份的文件分开用时间所区分的文件名保存,如:备份数据2012-02-09 15:30.zip,备份数据2012-05-09 15:40.zip,这样的,能实现吗,这样便于恢复到最近无问题的数据。

[此贴子已经被作者于2012-9-9 14:24:00编辑过]