Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据库备份与还原


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

主题：数据库备份与还原
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/3 12:32:00 [只看该作者]

能不能认认真真看19楼啊。

 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/9/3 13:26:00 [只看该作者]

他是备份到d:\test位置
我是想备份到客户选择的位置
恢复同样是客户选择要恢复的文件路径
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/3 14:35:00 [只看该作者]

以下是引用peibaomin在2017/9/3 13:26:00的发言：
他是备份到d:\test位置
我是想备份到客户选择的位置
恢复同样是客户选择要恢复的文件路径

 

19楼就是备份到任意位置啊。

[此贴子已经被作者于2017/9/3 14:35:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/9/3 16:13:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：5563.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：5564.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：5565.png
图片点击可在新窗口打开查看
保存时出错

[此贴子已经被作者于2017/9/3 16:14:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/3 16:58:00 [只看该作者]

备份的时候出错？请贴出编写的代码。

 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/9/3 17:18:00 [只看该作者]

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyDirectory(ProjectPath, "d:\test")
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder("d:\test")
    zip.Close()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/3 17:23:00 [只看该作者]

测试没问题。请不要把备份放在项目本身的文件夹内，然后就会报错。

 

再有，代码这样写

 

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder(ProjectPath)
    zip.Close()
End If

[此贴子已经被作者于2017/9/3 17:24:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/9/5 10:45:00 [只看该作者]

老师！ 压缩备份我文件类型选择"压缩文件|*.zip"
如果不压缩备份文件类型选哪个呀？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/5 10:52:00 [只看该作者]

Dim dlg As new SaveFileDialog
dlg.FileName = format(Date.now, "yyyyMMddHHmmss")
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyDirectory(ProjectPath, dlg.FileName)
End If

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/9/5 14:50:00 [只看该作者]

如果光备份与恢复数据库文件  假如数据库重复值项目文件夹的““\date” 里，数据库名为“123.mdb”
 备份
Dim dlg As new SaveFileDialog
dlg.FileName = format(Date.now, "yyyyMMddHHmmss")
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyDirectory(ProjectPath &“\date” , dlg.FileName)
End If

恢复

Dim dlg As new OpenFileDialog
dlg.FileName = format(Date.now, "yyyyMMddHHmmss")
If dlg.ShowDialog = DialogResult.OK Then
     FileSys.CopyDirectory(dlg.FileName，ProjectPath &“\date”，True )
End If

这样写的代码有问题吗？
 回到顶部
总数 94 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06348 秒, 4 次数据查询