【问题】DB结构的发布,SQL Server的管理器可以生成脚本;那么数据如何发布呢?

【思路】生成INSERT INTO ... VALUES...语句

  1. /*-- =============================================  
  2. -- Author:      Yew  
  3. -- Create date: 2012-05-18  
  4. -- Description: 生成数据发布的INSERT脚本  
  5.  
  6. ----TestCode---------------------------  
  7. EXEC [TOOL].[Script_Insert]  
  8.      @Schema    = 'COMMON' 
  9.     ,@Table     = 'Config' 
  10.     ,@Filter    = '[Key] LIKE ''test%'' ' 
  11.     ,@Field0    = '[Key]' 
  12.     ,@Field1    = 'SubKey' 
  13.     ,@Field2    = 'Value' 
  14.     ,@Field3    = null 
  15.     ,@Field4    = null 
  16.  
  17. EXEC [TOOL].[Script_Insert]  
  18.      @Schema    = 'COMMON' 
  19.     ,@Table     = 'MasterData' 
  20.     ,@Filter    = 'Category = ''SheetItem_PreloadType'' ' 
  21.     ,@Field0    = 'Category' 
  22.     ,@Field1    = 'Code' 
  23.     ,@Field2    = 'Name' 
  24.     ,@Field3    = 'Ord' 
  25.     ,@Field4    = null 
  26.  
  27. ----History---------------------------  
  28. -- =============================================*/  
  29. ALTER PROCEDURE [TOOL].[Script_Insert]  
  30.      @Schema    sysname = 'dbo' 
  31.     ,@Table     sysname  
  32.     ,@Filter    sysname = null 
  33.     ,@Field0    sysname  
  34.     ,@Field1    sysname = null 
  35.     ,@Field2    sysname = null 
  36.     ,@Field3    sysname = null 
  37.     ,@Field4    sysname = null 
  38. AS 
  39. BEGIN 
  40.     SET NOCOUNT ON;  
  41.  
  42.     -- 0. Define Const  
  43.     DECLARE @NL     varchar(2) --NewLine      
  44.     SET @NL = char(13) + char(10)  
  45.  
  46.     DECLARE @vSql   NVARCHAR(max)  
  47.         ,@objName   sysname  
  48.         ,@fieldList sysname  
  49.  
  50.     -- 1. prepare the statement   
  51.       
  52.     IF @Schema = '' 
  53.         SET @Schema = 'dbo' 
  54.           
  55.     SET @objName = @Schema + '.' + @Table 
  56.       
  57.     SET @vSql = 'SET QUOTED_IDENTIFIER OFF;  
  58.  
  59. SELECT   
  60. "INSERT INTO ' + @objName + '(' + @Field0   
  61.     IF @Field1 IS NOT NULL 
  62.         SET @vSql = @vSql + '   ,' + @Field1  
  63.     IF @Field2 IS NOT NULL 
  64.         SET @vSql = @vSql + '   ,' + @Field2  
  65.     IF @Field3 IS NOT NULL 
  66.         SET @vSql = @vSql + '   ,' + @Field3  
  67.     IF @Field4 IS NOT NULL 
  68.         SET @vSql = @vSql + '   ,' + @Field4  
  69.           
  70.     SET @vSql = @vSql + '   )'   
  71.         + @NL + 'VALUES(" + QuoteName(' + @Field0 + ', Char(39))' 
  72.  
  73.     IF @Field1 IS NOT NULL 
  74.         SET @vSql = @vSql + @NL + ' +", " + QuoteName(IsNull(' + @Field1 + ', ""), Char(39))' 
  75.     IF @Field2 IS NOT NULL 
  76.         SET @vSql = @vSql + @NL + ' +", " + QuoteName(IsNull(' + @Field2 + ', ""), Char(39))' 
  77.     IF @Field3 IS NOT NULL 
  78.         SET @vSql = @vSql + @NL + ' +", " + QuoteName(IsNull(' + @Field3 + ', ""), Char(39))' 
  79.     IF @Field4 IS NOT NULL 
  80.         SET @vSql = @vSql + @NL + ' +", " + QuoteName(IsNull(' + @Field4 + ', ""), Char(39))' 
  81.  
  82.     SET @vSql = @vSql + @NL + ' +")"' 
  83.         + @NL + 'FROM ' + @objName  
  84.     IF @Filter IS NOT NULL 
  85.         SET @vSql = @vSql + @NL + 'WHERE ' + @Filter  
  86.               
  87.     -- 2.run it  
  88.     PRINT @vSql  
  89.     EXEC(@vSql)  
  90. END 


 

【注1】原本一个小工具,也不过花了2个小时,并不值得写篇Blog。但一来,这个工具很多人需要;二来这是今天重感冒下做出来的(当我这篇blog写到一半时,感冒消失了),更显珍贵。

【注2】对于这个‘分享’:

  • 想做:但是我发现新人们大多不太注重编码规范、牛人们不愿意平衡功能与成本,这段代码里面很有些参照价值;
  • 可做:这是个纯粹的工具,不涉及机密;
  • 能做:这个工具足够小,很容易说清楚、看明白。

还请读者们对作品本身发表意见。