前几天做一调查，需要下边这样的一个转换。

求一SQL--关于数据纵横转换的

假设表A中有以下数据

A1 1 01

A1 1 02

A1 1 03

A2 1 01

A2 2 01

A2 2 02

现希望一SQL能够查出下边这样的数据（暂时假设表A中第三列只有01-03这三种可能值）

A1 1 01-02-03

A2 1 01

A2 2 01-02

后来看过别人SQL后，我想出了这么一个笨招。

另外根据tanfufa的sql，我下午在回家的路上突然想到了一个方法，就是第三列虽然为几个字符串，但完全可以定义一种规则转成一些数字，譬如01我转成数字1,02转成数字2,03转成数字4,04的话转成数字8，依此类推。

然后group 求sum,根据sum值就可以推知是由哪几个字符串值组成的了。

但这种方法恐怕就是解析sum值这块需要花费过多的代码了。另外不知道db2中有无将十进制数字转成二进制的函数。

所以又试了我昨晚的想法，已经测试成功了。现放出其中这个最重要的函数，主要是实现二进制转换和解析这个二进制值。

 

CREATE FUNCTION DB2ADMIN.DEC(VAL_SUM INTEGER)

RETURNS     VARCHAR(20)

    LANGUAGE SQL

    DETERMINISTIC

    NO EXTERNAL ACTION

    CONTAINS SQL

    INHERIT SPECIAL REGISTERS

   

 

   BEGIN ATOMIC

     DECLARE @PARA INT;

    DECLARE @DIV INT;

    DECLARE @MOD INT;

    DECLARE @BIN varchar(20);

    DECLARE @RET varchar(30);

    SET @BIN = '';

    SET @RET = '';

   

    SET @PARA = VAL_SUM;

   

    SET @DIV =@PARA/2;

    SET @MOD = MOD(@PARA,2);

   

    WHILE @PARA <> 0 DO

   

       SET @BIN = rtrim(ltrim(char(@MOD))) || rtrim(ltrim(@BIN));

       SET @PARA = @PARA/2;

       SET @DIV =@PARA/2;

       SET @MOD = MOD(@PARA,2);

    END WHILE;

 

   

    SET @BIN = REPEAT('0',10 - length(@BIN)) || @BIN;

    

    IF substr(@BIN,1,1) = '1' THEN

     SET  @RET = 'NW';

    END IF;

   

        IF substr(@BIN,2,1) = '1' THEN

     SET  @RET = @RET || '-' || 'RE';

    END IF;

   

        IF substr(@BIN,3,1) = '1' THEN

     SET  @RET = @RET || '-' || 'RB';

    END IF;

   

        IF substr(@BIN,4,1) = '1' THEN

    SET  @RET = @RET || '-' || 'RF';

    END IF;

   

        IF substr(@BIN,5,1) = '1' THEN

    SET  @RET = @RET || '-' || 'SV';

    END IF;

   

        IF substr(@BIN,6,1) = '1' THEN

     SET  @RET = @RET || '-' || 'NP';

    END IF;

   

        IF substr(@BIN,7,1) = '1' THEN

     SET  @RET = @RET || '-' || 'NC';

    END IF;

   

        IF substr(@BIN,8,1) = '1' THEN

     SET  @RET = @RET || '-' || 'CC';

    END IF;

   

        IF substr(@BIN,9,1) = '1' THEN

     SET  @RET = @RET || '-' || 'DC';

    END IF;

   

        IF substr(@BIN,10,1) = '1' THEN

     SET  @RET = @RET || '-' || 'AD';

    END IF;

   

    IF length(@RET) > 0 THEN

     IF substr(@RET,1,1) = '-' THEN

       SET @RET = substr(@RET,2);

     END IF;

    END IF;

 

    RETURN rtrim(ltrim(@RET));

  END

 

;

接着呢，我这块砖就引出了玉。呵呵。

关于db2递归的一个例子

myfriend2010

ORACLE中大家可能对递归（在oracle中很多人称作家族树）已经很熟悉，因为ORACLE中的递归比较简单，也容易掌握！刚接触DB2的时候，也碰到过递归的问题，因为研究的人少所以刚接触的时候，对db2有一种神秘的感觉，db2是很强大的这个误用质疑！就sql而言，凡是oracle用sql能实现的，db2肯定或多或少也可以实现，只是逻辑复杂点！因为一直有人提问这边的问题，所以今天抽时间写了一点

首先，关于db2的递归的一点基础知识：

db2中的递归查询使用with来实现，也称为公共表达式，公共表达式在select语句的开始部分采用with子句的形式，在使用公共表达式的查询中可以多次使用它，并且公共表达式还可以通过取别名来连接到他本身，这样的话就可以达到循环的目的。

递归查询通常有3个部分需要定义：

一：一个公共表达式形式的虚拟表。

二：一个初始化表。

三：一个与虚拟表进行完全内连接的辅助表。

需要使用UNION all合并上边3个查询，然后用select从递归输出中得到最终的结果。

大体上如下形式

with XX(x1,x2,x3) as  -------@0

(

select a.s,a.s1 from a  ----@1

union all  ----@2

select * from a,xx where a.s=xx.x1 ------@3

)

select ... from xx where .... -------@4

@0:为with体，即虚拟表

@1:为初始化表，这里需要定义初始化的一些行，也就是你递归的出发点，或者说父行，这部分逻辑只执行一次，它的结果作为虚拟表递归的初始化内容。

@2:这里必须用UNION all

@3:这里需要定义递归的条件（辅助表），这里定义递归的逻辑，需要注意的是父行和子行进行连接的时候逻辑一定要清楚父子关系，不然很容易变成死循环的，这里首先将初始化表的结果作为条件进行查询，在把执行的结果添加到虚拟表中，只要这里能查询出来记录，那么就会进行下一步递归循环。

@4:这里就是对虚拟表的查询语句。

关于关于递归更多的知识，可以到google中找更专业的资料，这里只讲我理解的一些东西。

这里举一个简单点的例子：

-------------------------------

Q：求一SQL--关于数据纵横转换的

假设表A中有以下数据

A1 1 01

A1 1 02

A1 1 03

A2 1 01

A2 2 01

A2 2 02

现希望一SQL能够查出下边这样的数据（暂时假设表A中第三列只有01-03这三种可能值）

A1 1 01-02-03

A2 1 01

A2 2 01-02

A：这个查询牵扯到全表的递归循环，用一般的sql语句很难搞定！

这是我刚写的一个递归语句！分享给大家看看！

因为懒，所以把建立测试表的逻辑也略去了，这里用with来生成上边的测试数据。

with t (t1,t2,t3) as (

values

('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'),

('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02')

)

select * from t;

测试一下：

C:\>db2 connect to dw

数据库连接信息

数据库服务器         = DB2/NT 8.2.0

SQL 授权标识         = DB2ADMIN

本地数据库别名       = DW

C:\>db2 with t (t1,t2,t3) as ( \

db2 (cont.) => values \

db2 (cont.) => ('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'), \

db2 (cont.) => ('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02') \

db2 (cont.) => ) \

db2 (cont.) => select * from t

T1 T2          T3

-- ----------- --

A1           1 01

A1           1 02

A1           1 03

A2           1 01

A2           2 01

A2           2 02

6 条记录已选择。

现在公布递归逻辑，sql如下：

with t (t1,t2,t3) as (

values

('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'),

('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02')

),

t1(t11,t22,t33,t44,t55) as (

select t1,t2,t3,rownumber() over(partition by t1,t2),rownumber() over(partition by t1,t2) as t4 from t

),

t3(s1,s2,s3,s4,s5) as(

select t11,t22,cast(t33 as varchar(100)),t44,t55 from t1 where T44 =1 and t55=1

union all

select a.s1,a.s2,cast(a.s3||'-'||b.t33 as varchar(100)),a.s4+1,a.s5 from t3 a,t1 b

where a.s1=b.t11 and a.s4 = b.t55-1)

select s1,s2,s3 from t3 x where x.s4=(select max(s4) from t3 y where x.s1=y.s1) order by s1,s2

;

测试一下：

C:\>db2 connect to dw

数据库连接信息

数据库服务器         = DB2/NT 8.2.0

SQL 授权标识         = DB2ADMIN

本地数据库别名       = DW

C:\>db2 with t (t1,t2,t3) as ( \

db2 (cont.) =>  values \

db2 (cont.) => ('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'), \

db2 (cont.) => ('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02') \

db2 (cont.) => ), \

db2 (cont.) =>  t1(t11,t22,t33,t44,t55) as ( \

db2 (cont.) =>  select t1,t2,t3,rownumber() over(partition by t1,t2),rownumber() over(partition by t1,t2) as t4 from t \

db2 (cont.) => ), \

db2 (cont.) => t3(s1,s2,s3,s4,s5) as( \

db2 (cont.) => select t11,t22,cast(t33 as varchar(100)),t44,t55 from t1 where T44 =1 and t55=1 \

db2 (cont.) =>  union all \

db2 (cont.) => select a.s1,a.s2,cast(a.s3||'-'||b.t33 as varchar(100)),a.s4+1,a.s5 from t3 a,t1 b \

db2 (cont.) =>  where a.s1=b.t11 and a.s4 = b.t55-1) \

db2 (cont.) => select s1,s2,s3 from t3 x where x.s4=(select max(s4) from t3 y where x.s1=y.s1) order by s1,s2

S1 S2          S3

-- ----------- ----------------------------------------------------------------------------------------------------

SQL0347W  递归公共表表达式 "DB2ADMIN.T3" 可能包含无限循环。  SQLSTATE=01605

A1           1 01-02-03

A2           1 01-02

A2           2 01-02

已选择 3 条记录，打印 1 条警告消息。

ok，搞定！

个人认为db2还是很强大的！大家一起学习！

上边的代码在逻辑可以了,还需要改改

with t (t1,t2,t3) as (

values

('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'),

('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02')

),

t1(t11,t22,t33,t44,t55) as (

select t1,t2,t3,rownumber() over(partition by t1,t2),rownumber() over(partition by t1,t2) as t4 from t

),

t3(s1,s2,s3,s4,s5) as(

select t11,t22,cast(t33 as varchar(100)),t44,t55 from t1 where T44 =1 and t55=1

union all

select a.s1,a.s2,cast(a.s3||'-'||b.t33 as varchar(100)),a.s4+1,a.s5 from t3 a,t1 b where a.s1=b.t11 and a.s2=b.t22  and a.s4 = b.t55-1

)

select s1,s2,s3 from t3 x where x.s4=(select max(s4) from t3 y where x.s1=y.s1 and x.s2=y.s2) order by s1,s2

;

------------------------------------

'A1'        1        '01-02-03'

'A2'        1        01

'A2'        2        '01-02'

这样才对!