请问怎样在程序中实现数据库的恢复（已有备份文件）（在线......）

learn03 2003-05-11 10:52:45
同上（解决立即给分）
...全文
8 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
learn03 2003-05-15
这个问题发了四天了

为什么没人答？

难道真的很难吗？

还是分不够？

问题解决可以在给！

 回复 赞
bomber2001 2003-05-15
恢复代码
(转载)



int li_index,li_count,li_ret
string ls_syntax,ls_errors,ls_colname,ls_modstring,ls_sql
string ls_list[]

st_1.text=" 正在恢复....."

ls_syntax="select * from jdrm_2"
dw_1.create(sqlca.syntaxfromsql(ls_syntax,"style(type=grid)",ls_errors))
if len(ls_errors) > 0 then
messagebox("","恢复借档人资料库时发生错误，停止恢复！",stopsign!)
return
end if
dw_1.settransobject(sqlca)
ls_syntax="select * from jdrm_2"
if dw_1.modify("datawindow.table.select=~'ls_syntax~'")<>"" then
messagebox("","数据库表出错，无法恢复！",stopsign!)
return
end if
if dw_1.modify("datawindow.table.updatetable='jdrm_2'")<>"" then
messagebox("wrong!","表不可修改！")
return
end if
do while li_count > 0
ls_colname= ls_list[li_count]
ls_modstring=ls_colname+".update" + "=" + "yes"
if dw_1.modify(ls_modstring) <> "" then
messagebox("错误","表不可修改！")
return
else
li_count --
end if
loop
if filelength("c:\temp\借档人资料库.dbf")=-1 then
messagebox("","没有借档人资料库的备份数据",stopsign!)
return
end if
ls_sql="delete from jdrm_2"
execute immediate :ls_sql;
if sqlca.sqlcode<>0 then
messagebox("失败","清表失败，停止恢复！",stopsign!)
return
end if
do while dw_1.rowcount() > 0
dw_1.deleterow(0)
loop
li_ret=dw_1.importfile("c:\temp\借档人资料库.dbf")
if li_ret < -2 then
messagebox("错误","恢复借档人资料库时出现错误，停止恢复！",stopsign!)
return
end if
if dw_1.update()=1 then
commit;
else
rollback;
end if

st_1.text="恢复完毕！"

 回复 赞
bomber2001 2003-05-15
备份代码
(转载)


int li_index,li_total,li_ret
string ls_syntax,ls_errors,ls_directory

st_1.text="正在备份........"
//ls_directory=sle_1.text
ls_syntax="select * from jdjm_table_1"
dw_1.create(sqlca.syntaxfromsql(ls_syntax,"style(type=grid)",ls_errors))
if len(ls_errors) > 0 then
messagebox("","备份借档案卷数据库时发生错误，停止备份！",stopsign!)
return
end if
dw_1.settransobject(sqlca)
dw_1.retrieve()
li_ret=dw_1.saveas( "c:\temp\借档案卷资料库.dbf",dbase3!,true)
if li_ret=-1 then messagebox("备份失败","备份失败！")

st_1.text="备份完毕！"
 回复 赞
kkk3k 2003-05-15
twb88 :
能给出备份数据库文件的代码吗？谢谢！
 回复 赞
twb88 2003-05-11
自已看吧
给分吧
 回复 赞
twb88 2003-05-11
String ls_path,ls_use

ls_path = sle_repath.text
IF ls_path = "" THEN
Messagebox('系统提示',"请先选择要恢复的数据文件! ")
sle_repath.SetFocus()
RETURN
END IF
COMMIT USING SQLCA ;
SetPointer(HourGlass!)//---开始恢复
//恢复的原因，连接到master数据库
DISCONNECT USING SQLCA ;
Transaction SQLCA_MASTER
SQLCA_MASTER = CREATE Transaction
SQLCA_MASTER.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA_MASTER.DataBase = "master"
SQLCA_MASTER.LogId = "sa"
SQLCA_MASTER.AutoCommit = TRUE
SQLCA_MASTER.DBParm = ""
CONNECT USING SQLCA_MASTER ;

This.Enabled = FALSE
cb_backup.Enabled = FALSE

ls_use = "EXEC sp_addumpdevice 'disk' "+" , 'coolnan' "+","+" '"+ls_path+"' "
EXECUTE IMMEDIATE : ls_use USING SQLCA_MASTER;

ls_use = "RESTORE DATABASE picture FROM coolnan"//DISK = "+" '"+ls_path+"' "
EXECUTE IMMEDIATE : ls_use USING SQLCA_MASTER;

IF SQLCA_MASTER.SQLCODE = -1 THEN
Messagebox("系统信息","警告：数据库恢复失败!~r~n~n请确认路径以及所选文件正确与否!",Stopsign!)
This.Enabled = TRUE
cb_backup.Enabled = TRUE
SQLCA.SQLCODE = 0
SQLCA.SQLDBCODE = 0
ls_use = "EXEC sp_dropdevice 'coolnan'"
EXECUTE IMMEDIATE : ls_use USING SQLCA_MASTER;
RETURN
END IF

ls_use = "EXEC sp_dropdevice 'coolnan'"
EXECUTE IMMEDIATE : ls_use USING SQLCA_MASTER;

IF SQLCA_MASTER.SQLCODE = 0 THEN
Messagebox("系统信息","数据库恢复完成!")
This.Enabled = TRUE
cb_backup.Enabled = TRUE
RETURN
ELSE
Messagebox('系统信息','数据库备份操作未进行!',Stopsign!)
RETURN
END IF
DISCONNECT USING SQLCA_MASTER ;
CONNECT USING SQLCA ;
SetPointer(HourGlass!)
 回复 赞
xirumin 2003-05-11
首先要断开与你的数据库的连接，而连到master数据库上，接下来就省事了。与备份差不多
 回复 赞
twb88 2003-05-11
用execute immediate 执行动态语句，SQL就一样了
呵呵，不知道写得对不对
 回复 赞
learn03 2003-05-11
应该改些什么呢？
device名已经改过了，还是不好用
再有sqlca_master需不需要改呢？
请指点一下
谢谢！
 回复 赞
twb88 2003-05-11
你改一改呀
不能照抄
 回复 赞
learn03 2003-05-11
谢谢twb88!
运行之后，弹出错误信息，如下：
Cannot open backup device 'coolnan'.Device error or device off-line.
See the SQL Server error log for more details.
请问这是什么原因？
 回复 赞
相关推荐
中国2012年地级及以上城市行政区域土地面积及人口密度统计(一).xls 中国2012年地级及以上城市行政区域土地面积及人口密度统计(一).xls
PHP可调试团队开发环境配置借鉴.pdf PHP可调试团队开发环境配置借鉴.pdf
msys2 用来在windows下编译ffmpeg 该安装包用来在windows下编译ffmpeg
中国2012年地级及以上城市人口状况统计(三).xls 中国2012年地级及以上城市人口状况统计(三).xls
UnionFind-2x2.pdf UnionFind-2x2
中国2011年地级及以上城市地方财政一般预算内收支状况统计(全市)(三).xls 中国2011年地级及以上城市地方财政一般预算内收支状况统计(全市)(三).xls
英语4级翻译真题-龙井茶翻译.docx 英语4级翻译真题-龙井茶翻译.docx
中国2011年地级及以上城市按行业分组的单位从业人员统计(十三).xls 中国2011年地级及以上城市按行业分组的单位从业人员统计(十三).xls
中国2011年地级及以上城市学校数统计(二).xls 中国2011年地级及以上城市学校数统计(二).xls
中国2012年地级及以上城市医院.卫生院数.床位数和医生数统计(四).xls 中国2012年地级及以上城市医院.卫生院数.床位数和医生数统计(四).xls
非人力资源主管的人力资源管理.PPT 非人力资源主管的人力资源管理.PPT
Down The Mineshaft Source.zip 国外大佬制作的python游戏（需pygame），解压即可
基于微服务框架的旅游门户的设计与实现.rar 内容包括详细设计文档word版，附带开题报告和相关PPT等文档，供大家参考学习。摘要：本系统是基于微服务的，分为后PC端旅游后台管理和PC端旅游门户两部分，其中，旅游门户实现了对景点、酒店、旅游攻略的查看，能够完成游客对旅游团、酒店、景点等消费的预定，公告模块为游客和旅行社之间建立了沟通的桥梁；管理人员登录旅游门户的后台管理系统，对系统进行维护，保证网站能够安全稳定的运行，同时，人们不用花费大量的时间和精神来管理旅游的方方面面，旅游网站可以减少管理人员的精力和时间，能够使管理人员有更多的时间去服务游客，提高了游客的体验。 旅游网站的设计可以促进济宁旅游业的发展，为游客选择旅游目的地，节省 游客和管理人员的时间，提高游客旅游的积极性，让旅游变得异常轻松。
SBT快速婚姻治疗法.doc SBT快速婚姻治疗法.doc
win7版本vue。node-v10.2.0-x64.rar win7版本nodejs使用vue
PPT模板-唯美手绘花朵PPT模板-日子在弹指一挥间就毫无声息的流逝，就在此时需要回头总结之际。.pptx PPT模板-唯美手绘花朵PPT模板-日子在弹指一挥间就毫无声息的流逝，就在此时需要回头总结之际，猛然间意识到日子的匆匆。今年在公司领导以及同事的支持和帮助下，我较快地适应了工作。回顾这段时间的工作，我在思想上、工作上都取得了很大的进步，成长了不少，但也清醒地认识到自己的不足之处。推荐下载。
中国2012年地级及以上城市社会消费品零售总额及批发零售贸易业情况统计(二).xls 中国2012年地级及以上城市社会消费品零售总额及批发零售贸易业情况统计(二).xls
中国2011年地级及以上城市市政公用事业统计(市辖区)(七).xls 中国2011年地级及以上城市市政公用事业统计(市辖区)(七).xls
高中语文选择题各题型有哪些技巧高中语文阅读选择题技巧.pdf 高中语文选择题各题型有哪些技巧高中语文阅读选择题技巧.pdf
中国2012年地级及以上城市专任教师数统计(十).xls 中国2012年地级及以上城市专任教师数统计(十).xls
发帖
PowerBuilder
创建于2007-09-28

891

社区成员

6.6w+

社区内容

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2003-05-11 10:52
社区公告
暂无公告