MS SQL Server將資料匯出Insert語句的預存程序

< DOCTYPE html PUBLIC -WCDTD XHTML StrictEN httpwwwworgTRxhtmlDTDxhtml-strictdtd>

if exists (select * from sysobjects where type='p' and  name='UspOutputData')  
   drop proc UspOutputData  
GO  
CREATE PROCEDURE dbo.UspOutputData   
@tablename sysname   
AS   
declare @column varchar(2000)   
declare @columndata varchar(2000)   
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=rtrim(object_name(@objectId))   
if @objectname is null or charindex(@objectname,@tablename)=0   
begin   
print 'object not in current database'   
return   
end   
-- 判??象是否是table   
if OBJECTPROPERTY(@objectId,'IsTable') < > 1   
begin   
print 'The object is not table'   
return   
end   
--不知道列印的意義  
select @ident=status&0x80 from syscolumns where 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 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'   
GO  
 
exec UspOutputData T_Sys_Dict_Data  

最後使用exec UspOutputData T_Sys_Dict_Data 執行預存程序就ok了。 T_Sys_Dict_Data 是表名，任何錶都可以。

#資料庫技術