Foxtable(狐表)用户栏目专家坐堂 → [求助]备份恢复Access数据库?


  共有1843人关注过本帖树形打印复制链接

主题:[求助]备份恢复Access数据库?

帅哥哟,离线,有人找我吗?
hrw68529
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
[求助]备份恢复Access数据库?  发帖心情 Post By:2016/3/16 8:33:00 [只看该作者]

想做两个菜单按钮,一个是数据库备份,一个是数据库恢复,当按下数据库备份按钮时,能自动找到软件的Access数据库文件,将其备份到指定的文件夹中,当按下数据库恢复按钮时,能自动打开指定Access数据库文件,将其恢复到软件的数据库中,如何写代码,请教!!!!

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/16 9:26:00 [只看该作者]

备份access数据库文件,实际上,就是拷贝mdb文件;恢复也是拷贝覆盖文件而已。

 

看看  http://www.foxtable.com/help/topics/0331.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1142 积分:8846 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2016/3/16 14:58:00 [只看该作者]

FileSys.CopyDirectory ("C:\TestFiles""C:\TestFiles2", True)

C:\TestFiles如何替换为打开一个对话框,找到要复制的文件,
C:\TestFiles2如何替换为打开一个对话框,保存要复制的文件?


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/16 16:24:00 [只看该作者]

Dim odlg As new OpenFileDialog
odlg.Filter = "备份|*.mdb"
If odlg.ShowDialog = DialogResult.OK Then
    Dim sdlg As new SaveFileDialog
    sdlg.Filter = "备份|*.mdb"
    If sdlg.ShowDialog = DialogResult.OK Then
        FileSys.CopyFile(odlg.FileName, sdlg.FileName, True)
    End If
End If

 回到顶部