您所在位置：主题：[讨论]救救我啊
liqiong
[专家分：0] 发布于 2006-04-24 20:29:00
各位大侠,急救啊!!!
我现在遇到了这个问题
这是系统主界面
平时运行都是正常的,比如”题库维护”里面点”单选题”,会出现下面的窗口
大家看到了,这个窗口里面的控件显示是完整的,全部显示出来了的!!!
后来,为了完善系统功能,我做了”备份与还原”的功能,窗口如下
因为我从来没有做过ASA的备份和还原,后来看到有位叫”blog oury”的同志发表了一篇”单搞定ASA备份/恢复程序”的文章
于是我就按照他的方法来做的。上面窗口中最上方的那个“确定”按钮的script是：
string mysql,bfname
hpb_1.visible = true
hpb_1.position = 50
bfname = trim(sle_1.text)
bfname = left(bfname,len(bfname) - 2)
mysql = "backup database to '" + bfname + "'"
execute immediate :mysql using sqlca;
if sqlca.sqlcode = 0 then
hpb_1.position = 100
st_21.visible = true
else
hpb_1.position = 0
st_21.text = "Failure!"
st_21.visible = true
end if
相当于用的那个 backup database to ….来实现备份
下面那个“确定”按钮的script是：
string mysql,pname,mydb,tempdb,templog
ulong sxz = 32,kb
boolean tmp
hpb_2.visible = true
hpb_2.position = 50
pname = trim(sle_2.text)
pname = left(pname,len(pname) - 2)
tempdb = applicationdir + "\temps\temp.db"
templog = applicationdir + "\temps\CAE&SS.log"
mysql = "RESTORE DATABASE '" + tempdb + "' from '" + pname + "'"
execute immediate :mysql using sqlca;
if sqlca.sqlcode <> 0 then
hpb_2.position = 0
st_24.text = "Failure!"
st_24.visible = true
return
end if
disconnect;
mydb = applicationdir + "\CAE&SS.db"
SetFileAttributes(mydb,sxz)
tmp = filedelete(mydb)
if tmp = false then
hpb_2.position = 0
st_24.text = "Failure!"
st_24.visible = true
return
end if
kb = filecopy(tempdb,mydb,true)
if kb = 1 then
hpb_2.position = 100
st_24.visible = true
else
hpb_2.position = 0
st_24.text = "Failure!"
st_24.visible = true
return
end if
filedelete(tempdb)
filedelete(templog)
//以下在连接数据库
connect using sqlca ;
//我们以上的备份方式是这样的
//一旦还原,那么数据库文件*.db是用的原来的备份数据,而日志文件*.log一直是用的现在的文件喽!
反正相当于用的“restore database to ..”的那个命令
编完了以后，确实能完成备份和还原功能，我相当高兴，但是每次执行完“备份”或“还原”后，
打开其它窗口就变成下面这样了，好郁闷啊，我又是一个追求完美的人!!!
所有功能窗口上的图片，图标全部调不出来了，把应用全部关了，再打开又好了!!!
求求各位大侠，帮帮我！我都快疯掉了
我在想： 会不会是backup database to ….命令和 restore database …命令很占用资源和内存?
会不会是什么东西没有释放，但是这些全部Powerbuilder自建的吗！应该会自动释
放啊?
是不是execute immediate :mysql using sqlca;那条句子很占资源？
为了方便大家诊断，我还要告诉大家，出现这种情况是我在Powerbuildr平台中，
还没编译的时候就有了，至于那些图片控件上的图片我是通过“.\picture\1.jpg”
的方式做到***.pbr中的
请你们加我,我的QQ是455231032,也可以远程协助我，谢了！
[em10]
我现在遇到了这个问题
这是系统主界面
平时运行都是正常的,比如”题库维护”里面点”单选题”,会出现下面的窗口
大家看到了,这个窗口里面的控件显示是完整的,全部显示出来了的!!!
后来,为了完善系统功能,我做了”备份与还原”的功能,窗口如下
因为我从来没有做过ASA的备份和还原,后来看到有位叫”blog oury”的同志发表了一篇”单搞定ASA备份/恢复程序”的文章
于是我就按照他的方法来做的。上面窗口中最上方的那个“确定”按钮的script是：
string mysql,bfname
hpb_1.visible = true
hpb_1.position = 50
bfname = trim(sle_1.text)
bfname = left(bfname,len(bfname) - 2)
mysql = "backup database to '" + bfname + "'"
execute immediate :mysql using sqlca;
if sqlca.sqlcode = 0 then
hpb_1.position = 100
st_21.visible = true
else
hpb_1.position = 0
st_21.text = "Failure!"
st_21.visible = true
end if
相当于用的那个 backup database to ….来实现备份
下面那个“确定”按钮的script是：
string mysql,pname,mydb,tempdb,templog
ulong sxz = 32,kb
boolean tmp
hpb_2.visible = true
hpb_2.position = 50
pname = trim(sle_2.text)
pname = left(pname,len(pname) - 2)
tempdb = applicationdir + "\temps\temp.db"
templog = applicationdir + "\temps\CAE&SS.log"
mysql = "RESTORE DATABASE '" + tempdb + "' from '" + pname + "'"
execute immediate :mysql using sqlca;
if sqlca.sqlcode <> 0 then
hpb_2.position = 0
st_24.text = "Failure!"
st_24.visible = true
return
end if
disconnect;
mydb = applicationdir + "\CAE&SS.db"
SetFileAttributes(mydb,sxz)
tmp = filedelete(mydb)
if tmp = false then
hpb_2.position = 0
st_24.text = "Failure!"
st_24.visible = true
return
end if
kb = filecopy(tempdb,mydb,true)
if kb = 1 then
hpb_2.position = 100
st_24.visible = true
else
hpb_2.position = 0
st_24.text = "Failure!"
st_24.visible = true
return
end if
filedelete(tempdb)
filedelete(templog)
//以下在连接数据库
connect using sqlca ;
//我们以上的备份方式是这样的
//一旦还原,那么数据库文件*.db是用的原来的备份数据,而日志文件*.log一直是用的现在的文件喽!
反正相当于用的“restore database to ..”的那个命令
编完了以后，确实能完成备份和还原功能，我相当高兴，但是每次执行完“备份”或“还原”后，
打开其它窗口就变成下面这样了，好郁闷啊，我又是一个追求完美的人!!!
所有功能窗口上的图片，图标全部调不出来了，把应用全部关了，再打开又好了!!!
求求各位大侠，帮帮我！我都快疯掉了
我在想： 会不会是backup database to ….命令和 restore database …命令很占用资源和内存?
会不会是什么东西没有释放，但是这些全部Powerbuilder自建的吗！应该会自动释
放啊?
是不是execute immediate :mysql using sqlca;那条句子很占资源？
为了方便大家诊断，我还要告诉大家，出现这种情况是我在Powerbuildr平台中，
还没编译的时候就有了，至于那些图片控件上的图片我是通过“.\picture\1.jpg”
的方式做到***.pbr中的
请你们加我,我的QQ是455231032,也可以远程协助我，谢了！
[em10]