ExportData4Mssql

CREATE PROCEDURE    dbo.OutputData     

@tablename   sysname     

AS     

declare    @column   varchar(1000)     

declare    @columndata   varchar(1000)     

declare    @sql   varchar(4000)     

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 @tablename + '对象不存在'     

      return     

    end     

set @objectname=rtrim(object_name(@objectId))     

if @objectname is null or charindex(@objectname,@tablename)=0

    begin     

      print @tablename + '对象不在当前数据库中'      

      return     

    end       

if OBJECTPROPERTY(@objectId,'IsTable')   <   >   1   --   判断对象是否是表     

    begin     

      print @tablename + '对象不是表'     

      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'    

--定义游标，循环取数据并生成Insert语句

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   '+@tablename+'('+@column+')   values(''as   ''--'','+@columndata+','')''   from   '+@tablename        

print    '--'+@sql     

exec(@sql)         

if    @ident   is   not   null     

print 'SET   IDENTITY_INSERT   '+@TableName+'   OFF'