您好,欢迎来到三六零分类信息网!老站,搜索引擎当天收录,欢迎发信息
三六零分类信息网 > 绍兴分类信息网,免费分类信息发布

Oracle如何获取指定包

2025/7/1 18:45:56发布5次查看
oracle 获取某个包 依赖的所有对象包括其子对象 使用了一个一个临时表 记录了已经遍历的 节点 同时 使用了层数来记录已经遍历的 包 效率一般,可以改动性大 declare -- 获取相应的 某个程序包 所需要应用的包 cursor p_cur(p_name varchar2) is select dd.na
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;

绍兴分类信息网,免费分类信息发布

VIP推荐

免费发布信息,免费发布B2B信息网站平台 - 三六零分类信息网 沪ICP备09012988号-2
企业名录 Product