Oracle 的树形递归查询

蔚紫杉

一、树型表结构：
节点ID  上级ID  节点名称
二、公式：
select 节点ID,节点名称,level
from
表
connect by prior 节点ID=上级节点ID
start with 上级节点ID=节点值
说明：
1、常见的树形结构为公司组织机构、地区……
2、求节点ID以上的结构，或以上的结构，将“节点ID=上级节点ID”左右顺序换一下即可。
3、Level为Oracle的特殊字段，表示“层”的意思。当前节点ID的下一层节点为“1”。
--测试SQL:
说明1、求002以下(或以上)所有子节点和层次(动态:总是从1开始算),但不包括自身
说明2、如果求002以上的节点，则“connect by prior topno=departno”，“=”两边的条件换位即可。
select departno,departname,level
from dept
connect by prior departno=topno
start with topno='002';
--
测试数据
create table Dept(
DepartNO  varchar2(10),
   DepartName  varchar2(20),
TopNo    varchar2(10));
insert into Dept values('001',' 董事会','0');
insert into Dept values('002','总裁办 ','001');
insert into Dept values('003','财务部 ','001');
insert into Dept values('004','市场部 ','002');
insert into Dept values('005','公关部 ','002');
insert into Dept values('006','销售部 ','002');
insert into Dept values('007','分销处 ','006');
insert into Dept values('008','业务拓展处','004');
insert into Dept values('009','销售科','007');
向前查 比如
select distinct departno,departname,level
from dept
connect by prior topno=departno
start with
departno='005';
那么其实是查005自身以及上级，
所以结果是005,002,001
 





============================================================================================
 
       写递归最关键的要定义出来 递归函数 ,递归函数 最关键的要定义出来它的 参数 .和它的 返回值
       咱么做展现，不用返回值，直接做展现就行了,参数最重要,那就分析一下参数怎么去定义?这时候要
       分析递归的过程,递归过程什么样呢?根据它的 id 找它的 父id,根据它的 父id 找到它的孩子,根据它
       的孩子再找到它的孩子.那么分析这个参数肯定是一个id，因为只有传进来id，才知道怎么去找这个id
       下面的孩子. 所以最关键定义出存储过程的参数
 
       create or replace procedure p (v_pid article.pid%type, v_level binary_integer) is
         cursor c is select * from article where pid = v_pid;
         v_preStr varchar2(1024) := '';
       begin
         for i in 1..v_level loop
           v_preStr := v_preStr || '****';
         end loop;
 
         for v_article in c loop
           dbms_output.put_line(v_preStr || v_article.cont);
           if(v_article.isleaf = 0) then
             p (v_article.id, v_level + 1);
           end if;
         end loop;
       end;
 
 
       --展现emp表的树状结构
       create or replace procedure p
           (v_empno emp.empno%type, v_grade binary_integer)
       is
           cursor c is
                  select * from emp where mgr = v_empno;
           v_preStr varchar2(4000) := '';
              v_i binary_integer := 0;
       begin
           while v_i < v_grade loop
             v_preStr := v_preStr || '****';
                v_i := v_i + 1;
           end loop;
             
              for v_emp in c loop
                  dbms_output.put_line(v_preStr || v_emp.ename);
                     p(v_emp.empno, v_grade + 1); 
              end loop;
       end;
 
       declare
           v_emp emp%rowtype;
       begin
           select * into v_emp from emp where mgr is null;
              dbms_output.put_line(v_emp.ename);
              p(v_emp.empno, 1);
       end;