导出备份及备份打开遇到的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，我们想做个数据备份和数据恢复的按钮，能实现和华海一样的备份和恢复功能。可是我们参照华海的案列做的语句不能实现，请帮忙看一下问题在哪里吧，谢谢

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:博满建科11-3.foxdb

代码不是抄就可以使用的，如果不理解代码，连别人做什么都不知道，别人备份的是数据库

如果要备份项目本身这样

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编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:博满建科11-3(1).foxdb

不好意思老师，我们几乎是没有代码基础的，对代码确实不了解。整个项目几乎都是2个大白脖参照项目案列一点点琢磨出来的，所以说咱们狐表做的确实是好，让不会的人也能做出来自己想做的程序。

老师，因为不懂所以问题比较多，还请您原谅

按照刚才您的回复我们又尝试了一下，目前备份可以，但是打开项目就出现死机，所以，也无法校核备份的数据是否正确，还请您伸出援手

项目接近尾声，麻烦您的日子不多了。图片点击可在新窗口打开查看

建议不要做这种还原项目的用法，没有什么意义，特别是发布后的程序。

最好的还是使用外部数据源吧，把数据放到外部数据库使用：http://www.foxtable.com/webhelp/topics/1420.htm

主题：导出备份及备份打开遇到的问题