【实用SQL脚本】生成数据发布的INSERT语句

【问题】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】对于这个‘分享’：

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

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

本文转自DavyYew 51CTO博客，原文链接：http://blog.51cto.com/davyyew/868414 ，如需转载请自行联系原作者