刷新SQL SERVER所有视图、函数、存储过程

此脚本用于在删除或添加字段时刷新相关视图，并检查视图、函数、存储过程有效性。

SQL2005及以下

--视图、存储过程、函数名称
DECLARE @NAME NVARCHAR(255);
--局部游标
DECLARE @CUR CURSOR 
SET @CUR=CURSOR SCROLL DYNAMIC FOR 
SELECT NAME FROM DBO.SYSOBJECTS 
	WHERE NAME NOT IN ('SYSCONSTRAINTS','SYSSEGMENTS')
		AND
		(
			OBJECTPROPERTY(ID, N'IsView') = 1				--视图
			OR OBJECTPROPERTY(ID,N'IsProcedure') = 1		--存储过程
			OR OBJECTPROPERTY(ID,N'IsScalarFunction') = 1	--标量函数
			OR OBJECTPROPERTY(ID,N'IsTableFunction') = 1	--标题函数
			OR OBJECTPROPERTY(ID,N'IsInlineFunction') = 1	--内联函数
		);

OPEN @CUR;
FETCH NEXT FROM @CUR INTO @NAME

WHILE (@@FETCH_STATUS=0)
BEGIN

	DECLARE @OldText NVARCHAR(MAX);
	DECLARE @NewText NVARCHAR(MAX);

	--读取创建脚本，当脚本超长时分成多条记录时合并
	SELECT @OldText=@OldText + CHAR(10) + CHAR(13) + RTRIM(TEXT) FROM SYSCOMMENTS WHERE ID = OBJECT_ID(@NAME);

	--将创建脚本替换为更新脚本
	SET @NewText=REPLACE(@OldText,N'CREATE VIEW',N'ALTER VIEW');
	SET @NewText=REPLACE(@NewText,N'CREATE PROCEDURE',N'ALTER PROCEDURE');
	SET @NewText=REPLACE(@NewText,N'CREATE FUNCTION',N'ALTER FUNCTION');
	
	BEGIN TRY
		EXEC(@NewText);
	END TRY
	BEGIN CATCH
		PRINT N'---------------------------------------------------------------------------';
		PRINT @NAME + N' : ' + ERROR_MESSAGE();
		--PRINT @OldText;
		PRINT N'---------------------------------------------------------------------------';
	END CATCH

	FETCH NEXT FROM @CUR INTO @NAME

END

CLOSE @CUR;
DEALLOCATE @CUR;

SQL2008及以上

--视图、存储过程、函数名称  
DECLARE @NAME NVARCHAR(255);  
--局部游标  
DECLARE @CUR CURSOR    
SET @CUR=CURSOR SCROLL DYNAMIC FOR   
SELECT NAME FROM DBO.SYSOBJECTS   
    WHERE NAME NOT IN ('SYSCONSTRAINTS','SYSSEGMENTS')  
        AND  
        (  
            OBJECTPROPERTY(ID, N'IsView') = 1               --视图  
            OR OBJECTPROPERTY(ID,N'IsProcedure') = 1        --存储过程  
            OR OBJECTPROPERTY(ID,N'IsScalarFunction') = 1   --标量函数  
            OR OBJECTPROPERTY(ID,N'IsTableFunction') = 1    --标题函数  
            OR OBJECTPROPERTY(ID,N'IsInlineFunction') = 1   --内联函数  
        );  
  
OPEN @CUR;  
FETCH NEXT FROM @CUR INTO @NAME  
  
WHILE (@@FETCH_STATUS=0)  
BEGIN     
    BEGIN TRY
		BEGIN TRAN  
		EXEC SP_REFRESHSQLMODULE @NAME; 
		COMMIT
    END TRY  
    BEGIN CATCH  
	    ROLLBACK
        PRINT N'---------------------------------------------------------------------------';  
        PRINT @NAME + N' : ' + ERROR_MESSAGE();  
        --PRINT @OldText;  
        PRINT N'---------------------------------------------------------------------------';  
    END CATCH  
  
    FETCH NEXT FROM @CUR INTO @NAME  
  
END  
  
CLOSE @CUR;  
DEALLOCATE @CUR;