主题：[求助] 关于数据的备份和恢复

     

 

           我设计的软件里面有20个表，我想设计一个按钮，点击后，能对20个表中有选择性的进行备份，在设计另一

 

个按钮，能进行对指定表的恢复。求思路和代码。请给以帮助，谢谢了。

  是的。

 

我从论坛用的别人的代码

 

数据备代码：

Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "备份文件|*.dat" '设置筛选器
dlg.Title="请选择保存路径及保存文件名!"
dlg.InitialDirectory = ProjectPath & "databak\"  **这个语句我不太懂什么意思。
dlg.FileName = Format(Date.Today,"yyyy-MM-dd")
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    FileSys.CopyFile(ProjectPath & "data.mdb",dlg.FileName, True) ****  这个语句我不太懂什么意思。

    MessageBox.Show("备份成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

 

红字部分为我不太懂的地方，请帮忙解释。运行后，告诉我找不到data.mdb

 

 

       数据备份用 这个代码行吗：

 

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "备份文件|*.DBF "   '设置筛选器

dlg. title= "备份数据"
dlg.OverwritePrompt = True  '对于已经存在的文件名，是否出现覆盖警告

If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮

If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
    FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之
    End If
    Dim ex as New Exporter
    ex.SourceTableName = "调资基础数据"   '指定导出表

ex.Format = "Access"   '指定导出文件格式
    ex. PassWord = “TZX_GWY_JT_8888”  '用此属性指定目标文件的密码

ex.filepath =  dlg.filename    '指定目标文件

ex.NewTableName = "调资基础数据"        '指定导出后的表的名称

    ex.Export()    '开始导出数据
    MessageBox.Show(备份数据生成完成！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

 

恢复时用的这个代码：

 

 

If MessageBox.Show( "恢复数据库操作将清空数据库,确定是否清空？","提示",MessageBoxButtons. YesNo,MessageBoxIcon.Question) = DialogResult.Yes then

DataTables("调资基础数据").DataRows.Clear()  '清空指定表数据

Else

     Return       '点击否终止代码的执行

End If

Dim dlg As New OpenFileDialog    '定义一个新的OpenFileDialog

dlg.Filter= "备份文件|*.DBF"        '设置筛选器

dlg. title= "数据恢复"  

If dlg.ShowDialog = DialogResult.Ok Then       '如果用户单击了确定按钮

Dim mg As New Merger

 mg.SourcePath = dlg.filename

 mg.SourceTableName = "调资基础数据"

 mg.Format = "Access"

 mg. PassWord = "TZX_GWY_JT_8888"

 mg.DataTableName = "调资基础数据"

 mg.Merge()

 MessageBox.Show("数据恢复完成！！！","提示",MessageBoxButtons.OK,MessageBoxIcon.Question)

Else

 MessageBox.Show( "数据库已被清空！！！","提示",MessageBoxButtons. OK,MessageBoxIcon.Warning)

   End If

 

数据备份时，告诉我备份成功了。但我用foxtable中的导入功能时告诉我。

 

此主题相关图片如下：)52`uq5v2dyyp3lpfn%475.jpg

 

我用数据恢复后，他把我原来的表都清空了，但没有导入我以前备份的表。

  老师在吗？？？

 

  用合并后，出现这个提示。

 

此主题相关图片如下：vsj$ee}5_d1zwnq1pn$c@4.jpg