程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Oracle數據庫 >> 關於Oracle數據庫 >> Oracle如何獲取指定包

Oracle如何獲取指定包

編輯:關於Oracle數據庫

       oracle 獲取某個包 依賴的所有對象包括其子對象

      使用了一個一個臨時表 記錄了已經遍歷的 節點

      同時 使用了層數來記錄已經遍歷的 包

      效率一般,可以改動性大

      declare

      -- 獲取相應的 某個程序包 所需要應用的包

      cursor p_cur(p_name varchar2) is

      select dd.name, dd.type, dd.referenced_name, dd.referenced_type

      from dba_dependencies dd

      where 1 = 1

      and dd.referenced_type in

      ('PACKAGE', 'SYNONYM', 'TABLE', 'SEQUENCE')

      and dd.type in ('PACKAGE', 'PACKAGE BODY')

      AND dd.name = p_name;

      cursor p_temp(l_level number) is

      select attribute1, attribute2

      from cux_common_imports_temp

      where attribute2 = l_level;

      p_root_name varchar2(30);

      p_level number := 0;

      p_count number := 0;

      begin

      --將根節點 放入到表中

      p_root_name := 'CUX_SBU_COMMON';

      insert into cux_common_imports_temp

      (attribute1, attribute2)

      values

      (p_root_name, p_level);

      p_count := 1;

      --循環這一層的 節點 並獲得其子節點

      while p_count != 0 loop

      for p_loop in p_temp(p_level) loop

      --下一層

      p_level := p_level + 1;

      p_root_name := p_loop.attribute1;

      for p_rec in p_cur(p_root_name) loop

      if p_rec.referenced_type = 'PACKAGE' then

      --如果表內 沒有這個程序就 加入到 臨時表中

      select count(*)

      into p_count

      from cux_common_imports_temp

      where attribute1 = p_rec.referenced_name;

      if p_count = 0 then

      insert into cux_common_imports_temp

      (attribute1, attribute2)

      values

      (p_rec.referenced_name, p_level);

      end if;

      --輸出相應的 子節點信息

      dbms_output.put_line(p_level || '-Name:' ||

      p_rec.referenced_name || '-Type:' ||

      p_rec.referenced_type);

      end if;

      end loop;

      end loop;

      --獲取 該層是否為空

      select count(*)

      into p_count

      from cux_common_imports_temp

      where attribute2 = p_level;

      end loop;

      end;

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved