用游标遍历某台服务器下所有的数据库中 汲及到某个关键词的 所有存储过程及自定义函数

    USE MASTER  
    GO  
       
    if exists(select * from tempdb..sysobjects where id=object_id('tempdb..#tmpResult'))  
    begin  
        drop table #tmpResult  
    end  

	if exists(select * from tempdb..sysobjects where id=object_id('tempdb..#tmpResultErrorMsg'))  
    begin  
        drop table #tmpResultErrorMsg  
    end  
      
    create table #tmpResult  
    (  
        [ObjectName] varchar(100), 
		[Type] varchar(10),
		[TypeDesc] varchar(100),
        [DbName] varchar(100)
    )  

	create table #tmpResultErrorMsg  
    (  
        [UserAccount] varchar(50), 
		[DbName] varchar(50),
		[ShortIssue] varchar(20),
        [ErrorMsg] varchar(500)
    )  

    go  
      
    DECLARE @dbname VARCHAR(100)  
    DECLARE @sql VARCHAR(4000)  
    DECLARE @searchKeyword VARCHAR(100)  
      
        SET @searchKeyword='GMPI'  

	DECLARE @sErrorMsg VARCHAR(500)
	DECLARE @sUserAccount VARCHAR(50)
	DECLARE @sShortIssue VARCHAR(20)
      
    DECLARE dbname_cursor SCROLL CURSOR FOR  
    Select Name FROM Master..SysDatabases order by Name   
      
    OPEN dbname_cursor  
    FETCH  next FROM dbname_cursor INTO @dbname  
      
    WHILE @@fetch_status=0  
    BEGIN  
        FETCH  next FROM dbname_cursor INTO @dbname  
        set @sql='USE ' + @dbname  
		set @sql=@sql + ' insert into #tmpResult	  
SELECT OBJECT_NAME(sm.object_id) AS ObjectName, o.type as Type
	, o.type_desc as TypeDesc,'''+ @dbname +   ''' AS DbName
FROM sys.sql_modules AS sm
JOIN sys.objects AS o ON sm.object_id = o.object_id
WHERE UPPER(sm.definition) LIKE ''%' + UPPER(@searchKeyword) + '%''
ORDER BY o.type'
		   
        BEGIN try  
            EXEC(@sql)  
			--PRINT @SQL
        END TRY  
        BEGIN CATCH  
            IF(@@ERROR<>0)  
            BEGIN  
                PRINT ERROR_MESSAGE() 

				SET @sErrorMsg= ERROR_MESSAGE() 


				DECLARE @iStartPos int=charindex('The server principal "',@sErrorMsg)
				DECLARE @iEndPos int=charindex('" is not able to access',@sErrorMsg)

				if(@iStartPos>0 and @iEndPos>0) 
				begin
					SET @sUserAccount=SUBSTRING(@sErrorMsg,@iStartPos + len('The server principal "'),@iEndPos-@iStartPos-len('" is not able to access')+1) 
					SET @sShortIssue ='Permission Access'
				end
				else begin
					SET @sShortIssue ='Other'
				end
				
				--SET @iStartPos=charindex('the database "',@sErrorMsg)
				--SET @iEndPos=charindex('" under the current security context.',@sErrorMsg)
				--SET @sDbName=SUBSTRING(@sErrorMsg,@iStartPos,@iEndPos-@iStartPos) 

				--@dbname

				insert into #tmpResultErrorMsg 
				select @sUserAccount,@dbname,@sShortIssue,@sErrorMsg

            END  
        END catch  
    END  
      
    CLOSE dbname_cursor  
    DEALLOCATE dbname_cursor  
    GO  
      
    select * from tempdb..#tmpResult order by Type
    select * from tempdb..#tmpResultErrorMsg 

    drop table #tmpResult  
	drop table #tmpResultErrorMsg