Office中国论坛/Access中国论坛

标题: ACCESS程序设计---教你实现数据备份与还原！ [打印本页]

作者: paul16 时间: 2004-4-10 00:42
标题: ACCESS程序设计---教你实现数据备份与还原！
记得我刚接触ACCESS的时候，为了实现数据还原与恢复功能，查了论坛的好多贴子才做成功，为了让初学者也做出专业的数据备份还原功能，我写了个简易的教程，只要照着做就很容易作出功能使用的数据备份还原模块来！希望对大家有用！：-）

[attach]4174[/attach]

作者: cxhwhj 时间: 2004-4-10 04:48
恕我愚昧，按照提示无此效果。红色部分是否把其中一部分换成我的数据表名。能否说得更详细些，另窗体中的取消按钮怎样设置？谢…………

作者: paul16 时间: 2004-4-10 06:15
红色部分就是要换成你的数据库名称就可以了！

作者: cxhwhj 时间: 2004-4-10 17:01
红色部分为FileCopy CurrentProject.Path & "\" & "

oseSky_be.mdb", _
Me.txtDestinationDir & "\" & "数据备份.mdb"
替换为我的数据库名"学生数据库"，为何还是无效？

作者: Ajoe 时间: 2004-4-10 20:05
对我这个Newbie(菜鸟)很实用，谢谢！

作者: paul16 时间: 2004-4-10 20:14

以下是引用cxhwhj在2004-4-10 9:00:31的发言：
红色部分为FileCopy CurrentProject.Path & "\" & "oseSky_be.mdb", _
Me.txtDestinationDir & "\" & "数据备份.mdb"
替换为我的数据库名"学生数据库"，为何还是无效？

你的库拆分了么？如果拆分了就改为你数据表存放的名称就可以了！例：学生数据库_be.mdb

作者: cxhwhj 时间: 2004-4-10 21:45
偶真笨，现上传文件。请为我做好备份还原代码，万分感激！！！！！我邮箱为

whjcxh@pub.wx.jsinfo.net

[此贴子已经被作者于2004-4-10 13:49:37编辑过]

作者: cxhwhj 时间: 2004-4-10 22:12
上传文件为何不出现在论坛中？？
谢谢指教，文件已上传，请高手抬贵手，帮助完善备份还原。

[此贴子已经被作者于2004-4-10 16:32:43编辑过]

作者: sea.er 时间: 2004-4-10 22:25
这样上传：
http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&ID=12148

作者: cxhwhj 时间: 2004-4-11 00:36
按上述方法做了，但无效果。向斑竹求助！！！！
送上文件。

[attach]4190[/attach]

[此贴子已经被作者于2004-4-10 16:36:17编辑过]

作者: paul16 时间: 2004-4-12 18:40
备份功能帮你做好了！还原的你仔细看一下就知道了！
我改的地方：
1、命令按钮的命名跟VBA中的不一样！
2、文件我放到 D:\教师情况目录下！

[attach]4199[/attach]

作者: cxhwhj 时间: 2004-4-12 20:01
感谢斑竹，牢记古训“受恩勿忘”，定为本站摇旗呐喊！！！有问题再向您请教。

作者: paul16 时间: 2004-4-12 20:07

以下是引用cxhwhj在2004-4-12 12:01:15的发言：
感谢斑竹，牢记古训“受恩勿忘”，定为本站摇旗呐喊！！！有问题再向您请教。

社区就是为大家服务的！

作者: laiguiyou 时间: 2004-4-16 21:32
标题: 备份
请问版主，如果文件放在D:\database\data下，路径应怎么写？

作者: cxhwhj 时间: 2004-4-17 05:55
又要请教斑主，备份窗口我已做好，在窗口备份中直接启动一切正常。但在主切换面板中启动备份项目，却提示如下：错误号70，发生错误的原因可能是1、数据窗口未关闭　2、磁盘写保护。不知何故，怎样解决？
另：按照提示做还原功能。下面代码：
If MsgBox("还原将覆盖原数据且不能恢复，" & Chr(10) & "请确认所选的文件是否正确。" & Chr(10) & Chr(10) & "如果选择的文件正确，请按"确定"。" & Chr(10) & "否则，请按"取消"。", vbExclamation + vbOKCancel, "严重警告") = vbOK Then为红色，提示编译错误，语法错误。
请解决。谢谢。如能
把前些天的上传文件直接做好还原功能，那更好了。

[此贴子已经被作者于2004-4-16 22:10:22编辑过]

作者: paul16 时间: 2004-4-19 03:43

以下是引用cxhwhj在2004-4-16 21:55:14的发言：
又要请教斑主，备份窗口我已做好，在窗口备份中直接启动一切正常。但在主切换面板中启动备份项目，却提示如下：错误号70，发生错误的原因可能是1、数据窗口未关闭　2、磁盘写保护。不知何故，怎样解决？
另：按照提示做还原功能。下面代码：
If MsgBox("还原将覆盖原数据且不能恢复，" & Chr(10) & "请确认所选的文件是否正确。" & Chr(10) & Chr(10) & "如果选择的文件正确，请按"确定"。" & Chr(10) & "否则，请按"取消"。", vbExclamation + vbOKCancel, "严重警告") = vbOK Then为红色，提示编译错误，语法错误。
请解决。谢谢。如能
把前些天的上传文件直接做好还原功能，那更好了。

[此贴子已经被作者于2004-4-16 22:10:22编辑过]

这些天都没来了，象以上这些情况你查看一下还原窗体的是否有存在数据源？如果有的话将其去除就可以解决了！：-）

作者: hi-wzj 时间: 2004-4-23 22:42
提供一种利用rar压缩数据库的例子，支持共享备份（别人照样操作后端数据库），可利用win的计划任务完成定时备份功能。
http://www.accessoft.com/Article_Show.asp?ArticleID=27

作者: 大熊 时间: 2004-4-29 03:52
为什么你们都不用DOS命令啊？纳闷中。。。。

作者: paul16 时间: 2004-5-2 04:03

以下是引用大熊在2004-4-28 19:51:51的发言：
为什么你们都不用DOS命令啊？纳闷中。。。。

这个可能主要是为了让软件看起来专业一点吧！：-）

作者: 一根筋 时间: 2004-5-4 00:04
感谢Paul16
提问：
1、代码中AddhowDolog "数据备份"是何作用？我好像只有删了这句。当然未影响备份。
2、如果只是数据备份，文章前部分中提到的建立模块复制代码部分是否可以省略？（够懒，实际上我可以试，但为广大同学节约时间出发，仍提此问）
还有一点问题，我想还是先试再问，当然我还会考虑具有普遍提醒的意义才问。

作者: paul16 时间: 2004-5-6 21:58

以下是引用一根筋在2004-5-3 16:04:21的发言：
感谢Paul16
提问：
1、代码中AddhowDolog "数据备份"是何作用？我好像只有删了这句。当然未影响备份。
2、如果只是数据备份，文章前部分中提到的建立模块复制代码部分是否可以省略？（够懒，实际上我可以试，但为广大同学节约时间出发，仍提此问）
还有一点问题，我想还是先试再问，当然我还会考虑具有普遍提醒的意义才问。

1、AddhowDolog 是我用到的储存用户操作信息的函数！忘了删掉了！：-）
2、前面模块是为了实现目录选择及文件选择而设的！：-）

作者: thx19831119 时间: 2004-6-5 22:29
有没有效

作者: vencent000000 时间: 2004-6-15 07:00
谢谢，研究中。。。。

作者: jwindy 时间: 2004-6-19 22:20
学习……[em04]

作者: kelexp 时间: 2004-7-22 16:05
数据库备份恢复用数据库提供的备份恢复命令不久可以实现了么？

作者: paul16 时间: 2004-7-28 02:46
这个主要是设计界面让使用的客户更直接！

作者: seanyi 时间: 2004-7-30 06:08
试一下，先谢过楼主！

作者: 古云 时间: 2004-7-30 18:09
斑竹你好。按你的文件工作一天，但是却不能工作。（使用XP操作系统，使用Access 2000）.主要是按下任何按钮都没有反应！请斑竹出山，指点在下。谢谢！[em04][em06][em02]

作者: zhangsan_001 时间: 2004-8-19 22:24
俺是想问：怎么样在VBA里调用菜单的拆分数据库命令啊？[em01]

作者: quanli 时间: 2004-9-23 23:32
各位幸苦。学习学习

作者: lhsh 时间: 2004-9-24 17:29
楼主你好，请教，如果自行选择备份名，该怎样编写。

谢谢

作者: 重新认识 时间: 2004-11-28 06:11
怎么打不开呀！还真想看看怎么备份，我找了好长时间了

作者: acc_user 时间: 2004-12-3 05:56
这里还真是我们初学者的乐园，我也学会了，谢谢斑主

作者: 6d6d6d 时间: 2004-12-12 04:06
非常感谢楼主！

按楼主的方法我作了个备份窗体可以实现备份功能，但用同样的方法作了个还原却出了问题！

当我选择还原文件时（选择刚刚用备份窗口备份的文件----文件名是“04.12.11”)，系统提示“对象不支持该属性或方法”不知道错误出在哪里？请指教！！

btw：

当把原数据库拆分后，多出来个只有数据表的数据库文件*_be.mdb,在拆分时自己指定的文件夹里，这个文件好像不能移动的，否则会出现错误。请问在实际操作中有时需要移动该文件（如，复制到其他电脑上使用）应该怎么办？？请赐教！！谢谢先。

[此贴子已经被作者于2004-12-11 20:18:46编辑过]

作者: 三只眼 时间: 2004-12-14 03:34
虽然不懂，但还是要顶一下。以后努力向大家学习

作者: goto2008 时间: 2004-12-24 00:34
先下来研究一下。。

作者: xiaowu 时间: 2004-12-29 21:11
呵呵,顶了

作者: greetland 时间: 2005-1-18 18:41
先收藏，再学习

作者: vita_law 时间: 2005-1-21 17:12
谢谢楼主！按楼主的方法我作了个备份窗体可以实现备份功能，但有两个问题想问一下：1.如果是共享的后台数据库（be），需要在多人同时使用的情况下进行备份操作，应该如何修改呢（现在的备份条件是单独使用时）？2.如果我要备份的只是数据库的其中一个表（其他表只是辅助作用）又应如果设置呢?

作者: tanhong 时间: 2005-2-16 04:42
谢谢楼主，我已经收藏了。

作者: jxcxd 时间: 2005-2-23 19:57
我做还原的时候也出现：If MsgBox("还原将覆盖原数据且不能恢复，" & Chr(10) & "请确认所选的文件是否正确。" & Chr(10) & Chr(10) & "如果选择的文件正确，请按"确定"。" & Chr(10) & "否则，请按"取消"。", vbExclamation + vbOKCancel, "严重警告") = vbOK Then为红色，提示编译错误，语法错误。我的窗体是没有数据源，不知是什么原因，怎样解决？

作者: 黑糊糊 时间: 2005-3-6 04:24
我的情况也是一样，还原的时候提示语法编译错误

作者: 黑糊糊 时间: 2005-3-6 05:08
把If MsgBox("还原将覆盖原数据且不能恢复，" & Chr(10) & "请确认所选的文件是否正确。" & Chr(10) & Chr(10) & "如果选择的文件正确，请按"确定"。" & Chr(10) & "否则，请按"取消"。", vbExclamation + vbOKCancel, "严重警告") = vbOK Then和AddhowDolog "数据备份"删掉就可以了

作者: artbao 时间: 2005-6-19 20:29
1.如果是共享的后台数据库（be），需要在多人同时使用的情况下进行备份操作，应该如何修改呢（现在的备份条件是单独使用时）？2.如果我要备份的只是数据库的其中一个表（其他表只是辅助作用）又应如果设置呢?

作者: yttzm 时间: 2005-12-6 05:59
标题: [分享]备份与还原
谢谢楼主，我已经按你教的办法，做了一个，能实现备份和还原。

解决了我以前学的一个关于“数据备份”时，不能覆盖已经备份的文件问题。

现将我做的“备份与还原”传上，让大家分享你的成果！

谢谢！
[attach]14588[/attach]

[此贴子已经被作者于2005-12-5 22:06:24编辑过]

作者: yttzm 时间: 2005-12-6 06:03
If MsgBox("还原将覆盖原数据且不能恢复，" & Chr(10) & "请确认所选的文件是否正确。" & Chr(10) & Chr(10) & "如果选择的文件正确，请按"确定"。" & Chr(10) & "否则，请按"取消"。", vbExclamation + vbOKCancel, "严重警告") = vbOK Then

问题的处理办法：

主要是其中的“确定”、“取消”，不应该用" " 而应用中文“”。

作者: songzhha 时间: 2005-12-6 17:23
先收藏了谢谢楼主,改天向你讨教

作者: yttzm 时间: 2005-12-7 21:23
我按paul16老师说的，自己做了一个。

现传上。看对不？[attach]14612[/attach]

作者: bailu0973 时间: 2005-12-13 05:44
又出错了

作者: hnyyly 时间: 2005-12-13 07:37
不错，支持一下

作者: lfxwolf 时间: 2005-12-13 17:59
一定要好好学习，难得一见的资料呀

作者: 风神阳光 时间: 2005-12-18 21:09
hao !

作者: xuexue 时间: 2005-12-30 17:46
标题: 好
谢谢

作者: 830819 时间: 2006-1-4 03:08
下载不了啊？

怎么回事？[em11]

作者: whd8848 时间: 2006-1-4 22:06
it's a good project

作者: showen 时间: 2006-1-6 00:06
我是初学者，路还很长啊

作者: 木鱼石 时间: 2006-3-29 03:17
怎么也得先从易到难

作者: dsm 时间: 2006-3-29 03:32
下来学学..

作者: hhm 时间: 2006-3-30 22:46
标题: ?
?

作者: hhm 时间: 2006-3-30 22:46
?

作者: hhm 时间: 2006-3-30 22:47
标题: ?
?

作者: 王维a780 时间: 2006-3-30 23:32
太谢谢啦！

作者: ziyun 时间: 2006-5-4 22:04
标题: feqfeqfeq
feqfeqfeqfeqw

作者: ziyun 时间: 2006-5-4 22:05
标题: feqfeqfe
fewqfeqwfew

作者: ziyun 时间: 2006-5-4 22:05
fefeqfeqfeqw

作者: xslxr 时间: 2006-5-11 19:19
xiexie

[em01]

作者: hao 时间: 2006-5-29 02:45
怎么就看不了文件呢?

呵呵，我正在做一篇论文，想看一下用ＶＢ备份和还原ＡＣＣＥＳＳ的方法

可是，咱们才看得了呢？

作者: hao 时间: 2006-5-29 02:51
斑竹，难道只能发了帖才看得了吗？

作者: hao 时间: 2006-5-29 02:53
[em02]想看

作者: hao 时间: 2006-5-29 03:04
xie xie la !!!!

作者: 网络兔子 时间: 2006-5-30 21:15
可惜级别太低了！我没有办法下载

作者: ab00ab 时间: 2006-6-7 01:51
[em02][em02]

作者: ylp1588 时间: 2006-7-9 18:14
多谢楼主，我正在找这样的代码！

作者: cheddy 时间: 2006-7-28 21:03
发帖啊,谢谢啦

作者: cheddy 时间: 2006-7-28 21:04
再发

作者: cheddy 时间: 2006-7-28 21:04
这代码很有效,好板主啊

作者: coo8241 时间: 2006-8-11 22:06
谢谢！～满实用的！～

作者: clmkjszx123 时间: 2007-8-19 17:07
kkkkkkkkkkkkkk

作者: lisj 时间: 2007-12-19 08:10
好冬冬

作者: hlqm999 时间: 2007-12-19 23:42
下下来研究研究,备份一下比较安全

作者: snowflying163 时间: 2007-12-20 11:25
确实不错,喜欢!

作者: REORX 时间: 2007-12-20 13:49
感谢分享,学习中ING....

作者: szsoncon 时间: 2008-1-10 14:07
金钱达到下限了怎么办

作者: ppyh 时间: 2008-3-12 14:27
标题: 看了再说
多谢高手指点,

作者: xue818wen 时间: 2008-3-12 14:55

作者: ppyh 时间: 2008-3-19 16:18
标题: 求救
无效求救啊

......选择路径时没有效果

作者: www3www 时间: 2008-7-17 15:24
等我也来学一下

作者: tamahome7 时间: 2008-7-17 21:40
ddddddddddd

作者: ycxchen 时间: 2008-7-18 10:40
谢谢！收下学习。我今天下载了，打开查看代码，可是不见有20楼所说的“addhowdolog”相关语句的？

作者: jackysu78 时间: 2009-3-16 16:32
谢谢分享！

作者: 五岳山之巅 时间: 2010-8-24 14:37
怎么不行呀，设计窗体中包含的几个控件：两个文本框、两个命令按钮，怎么设啊？还有就是“ '可以修改以下文件的名称及目录为你后台数据表的位置即可”这句话要不要也写进去啊？

作者: 光明牛奶 时间: 2011-6-4 11:44
我也是菜鸟蛋，希望对我有帮助

作者: lyajyj 时间: 2012-4-10 14:37
谢谢谢谢，可以用了

作者: 飘过 时间: 2016-9-14 10:18
厉害

作者: 人生好运 时间: 2024-5-18 08:08
支持，支持

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)