SQL中print、sp_helptext的限制与扩展

在SQL中，使用动态SQL是很常见的。有些复杂的计算，或是存储过程，代码很长，中间可能有多次执行SQL语句。而调试拼串的SQL语句却是件痛苦的事，很难看出来运行的语句是什么。所以我会经常使用print这个命令把运行前的语句打印到屏幕上，然后复制出来到另一个窗口进行调试、修改，这样就比较方便了。但是这个print命令有一些限制,在单字节符集下，最大只能打印打印8000个字符的长度，而在双字节字符集是4000个。

以下存储过程可以打印完整的信息，不受长度的限制。代码如下：

									IF OBJECT_ID(N'sp_print_all') IS NOT NULL

									BEGIN

									DROP PROCEDURE sp_print_all

									END

									GO

									CREATE PROCEDURE sp_print_all (@dynamic_sql NVARCHAR(MAX))

									AS

									DECLARE @start INT

									DECLARE @len INT

									SET @start = 1

									SET @len = 4000

									WHILE (@start < LEN(@dynamic_sql))

									BEGIN

									PRINT SUBSTRING(@dynamic_sql, @start, @len)

									SET @start = @start + @len

									END

									PRINT SUBSTRING(@dynamic_sql, @start, @len)

									GO

code-1

还有一个存储sp_helptext，可以查询存储过程，函数等代码，使用起来也比较方便，但也有长度的限制，而且打印出来的格式跟源代码的格式有些对应不上。写了一个自定义存储过程来代替，代码如下：

									IF OBJECT_ID(N'sp_helptext_user') IS NOT NULL

									BEGIN

									DROP PROCEDURE sp_helptext_user

									END

									GO

									CREATE PROCEDURE sp_helptext_user(@obj_name NVARCHAR(200) = '')

									AS

									SET NOCOUNT ON;

									DECLARE @text NVARCHAR(MAX)

									,@i INT

									,@text2 NVARCHAR(MAX)

									,@db_name SYSNAME

									,@obj_id BIGINT

									SET @db_name = PARSENAME(@obj_name ,3)

									IF @db_name IS NULL

									SET @db_name = DB_NAME()

									ELSE

									IF @db_name <> DB_NAME()

									BEGIN

									RAISERROR(15250 ,-1 ,-1)

									RETURN (1)

									END

									SET @obj_id = OBJECT_ID(@obj_name)

									IF @obj_id IS NULL

									BEGIN

									RAISERROR(15009 ,-1 ,-1 ,@obj_name ,@db_name)

									RETURN (1)

									END

									SELECT @text = [definition]

									FROM sys.all_sql_modules

									WHERE [object_id] = @obj_id

									WHILE LEN(@text) > 2000

									BEGIN

									SET @i = CHARINDEX(CHAR(13) ,@text ,2000) 

									SET @text2 = LEFT(@text ,@i)

									SET @text = SUBSTRING(@text ,@i + 2 ,LEN(@text)) 

									PRINT @text2

									END

									PRINT @text

									SET NOCOUNT OFF;

									GO