none
VB.NET 如何把下面的存储过程查询的结果。保存为本地txt格式文件。谢谢。 RRS feed

  • 问题

  • 如何把下面的存储过程查询的结果。保存为本地txt格式文件。谢谢。

    存储过程如下。

    这个存储过程的功能是:导出数据库表数据为Insert格式文本。(exec OutputData 表名称)结果用文本显示

    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 '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 
    
    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 '
    
    +@tablename+'('+@column+') values(''as ''--'','+@columndata+','')'' from '+@tablename 
    
    print '--'+@sql 
    exec(@sql) 
    
    if @ident is not null 
    print 'SET IDENTITY_INSERT '+@TableName+' OFF'
    GO
    

    2012年10月31日 8:03

全部回复