- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 导出备份及备份打开遇到的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142697)
-- 发布时间：2019/11/4 10:28:00
-- 导出备份及备份打开遇到的问题
老师好，我们想做个数据备份和数据恢复的按钮，能实现和华海一样的备份和恢复功能。可 是我们参照华海的案列做的语句不能实现，请帮忙看一下问题在哪里吧，谢谢
1.这是保存项目的语句
Dim dlg As New SaveFileDialog \'定一个新的SaveFileDialog
dlg.Filter= "备份文件|*.bak" \'设置筛选器
dlg.InitialDirectory = ProjectPath
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
FileSys.CopyFile(ProjectPath & "storage.db",dlg.FileName, True)
msgbox("备份完毕!",64,"提示")
End If
2.这是打开项目的语句
If msgbox("进行数据还原会丢失当前的所有数据,是否进行还原?",65,"提示") = 1 Then
Dim dlg As New OpenFileDialog \'定一个新的OpenFileDialog
dlg.Filter= "备份文件|*.bak" \'设置筛选器
dlg.InitialDirectory = ProjectPath
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
FileSys.CopyFile(dlg.FileName, ProjectPath & "storage.db", True)
forms("项目信息").close
forms("项目信息").open
msgbox("数据还原完毕!",64,"提示")
End If
End If
-- 发布时间：2019/11/4 10:56:00
--
代码不是抄就可以使用的，如果不理解代码，连别人做什么都不知道，别人备份的是数据库
如果要备份项目本身这样
FileSys.CopyFile(ProjectFile,dlg.FileName, True)
如果要还原
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
FileSys.CopyFile(dlg.FileName, ProjectFile, True)
msgbox("数据还原完毕!",64,"提示")
Syscmd.Project.Exit(False) \'必须要重启项目，注意备份好项目，还原覆盖后就无法在恢复了
End If
[此贴子已经被作者于2019/11/4 10:56:38编辑过]
-- 发布时间：2019/11/4 11:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:博满建科11-3(1).foxdb |
不好意思老师，我们几乎是没有代码基础的，对代码确实不了解。整个项目几乎都是2个大白脖参照项目案列一点点琢磨出来的，所以说咱们狐表做的确实是好，让不会的人也能做出来自己想做的程序。
老师，因为不懂所以问题比较多，还请您原谅
按照刚才您的回复我们又尝试了一下，目前备份可以，但是打开项目就出现死机，所以，也无法校核备份的数据是否正确，还请您伸出援手
项目接近尾声，麻烦您的日子不多了。
-- 发布时间：2019/11/4 11:26:00
--
建议不要做这种还原项目的用法，没有什么意义，特别是发布后的程序。
最好的还是使用外部数据源吧，把数据放到外部数据库使用：http://www.foxtable.com/webhelp/topics/1420.htm