以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]备份恢复Access数据库?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82332)

--  作者:hrw68529
--  发布时间:2016/3/16 8:33:00
--  [求助]备份恢复Access数据库?
想做两个菜单按钮,一个是数据库备份,一个是数据库恢复,当按下数据库备份按钮时,能自动找到软件的Access数据库文件,将其备份到指定的文件夹中,当按下数据库恢复按钮时,能自动打开指定Access数据库文件,将其恢复到软件的数据库中,如何写代码,请教!!!!
--  作者:大红袍
--  发布时间:2016/3/16 9:26:00
--  

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

 

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

 


--  作者:hrw68529
--  发布时间:2016/3/16 14:58:00
--  
FileSys.CopyDirectory ("C:\\TestFiles""C:\\TestFiles2", True)

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


--  作者:大红袍
--  发布时间: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