• 转:将SQL Server的数据导出成文本


    create PROCEDURE   [dbo].[outputdata]   
    
      @tableName Varchar(100)--表名
    AS
        DECLARE @IsIdentity INT
        DECLARE @columnName VARCHAR(100)--列名
        DECLARE @TypeName VARCHAR(100)--数据类型
        DECLARE @columns VARCHAR(8000)--
        DECLARE @columnsAndhead VARCHAR(8000)--
         
        SET @columnsAndhead = 'INSERT INTO '+@tableName+'(['
        SET @columns = ''
         
        --获取表的所有字段名称
        DECLARE a CURSOR FOR 
            SELECT COLUMNPROPERTY( a.id,a.name,'IsIdentity') AS IsIdentity, a.[NAME] AS ColumnName ,b.[NAME] AS TypeName 
            FROM syscolumns a INNER JOIN systypes b ON a.xtype=b.xtype AND b.xtype=b.xusertype 
            WHERE a.[id]=(SELECT [id] FROM sysobjects WHERE [NAME]=@tableName)
         
        OPEN a
    
        FETCH NEXT FROM a INTO @IsIdentity, @columnName ,@TypeName
            WHILE @@FETCH_STATUS = 0
                BEGIN
                    IF @IsIdentity =0
                        BEGIN
                            IF @TypeName IN ('bigint','bit','decimal','float','int','money','numeric','real','smallint','smallmoney','tinyint','datetime')
                                BEGIN
                                    SET @columns = @columns + 'ISNULL(CAST(['+@columnName +'] AS VARCHAR),''NULL'')+'',''+'
                                END
                            ELSE
                                BEGIN
                                    SET @columns = @columns+ '''''''''+ ISNULL(CAST(['+@columnName +'] AS VARCHAR(50)),''NULL'')+ ''''''''+'',''+'
                                END
                            SET @columnsAndhead = @columnsAndhead + ''+ @columnName +'],[' 
                        END
                    FETCH NEXT FROM a INTO @IsIdentity, @columnName ,@TypeName
                 END
    
    
        SELECT @columnsAndhead = left(@columnsAndhead,len(@columnsAndhead)-2) +') VALUES('''
        SELECT @columns = left(@columns,len(@columns)-5)
    
        CLOSE a
        DEALLOCATE a 
        print 'select '''+@columnsAndhead+'+'+@columns +'+'')'' as InsertSQL from '+@tableName
       exec('select '''+@columnsAndhead+'+'+@columns +'+'')'' as InsertSQL from '+@tableName)

     转自:https://www.cnblogs.com/Snowolf/archive/2011/04/12/2013864.html

  • 相关阅读:
    cxgrid动态创建列
    cxgrid显示海量数据
    Delphi 两个应用程序(进程)之间的通信
    Delphi实现窗体内嵌其他应用程序窗体
    Change tab position of PageControl to bottom
    how can I make the login form transparent?
    UniDBGrid增加显示记录数的label及隐藏refresh按钮
    java工厂模式实例化class
    Java 语言细节
    applet示例 WelcomeApplet.java <Core Java>
  • 原文地址:https://www.cnblogs.com/vincentvoid/p/15945808.html
Copyright © 2020-2023  润新知