自动生成sql insert 语句

IF OBJECT_ID('spGenInsertSQL','P') IS NOT NULL
DROP PROC spGenInsertSQL
 GO
 CREATE   proc 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
 GO

exec spGenInsertSQL TableName

只有在字符集相同的情况，如果字符集有问题的话，可能引发错误