Oracle 的树形递归查询

url：http://762626559-qq-com.javaeye.com/blog/382983

一、树型表结构：
节点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;