SQL Server 开发之 复制表数据的SQL脚本生成器（带参数导出）

CREATE PROCEDURE   dbo.OutputData
@tablename   sysname,
@where varchar(2000)
AS
declare   @column   varchar(8000)
declare   @columndata   varchar(8000)
declare   @sql   varchar(8000)
declare   @xtype   tinyint
declare   @name   sysname
declare   @objectId   int
declare   @objectname   sysname
declare   @ident   int

set   nocount   on
set   @objectId=object_id(@tablename)

if   @objectId   is   null   --   判斷對象是否存在
begin
print   'The   object   not   exists'
return
end
set     @objectname=object_name(@objectId)

if     @objectname   is   null   or   charindex(@objectname,@tablename)=0   --此判断不严密
begin
print   'object   not   in   current   database'
return
end

if   OBJECTPROPERTY(@objectId,'IsTable')   <>   1   --   判斷對象是否是table
begin
print   'The   object   is   not   table'
return
end

select   @ident=status&0x80     from   syscolumns   where   id=@objectid   and   status&0x80=0x80

if   @ident   is   not   null
print   'SET   IDENTITY_INSERT   '+@TableName+'   ON'

declare   syscolumns_cursor   cursor
for   select   c.name,c.xtype   from   syscolumns   c
where   c.id=@objectid
order   by   c.colid
open   syscolumns_cursor
set   @column=''
set   @columndata=''
fetch   next   from   syscolumns_cursor   into   @name,@xtype
while   @@fetch_status   <>-1
begin
if   @@fetch_status<>-2
begin
if   @xtype   not   in(189,34,35,99,98)   --timestamp不需处理，image,text,ntext,sql_variant   暂时不处理
begin
set   @column=@column+case   when   len(@column)=0   then''   else   ','end+@name
set   @columndata=@columndata+case   when   len(@columndata)=0   then   ''   else   ','','','end
+case   when   @xtype   in(167,175)   then   '''''''''+'+@name+'+'''''''''   --varchar,char
when   @xtype   in(231,239)   then   '''N''''''+'+@name+'+'''''''''   --nvarchar,nchar
when   @xtype=61   then   '''''''''+convert(char(23),'+@name+',121)+'''''''''   --datetime
when   @xtype=58   then   '''''''''+convert(char(16),'+@name+',120)+'''''''''   --smalldatetime
when   @xtype=36   then   '''''''''+convert(char(36),'+@name+')+'''''''''   --uniqueidentifier
else   @name   end
end
end
fetch   next   from   syscolumns_cursor   into   @name,@xtype
end
close   syscolumns_cursor
deallocate   syscolumns_cursor

set   @sql='set nocount on select ''insert into '+@tablename+'('+@column+')   values(''as   ''--'','+@columndata+','');''   from   '+@tablename  + ' ' + @where

print   '--'+@sql
exec(@sql)

if   @ident   is   not   null
print   'SET   IDENTITY_INSERT   '+@TableName+'   OFF'