ehxz 发表于 2004-7-27 20:11:32

给所有存储过程加所有人权限的一个存储过程

create procedure up_grant_all
(@objecttypesvarchar(3)
)
as
declare @da_objectnamevarchar(30)
declare @da_objecttypevarchar(30)
declare @ls_sql         varchar(255)
/*
**If we're in a transaction, disallow this since it might make recovery
**impossible.
*/
if @@trancount > 0
begin
    /* 17260, "Can't run %1! from within a transaction." */
    raiserror 17260, "up_grant_all"
    return (1)
end
if upper(@objecttypes )='ALL'
begin
    declare cur_result2 cursor for   
    selectname, type
    fromsysobjects
end
else
begin
    declare cur_result2 cursor for   
    selectname,type
    fromsysobjects
    where sysobjects.type = upper(@objecttypes)
end
opencur_result2
fetch cur_result2 into@da_objectname ,@da_objecttype
while (@@sqlstatus = 0)
begin
    if @da_objecttype ='U' or @da_objecttype ='V'
      begin
             exec ( 'grant all on ' + @da_objectname+ ' to public' )

      end

    else if@da_objecttype ='P'
            begin
         
               exec ( 'grant execute on '+@da_objectname +' to public' )
         
         end
   
fetch cur_result2 into@da_objectname ,@da_objecttype
end
close cur_result2   
deallocate cursor cur_result2   

kerigen 发表于 2004-8-16 12:32:34

想学一下PFC,大家给点意见!!

<P>强</P>

magicsnake 发表于 2004-12-27 11:14:10

页: [1]
查看完整版本: 给所有存储过程加所有人权限的一个存储过程

免责声明:
本站所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Admin@SybaseBbs.com