PB中实现备份数据库/还原数据库

============备份数据库

//备份数据库

SQLCA.AutoCommit = TRUE

//将数据库备份到文件
ls_style = "USE " + as_databasename
EXECUTE IMMEDIATE : ls_style;

ls_style = "BACKUP DATABASE " + as_databasename + " TO disk = '" + as_path + "' WITH FORMAT, NAME = 'Full Backup'" 
EXECUTE IMMEDIATE : ls_style;

SQLCA.AutoCommit = false

============还原数据库

//还原数据库

//首先连接到MASTER数据库
string ls_ServerName,ls_LogId,ls_LogPass
Transaction SQLMASTER

ls_ServerName = SQLCA.ServerName
ls_LogId = SQLCA.LogId
ls_LogPass = SQLCA.LogPass

disconnect using sqlca;

SQLMASTER = CREATE Transaction
SQLMASTER.DBMS = "MSS Microsoft SQL Server 6.x"
SQLMASTER.Database = "master"
SQLMASTER.ServerName = ls_ServerName
SQLMASTER.LogId = ls_LogId
SQLMASTER.LogPass = ls_LogPass
SQLMASTER.AutoCommit = true

connect using SQLMASTER;

//通过master数据库用指定还原文件还原指定数据库
ls_style = "USE master" 
EXECUTE IMMEDIATE : ls_style using SQLMASTER;
ls_style = "RESTORE DATABASE " + as_databasename + " FROM disk = '" + as_path + "'"
   EXECUTE IMMEDIATE : ls_style using SQLMASTER;

IF sqlca.SQLCODE = 0 THEN
ls_funreturn = '2'
else
ls_funreturn = SQLMASTER.sqlerrtext
END IF

//断开连接，还原原来的SQLCA连接
disconnect using SQLMASTER;
connect using sqlca;