UC知道VB数据恢复
来源：百度知道 编辑：UC知道 时间：2024/06/14 10:28:08
Private Sub StylerButton1_Click()
On Error GoTo err
dialog.FileName = ""
dialog.Filter = "MDB files(*.mdb).*.mdb"
dialog.ShowSave
If dialog.FileName <> "" Then
FileCopy App.Path & "\tel.mdb", dialog.FileName
MsgBox "备份数据完成", vbOKOnly, ""
End If
Exit Sub
err:
MsgBox "对不起,备份出错,请关闭所有的子窗口,重新备份.", vbOKOnly, "通知"
End Sub
这个是数据备份代码 请问数据恢复代码怎么写？只有5分了 请高手帮个忙。
On Error GoTo err
dialog.FileName = ""
dialog.Filter = "MDB files(*.mdb).*.mdb"
dialog.ShowSave
If dialog.FileName <> "" Then
FileCopy App.Path & "\tel.mdb", dialog.FileName
MsgBox "备份数据完成", vbOKOnly, ""
End If
Exit Sub
err:
MsgBox "对不起,备份出错,请关闭所有的子窗口,重新备份.", vbOKOnly, "通知"
End Sub
这个是数据备份代码 请问数据恢复代码怎么写？只有5分了 请高手帮个忙。
只要把复制那段代码反过来写就可以了。别的不用动，只改这句：
FileCopy App.Path & "\tel.mdb", dialog.FileName 为
FileCopy dialog.FileName ，App.Path & "\tel.mdb"
dialog.FileName = ""
dialog.Filter = "MDB files(*.mdb).*.mdb"
dialog.ShowOpen
if dialog.filename<>"" and dir(dialog.filename)<>"" then
Kill App.Path & "\tel.mdb"
FileCopy dialog.FileName,App.Path & "\tel.mdb"
end if