求 oracle 备份数据库的存储过程

求一oracle中备份数据库的存储过程，希望各位高手能给我个测试通过的，不胜感激！！！

---

/*备份数据库的存储过程*/
if exists(
select * from sysobjects
  where name='pr_backup_db' and xtype='p'
          )
begin
drop proc pr_backup_db
end
go

create proc pr_backup_db
@flag varchar(20) out,
@backup_db_name varchar(128),
@filename varchar(1000)  --路径＋文件名字
as
declare @sql nvarchar(4000),@par nvarchar(1000)
if not exists(
select * from master..sysdatabases
  where name=@backup_db_name
  )
begin
select @flag='db not exist'  /*数据库不存在*/
return
end
else
begin
if right(@filename,1) <>'\' and charindex('\',@filename) <>0
begin
  select @par='@filename varchar(1000)'
  select @sql='BACKUP DATABASE '+@backup_db_name+' to disk=@filename with init'
  execute sp_executesql @sql,@par,@filename
  select @flag='ok'
  return
end
else
begin
  select @flag='file type error'  /*参数@filename输入格式错误*/
  return
end
end

GO


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/haojialin/arch