权限的问题

poweros

各位大大，有没有什么命令一次性的、批量的给某个用户赋予库中所有表、视图等相同的权限呢？如赋予A用户在数据库D中所有表、视图查询的权限。

ehxz

create procedure up_grant_all
(@objecttypes  varchar(3)
)
as
declare @da_objectname  varchar(30)
declare @da_objecttype  varchar(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   
    select  name  , type
    from  sysobjects  
end
else
begin
    declare cur_result2 cursor for   
    select  name  ,  type
    from  sysobjects  
    where sysobjects.type = upper(@objecttypes)
end
open  cur_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   

给你一个存储过程看一下

poweros

谢谢！拜读中。。。