标题:大侠救命-想了快三个月的一个问题
只看楼主
luojia86
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2008-4-6
结帖率:100%
 问题点数:0 回复次数:6 
大侠救命-想了快三个月的一个问题
我做了一个管理系统的程序,就快要完工了,现在就差“备份数据”与“恢复数据”这两个模块了,还请大侠们指教啊。
搜索更多相关主题的帖子: 救命 模块 系统 数据 
2008-06-05 21:08
luojia86
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2008-4-6
得分:0 
大侠救命-想了快三个月的一个问题
我是ACCESS数据库。
我做了一个管理系统的程序,就快要完工了,现在就差“备份数据”与“恢复数据”这两个模块了,还请大侠们指教啊
2008-06-05 21:34
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
ACCESS的啊,那就直接FSO就可以了吧

2008-06-05 21:39
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
写错了....
刚在ASP版逛了



你这样,备份的话,直接把现在的数据库拷贝的其他目录

还原的话,输入备份路径,拷贝到现在的数据库目录

2008-06-05 21:41
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
得分:0 
Access直接写路径拷贝就行

2008-06-05 22:59
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分: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
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
得分: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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-217855-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.362057 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved