|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 大侠救命-想了快三个月的一个问题
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
1000
人关注过本帖
标题:
大侠救命-想了快三个月的一个问题
只看楼主
加入收藏
luojia86
等 级:
新手上路
帖 子:34
专家分:0
注 册:2008-4-6
结帖率:
100%
楼主
收藏
问题点数:0 回复次数:6
大侠救命-想了快三个月的一个问题
我做了一个管理系统的程序,就快要完工了,现在就差“备份数据”与“恢复数据”这两个模块了,还请大侠们指教啊。
搜索更多相关主题的帖子:
救命
模块
系统
数据
2008-06-05 21:08
举报帖子
使用道具
赠送鲜花
luojia86
等 级:
新手上路
帖 子:34
专家分:0
注 册:2008-4-6
第
2
楼
收藏
得分:0
大侠救命-想了快三个月的一个问题
我是ACCESS数据库。
我做了一个管理系统的程序,就快要完工了,现在就差“备份数据”与“恢复数据”这两个模块了,还请大侠们指教啊
2008-06-05 21:34
举报帖子
使用道具
赠送鲜花
hxfly
等 级:
贵宾
威 望:
17
帖 子:5810
专家分:118
注 册:2005-4-7
第
3
楼
收藏
得分:0
ACCESS的啊,那就直接FSO就可以了吧
2008-06-05 21:39
举报帖子
使用道具
赠送鲜花
hxfly
等 级:
贵宾
威 望:
17
帖 子:5810
专家分:118
注 册:2005-4-7
第
4
楼
收藏
得分:0
写错了....
刚在ASP版逛了
你这样,备份的话,直接把现在的数据库拷贝的其他目录
还原的话,输入备份路径,拷贝到现在的数据库目录
2008-06-05 21:41
举报帖子
使用道具
赠送鲜花
西山居士
等 级:
贵宾
威 望:
11
帖 子:581
专家分:0
注 册:2007-4-21
第
5
楼
收藏
得分:0
Access直接写路径拷贝就行
学
海
无
涯
2008-06-05 22:59
举报帖子
使用道具
赠送鲜花
hxfly
等 级:
贵宾
威 望:
17
帖 子:5810
专家分:118
注 册:2005-4-7
第
6
楼
收藏
得分:0
Private Sub command1_click()
Dim NdataPath As String '原路径
Dim BdataPath As String '目的路径
databakename = Replace(CStr(Now), ":", "-")
NdataPath = App.Path + "\data\database.mdb" '输入要复制的文件路径,这个你可以修改
BdataPath = App.Path + "\databake\" + databakename + ".mdb" '同上,目的路径
FileCopy NdataPath, BdataPath '复制文件
End Sub
把目录调换一下就是还原
2008-06-06 13:45
举报帖子
使用道具
赠送鲜花
随风逐流
来 自:passerby
等 级:
版主
威 望:
8
帖 子:4054
专家分:271
注 册:2007-6-13
第
7
楼
收藏
得分:0
對頭!
[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2008-06-06 15:36
举报帖子
使用道具
赠送鲜花
7
1/1页
1
快速回复:
大侠救命-想了快三个月的一个问题
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.040244 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved