我设计的软件里面有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