自动生成INSERT语句的SQL存储过程

create PROC [dbo].[Spgeninsertsql] (@tablename VARCHAR(256))
AS
BEGIN
DECLARE @sql VARCHAR(8000)
DECLARE @sqlValues VARCHAR(8000)

SET @sql =' ('
SET @sqlValues = 'values (''+'

SELECT @sqlValues = @sqlValues + cols + ' + '','' + ',
@sql = @sql + '[' + name + '],'
FROM   (SELECT CASE
WHEN xtype IN ( 48, 52, 56, 59, 60, 62, 104, 106, 108, 122, 127 ) THEN 'case when ' + name + ' is null then ''NULL'' else ' + 'cast(' + name + ' as varchar)' + ' end'
WHEN xtype IN ( 58, 61 ) THEN 'case when ' + name + ' is null then ''NULL'' else ' + '''''''''	+ ' + 'cast('			+ name + ' as varchar)'						+ '+'''''''''				+ ' end'
WHEN xtype IN ( 167 )    THEN 'case when ' + name + ' is null then ''NULL'' else ' + '''''''''	+ ' + 'replace('		+ name + ','''''''','''''''''''')'			+  '+'''''''''				+ ' end'
WHEN xtype IN ( 231 )	THEN 'case when ' + name + ' is null then ''NULL'' else ' + '''N''''''	+ ' + 'replace('		+ name + ','''''''','''''''''''')'			+ '+'''''''''				+ ' end'
WHEN xtype IN ( 175 )	THEN 'case when ' + name + ' is null then ''NULL'' else ' + '''''''''	+ ' + 'cast(replace('	+ name + ','''''''','''''''''''') as Char(' + Cast(length AS VARCHAR)	+ '))+''''''''' + ' end'
WHEN xtype IN ( 239 )	THEN 'case when ' + name + ' is null then ''NULL'' else ' + '''N''''''	+ ' + 'cast(replace('	+ name + ','''''''','''''''''''') as Char(' + Cast(length AS VARCHAR)	+ '))+''''''''' + ' end'
ELSE '''NULL'''
END AS Cols,
name
FROM   syscolumns
WHERE  id = Object_id(@tablename)) T

SET @sql ='select ''INSERT INTO [' + @tablename + ']' + LEFT(@sql, Len(@sql) - 1) + ') ' + LEFT(@sqlValues, Len(@sqlValues) - 4) + ')'' from ' + @tablename

PRINT @sql

EXEC (@sql)
END

　执行如下语句测试结果：

exec spGenInsertSQL test

把得到的insert语句Copy后放置在如下位置执行：　

set Identity_Insert text on

//insert 语句

set Identity_Insert test off

PS：有时生成SQL语句很长，采用文本方式显示时无法显示全部，通过如下方式调整:

在 SQL Server 查询窗口中单击右键－〉“查询选项”－〉在“查询选项”对话框中的“结果”下，单击“文本”－〉更改"每列中显示的最大数"