首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

更改数据库所有者的对象

Posted on 2005-03-19 01:09  delphi  阅读(318)  评论(0)    收藏  举报
--功能说明:成批更改数据库所有者的对象 
--
作者:不详 
--
用法:exec ChangeObjectOwner 'nmkspro','dbo' 
--
即可将所有nmkspro所有者的对象改为dbo所有 
--
运行成功后将提示:"注意: 更改对象名的任一部分都可能破坏脚本和存储过程。" 
CREATE PROCEDURE dbo.ChangeObjectOwner 
@OldOwner 
as NVARCHAR(128),--参数原所有者 
@NewOwner as NVARCHAR(128)--参数新所有者 
AS 

DECLARE @Name   as NVARCHAR(128
DECLARE @Owner  as NVARCHAR(128
DECLARE @OwnerName as NVARCHAR(128

DECLARE curObject CURSOR FOR 
select 'Name'   = name, 
 
'Owner'   = user_name(uid) 
from sysobjects 
where user_name(uid)=@OldOwner 
order by name 

OPEN  curObject 
FETCH NEXT FROM curObject INTO @Name, @Owner 
WHILE(@@FETCH_STATUS=0
BEGIN      
if @Owner=@OldOwner 
begin 
 
set @OwnerName = @OldOwner + '.' + rtrim(@Name) 
 
exec sp_changeobjectowner @OwnerName, @NewOwner 
end 

FETCH NEXT FROM curObject INTO @Name, @Owner 
END 

close curObject 
deallocate curObject 
GO