select parent, child, level from (
select parent_table.table_name parent, child_table.table_name child
from user_tables parent_table,
user_constraints parent_constraint,
user_constraints child_constraint,
user_tables child_table
where parent_table.table_name = parent_constraint.table_name
and parent_constraint.constraint_type IN( 'P', 'U' )
and child_constraint.r_constraint_name = parent_constraint.constraint_name
and child_constraint.constraint_type = 'R'
and child_table.table_name = child_constraint.table_name
and child_table.table_name != parent_table.table_name
)
start with parent = 'DEPT'
connect by prior child = parent
harus bekerja (ganti nama tabel, tentu saja) dengan asumsi bahwa semuanya dalam skema yang sama. Gunakan versi DBA_ tabel kamus data dan ketentuan untuk kolom OWNER dan R_OWNER jika Anda perlu menangani dependensi lintas skema. Pada refleksi lebih lanjut, ini tidak memperhitungkan batasan referensi diri (yaitu batasan pada tabel EMP bahwa kolom MGR mereferensikan kolom EMPNO), jadi Anda harus memodifikasi kode untuk menangani kasus itu jika Anda perlu berurusan dengan batasan referensi diri.
Untuk tujuan pengujian, saya menambahkan beberapa tabel baru ke skema SCOTT yang juga merujuk tabel DEPT (termasuk ketergantungan cucu)
SQL> create table dept_child2 (
2 deptno number references dept( deptno )
3 );
Table created.
SQL> create table dept_child3 (
2 dept_child3_no number primary key,
3 deptno number references dept( deptno )
4 );
Table created.
SQL> create table dept_grandchild (
2 dept_child3_no number references dept_child3( dept_child3_no )
3 );
Table created.
dan memverifikasi bahwa kueri mengembalikan hasil yang diharapkan
SQL> ed
Wrote file afiedt.buf
1 select parent, child, level from (
2 select parent_table.table_name parent, child_table.table_name child
3 from user_tables parent_table,
4 user_constraints parent_constraint,
5 user_constraints child_constraint,
6 user_tables child_table
7 where parent_table.table_name = parent_constraint.table_name
8 and parent_constraint.constraint_type IN( 'P', 'U' )
9 and child_constraint.r_constraint_name = parent_constraint.constraint_name
10 and child_constraint.constraint_type = 'R'
11 and child_table.table_name = child_constraint.table_name
12 and child_table.table_name != parent_table.table_name
13 )
14 start with parent = 'DEPT'
15* connect by prior child = parent
SQL> /
PARENT CHILD LEVEL
------------------------------ ------------------------------ ----------
DEPT DEPT_CHILD3 1
DEPT_CHILD3 DEPT_GRANDCHILD 2
DEPT DEPT_CHILD2 1
DEPT EMP 1