主题：如何通过一个自制按键实现数据备份与恢复

首先感谢２楼，代码对我帮助很大．但是我觉得２楼的恢复数据的代码有一点问题，如果在筛选器里没有找到自己想要的备份文件的话（例如在没有备份的情况下使用恢复），那样不但没有办法恢复数据，而且连数据库都删掉了，所以在２楼的基础上，我觉得应该修改一下，修改之后会首先显示筛选器，当用户选定备份文件点击打开之后才会出现清空数据库的选项，而且在这个时候用户还是可以选择取消，这样就不会出现一点错成万古恨的现象了，修改后的代码如下，请指正批评：

 

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

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

    dlg. title= "数据恢复"  

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

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

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

    Else

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

    End If

Dim mg As New Merger

 mg.SourcePath = dlg.filename

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

 mg.Format = "Access"

 mg. PassWord = ""

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

 mg.Merge()

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

Else

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

   End If