[转]sp_MSforeachObject

CREATE proc sp_MSforeachObject 
 @objectType int=1, 
 @command1 nvarchar(2000), 
 @replacechar nchar(1) = N'?', 
 @command2 nvarchar(2000) = null, 
 @command3 nvarchar(2000) = null, 
 @whereand nvarchar(2000) = null, 
 @precommand nvarchar(2000) = null, 
 @postcommand nvarchar(2000) = null 
as 
/* 
EXEc sp_MSforeachObject @command1="sp_changeobjectowner '?', 'dbo'",@objectType=4 
         1    'IsUserTable'  表 
         2    'IsView'  视图 
         3    'IsTrigger'  触发器 
         4    'IsProcedure'   存储过程 
         5    'IsDefault'   
         6    'IsForeignKey'  外键 
         7    'IsScalarFunction' 自定义函数 
         8    'IsInlineFunction' 
         9    'IsPrimaryKey' 
         10  'IsExtendedProc'     主键 
         11  'IsReplProc' 
         12  'IsRule'   自定义规则 
*/ 
 /* This proc returns one or more rows for each table (optionally, matching @where), with each table defaulting to its 
own result set */ 
 /* @precommand and @postcommand may be used to force a single result set via a temp table. */ 
 /* Preprocessor won't replace within quotes so have to use str(). */ 
 declare @mscat nvarchar(12) 
 select @mscat = ltrim(str(convert(int, 0x0002))) 
 if (@precommand is not null) 
  exec(@precommand) 
 /* Defined  @isobject for save object type */ 
 Declare @isobject varchar(256) 
 select @isobject= case @objectType 
         when 1 then 'IsUserTable' 
         when 2 then 'IsView' 
         when 3 then 'IsTrigger' 
         when 4 then 'IsProcedure' 
         when 5 then 'IsDefault'   
         when 6 then 'IsForeignKey' 
         when 7 then 'IsScalarFunction' 
         when 8 then 'IsInlineFunction' 
         when 9 then 'IsPrimaryKey' 
         when 10 then 'IsExtendedProc'    
         when 11 then 'IsReplProc' 
         when 12 then 'IsRule' 
                                 end 
 /* Create the select */ 
 /* Use @isobject variable isstead of IsUserTable string */ 
EXEC(N'declare hCForEach cursor global for select ''['' + REPLACE(user_name(uid), N'']'', N'']]'') + '']'' + ''.'' + ''['' + 
REPLACE(object_name(id), N'']'', N'']]'') + '']'' from dbo.sysobjects o ' + 
N' where OBJECTPROPERTY(o.id, N'''+@isobject+''') = 1 '+N' and o.category & ' + @mscat + N' = 0 ' + @whereand) 
 declare @retval int 
 select @retval = @@error 
 if (@retval = 0) 
  exec @retval = sp_MSforeach_worker @command1, @replacechar, @command2, @command3 
 if (@retval = 0 and @postcommand is not null) 
  exec(@postcommand) 
 return @retval 
GO