如何实现数据备份与恢复

[Raul5433]

pb 9.0+ASA,请教如何进行备份与恢复？
另外备份到底备份了哪些东西？恢复又恢复了哪些？
希望高手们讲解一下原理，小弟感激不尽！！！

[Raul5433]

Adaptive Server Anywhere(本文中简称ASA) 是PowerBuilder(本文中简称PB)自带的数据库管理系统，可作为小型应用系统的数据库服务器。而数据库的备份/恢复是一项基本的工作，要想用短短几分钟就完成这类程序的编写，能做到吗？本文就将为大家介绍一个用PB编写的ASA备份/恢复程序，只需很短的时间，就可以编制完成并运用在以ASA作为数据环境的小型应用上。
一 备份程序
先来看看备份程序部分的写法。在窗体上建一文本框 sle_1，用来显示备份的文件名，并添加两个按钮：cb_1(浏览)、cb_2(备份)。相应的事件代码如下：
//cb_1.clicked()
string fname,name
GetfileSaveName('保存',fname,name,“db”,'数据库备份文件(*.1),*.1')
sle_1.text=fname
//cb_2.clicked()
string mysql,bfname
bfname=trim(sle_1.text)
bfname=left(bfname,len(bfname)-2)
mysql=“BACKUP DATABASE TO '”+bfname+“'”
execute immediate :Mysql USING SQLCA;//运用SQL语句立刻执行备份
if sqlca.sqlcode=0 then
messagebox(“信息提示”,'备份成功！',information！,OK！)//给出备份成功与否的相关信息
else
messagebox(“信息提示”,'备份失败！',information！,OK！)
end if
我已经将GetfileSaveName('保存',fname,name,“db”,'数据库备份文件(*.1),*.1')
改成了GetfileSaveName('保存',fname,name,“db”,'数据库备份文件(*.db),*.db')
为什么保存后还是..1格式

[Raul5433]

谁来帮我看看啊！

[Raul5433]

自己up！各位好心人帮帮忙！

[Raul5433]

大哥，你不是玩我吗？

[嘘嘘兔]

把mysql=“BACKUP DATABASE TO '”+bfname+“'”
　　execute immediate :Mysql USING SQLCA;//运用SQL语句立刻执行备份


改成

mysql=“BACKUP DATABASE TO '”+fname+“'”
　　execute immediate :Mysql USING SQLCA;//运用SQL语句立刻执行备份

试试

[嘘嘘兔]

把mysql=“BACKUP DATABASE TO '”+bfname+“'”
　　execute immediate :Mysql USING SQLCA;//运用SQL语句立刻执行备份


改成

mysql=“BACKUP DATABASE TO '”+fname+“'”
　　execute immediate :Mysql USING SQLCA;//运用SQL语句立刻执行备份

试试

[嘘嘘兔]

把mysql=“BACKUP DATABASE TO '”+bfname+“'”
　　execute immediate :Mysql USING SQLCA;//运用SQL语句立刻执行备份


改成

mysql=“BACKUP DATABASE TO '”+fname+“'”
　　execute immediate :Mysql USING SQLCA;//运用SQL语句立刻执行备份

试试

[shokwater]

我这几天正在做备份.给你看看.不过我是备份SQL的,是成功的.希望能帮到你
int li_net
//数据库完全备份
string ls_path ,ls_use
//

ls_use = 'EXEC'+'('+"'USE Studentexperiment'"+')' //建立备份的逻辑设备
EXECUTE IMMEDIATE :ls_use ;

ls_path = sle_1.text //得到路径

SQLCA.AutoCommit = TRUE

ls_use = "EXEC sp_addumpdevice 'disk'"+" , 'Studentexperiment' , "+" '"+ls_path+"'"
EXECUTE IMMEDIATE : ls_use ; //写到备份路径

ls_use ="BACKUP DATABASE Studentexperiment to Studentexperiment"//备份数据库 studentexperiment 为studentexperiment
EXECUTE IMMEDIATE : ls_use ;

ls_use = "exec sp_dropdevice 'Studentexperiment'" //删除逻辑设备
EXECUTE IMMEDIATE : ls_use ;

SQLCA.AutoCommit = false

if sqlca.sqlcode = 0 then
messagebox("信息","备份成功!")
end if