写了一个常规性生成merge 的小脚本

现在使用数据库来写存储过程，动不动参数就会用到xml ，当然罗，优势也很明显，参数相对固定，而且灵活，如果要修改或者什么的，中间接口层也不需要做变化，只需要修改封装的存储过程以及程序传参就ok了。

随着时间慢慢过，有时候就有一个存储过程，一个xml 来应对整个表的新增，修改，删除的情况了。而对于这个情况，我个人比较喜欢使用 Merge关键字来处理。但是如果表里面的列很多，那么复制黏贴啊之类的机械动作就会很多，而且没有什么价值。所以我就写了一个小脚本，应对了使用xml 来做表的增删改的作用

首先我先创建一个表

CREATE TABLE employee(
ID INT IDENTITY(1,1) PRIMARY KEY,
name NVARCHAR(50),
age INT,
birthdate DATE,
salary MONEY
)

然后我准备使用这个xml 来进行对应写入

DECLARE @employee XML='
<root>
    <employee Action="1">  <!--这个Action 代表动作，1 新增 2 修改 3 删除 这样来控制比较灵活，不需要每次都一大段-->
        <name>AAA</name>
        <age>27</age>
        <birthdate>1989-01-02</birthdate>
        <salary>1200</salary>
    </employee>
    <employee Action="1">
        <name>BBB</name>
        <age>23</age>
        <birthdate>1994-01-02</birthdate>
        <salary>2200</salary>
    </employee>
</root>
'

然后是生成的脚本。通常解析xml 会有2种的解析方法，一种是直接用openxml 来进行解析，一种是使用 xml.nodes 的函数进行取值，这里我两种都可以进行一个简单处理生成

DECLARE @TableName VARCHAR(50) = 'employee',       
        @XMLType TINYINT = 1,  --1 使用with 格式, 2 使用nodes 格式        
        @Path NVARCHAR(max) = 'root/employee',            
        @HasAction BIT = 1 --0 没有动作 1 包含动作        

DECLARE @Columns NVARCHAR(MAX),    --通用列的串
        @FilterColumns NVARCHAR(max), --过滤外键，主键的列
        @On NVARCHAR(100), --自动生成主键去匹配
        @Sql NVARCHAR(MAX)

SELECT @Columns = STUFF((
SELECT ',' + name
    FROM sys.columns 
        WHERE object_id = OBJECT_ID(@TableName)
        ORDER BY column_id
        FOR XML PATH('')),1,1,''),
@FilterColumns = STUFF((
SELECT ',' + name
    FROM sys.columns 
        WHERE object_id = OBJECT_ID(@TableName)
           AND is_computed = 0
              AND is_identity = 0               
        ORDER BY column_id
        FOR XML PATH('')),1,1,''),
@On = STUFF((
SELECT 'AND TAR.' + c.name + ' = SOUR.' + c.name
    FROM sys.indexes a
        INNER JOIN sys.index_columns b ON a.object_id = b.object_id 
        INNER JOIN sys.columns c ON c.object_id = b.object_id AND b.column_id = c.column_id
    WHERE a.object_id = OBJECT_ID(@TableName)
      AND a.is_primary_key = 1),1,4,'')

    

SELECT @Sql = ';WITH SOUR AS(
SELECT '+ CASE WHEN @XMLType = 1 THEN REPLACE(@Columns ,',',CHAR(10) + REPLICATE(CHAR(9),2) + ',') 
               WHEN @XMLType = 2 THEN STUFF((SELECT CHAR(10) + ',t.c.value(''(' + a.name + '/text())[1]'',''' + TYPE_NAME(user_type_id) +  CASE WHEN a.system_type_id IN (167,175) THEN '(' + CASE WHEN a.max_length = -1 THEN 'max' ELSE RTRIM(a.max_length) END+ ')'
                         WHEN a.system_type_id IN (231,239) THEN '(' + CASE WHEN a.max_length = -1 THEN 'max' ELSE RTRIM(a.max_length/2) END + ')'
                         WHEN a.system_type_id IN (59,106,108) THEN '(' + RTRIM(a.max_length) + ',' + RTRIM(a.scale) + ')'
                         ELSE ''
                         END + ''') AS ' + a.name
                        FROM sys.columns a
                            WHERE object_id = OBJECT_ID(@TableName)
                            ORDER BY column_id
                            FOR XML PATH('')),1,2,'')    
          ELSE '' END
        + CASE WHEN @XMLType = 1 AND @HasAction = 1 THEN CHAR(10)+ REPLICATE(CHAR(9),2) + ',[Action]' 
               WHEN @XMLType = 2 AND @HasAction = 1 THEN CHAR(10)+ REPLICATE(CHAR(9),2) + ',t.c.value(''@Action'',''tinyint'') [Action]' 
          ELSE '' END 
    + '
    FROM ' + CASE @XMLType WHEN 1 THEN ' OPENXML(@XmlInt,''' + @Path + ''',3)
                    WITH(' + STUFF((SELECT CHAR(10)+ REPLICATE(CHAR(9),6) + ',' + a.name + ' ' + UPPER(b.name) + CASE WHEN a.system_type_id IN (167,175,231,239,108) THEN '(' + CASE WHEN a.max_length = -1 THEN 'MAX' ELSE  RTRIM(a.max_length) END + ')'
                                                                  WHEN a.system_type_id IN (59,106,108) THEN '(' + RTRIM(a.precision) + ',' + RTRIM(a.scale)+ ')'
                                                             ELSE '' END + ' ''' + a.name + ''''
                                FROM sys.columns a
                                    INNER JOIN sys.systypes b ON a.system_type_id = b.xtype AND b.status = 0
                                    WHERE object_id = OBJECT_ID(@TableName)
                                      AND a.is_computed = 0
                                      ORDER BY column_id
                                      FOR XML PATH ('')
                                      ),1,8,'') + 
                            + CASE WHEN @HasAction = 1 THEN CHAR(10)+ REPLICATE(CHAR(9),6) + ',[Action] tinyint ''@Action'')' ELSE ')' END 
                            WHEN 2 THEN ' @' + @TableName + '.nodes('''+@Path+''') as t(c)'
                            ELSE '' END 
             + '),
TAR AS( SELECT ' + REPLACE(@Columns,',',CHAR(10) + REPLICATE(CHAR(9),2) + ',') + '
        FROM ' + @TableName + ')
MERGE TAR
USING SOUR
ON '+@On+'
WHEN NOT MATCHED ' + CASE WHEN @HasAction = 1 THEN ' AND SOUR.[Action] = 1 ' ELSE '' END + '
            THEN INSERT(' + @FilterColumns + ')' + CHAR(10) + REPLICATE(CHAR(9),5) + ' VALUES (SOUR.' + REPLACE(@FilterColumns,',',',SOUR.') + ')
WHEN MATCHED ' + CASE WHEN @HasAction = 1 THEN ' AND SOUR.[Action] = 2 ' ELSE '' END + ' THEN UPDATE SET ' 
+ STUFF((    SELECT ',' + CHAR(10) + REPLICATE(CHAR(9),5) +  'TAR.[' + name + ']= SOUR.[' + name + ']'
        FROM sys.columns a
            WHERE object_id = OBJECT_ID(@TableName)
              AND is_computed = 0
              AND is_identity = 0
              AND NOT EXISTS(SELECT * FROM sys.foreign_key_columns WHERE parent_object_id = a.object_id AND parent_column_id = a.column_id)
                ORDER BY column_id
            FOR XML PATH('')
    ),1,6,'') + '
    '+ CASE WHEN @HasAction = 1 THEN ' WHEN MATCHED  AND SOUR.[Action] = 3 ' ELSE 
    'WHEN MATCHED BY SOURCE ' END + ' THEN Delete;'
PRINT @Sql    

(因为偷懒，所以使用的openxml 里面的那个 sp_xml_preparedocument 这里我是没有写的)(*^__^*) 嘻嘻……

然后看下生成的情况，这个是使用xml.nodes 来生成的

;WITH SOUR AS(
SELECT t.c.value('(ID/text())[1]','int') AS ID
,t.c.value('(name/text())[1]','nvarchar(50)') AS name
,t.c.value('(age/text())[1]','int') AS age
,t.c.value('(birthdate/text())[1]','date') AS birthdate
,t.c.value('(salary/text())[1]','money') AS salary
        ,t.c.value('@Action','tinyint') [Action]
    FROM  @employee.nodes('root/employee') as t(c)),
TAR AS( SELECT ID
        ,name
        ,age
        ,birthdate
        ,salary
        FROM employee)
MERGE TAR
USING SOUR
ON TAR.ID = SOUR.ID
WHEN NOT MATCHED  AND SOUR.[Action] = 1 
            THEN INSERT(name,age,birthdate,salary)
                     VALUES (SOUR.name,SOUR.age,SOUR.birthdate,SOUR.salary)
WHEN MATCHED  AND SOUR.[Action] = 2  THEN UPDATE SET     TAR.[name]= SOUR.[name],
                    TAR.[age]= SOUR.[age],
                    TAR.[birthdate]= SOUR.[birthdate],
                    TAR.[salary]= SOUR.[salary]
     WHEN MATCHED  AND SOUR.[Action] = 3  THEN Delete;

这个是使用openxml来生成的

;WITH SOUR AS(
SELECT ID
        ,name
        ,age
        ,birthdate
        ,salary
        ,[Action]
    FROM  OPENXML(@XmlInt,'root/employee',3)
                    WITH(ID INT 'ID'
                        ,name NVARCHAR(100) 'name'
                        ,age INT 'age'
                        ,birthdate DATE 'birthdate'
                        ,salary MONEY 'salary'
                        ,[Action] tinyint '@Action')),
TAR AS( SELECT ID
        ,name
        ,age
        ,birthdate
        ,salary
        FROM employee)
MERGE TAR
USING SOUR
ON TAR.ID = SOUR.ID
WHEN NOT MATCHED  AND SOUR.[Action] = 1 
            THEN INSERT(name,age,birthdate,salary)
                     VALUES (SOUR.name,SOUR.age,SOUR.birthdate,SOUR.salary)
WHEN MATCHED  AND SOUR.[Action] = 2  THEN UPDATE SET     TAR.[name]= SOUR.[name],
                    TAR.[age]= SOUR.[age],
                    TAR.[birthdate]= SOUR.[birthdate],
                    TAR.[salary]= SOUR.[salary]
     WHEN MATCHED  AND SOUR.[Action] = 3  THEN Delete;

恩~然后就可放进去执行啦~~

这里只是一个很基本的用法。有几点要说明的

1、Xml的名称我默认和表名一致，有需要请改动

2、On的匹配模型我是使用主键来进行对应

其它如果有什么问题请告诉我补充~