编译所有oracle无效的对象

最新推荐文章于 2025-11-29 18:01:51 发布

最新推荐文章于 2025-11-29 18:01:51 发布 · 790 阅读

文章标签：

#数据库

本文提供了一个PL/SQL过程，用于自动编译Oracle数据库中所有无效的对象，包括过程、函数、包等。通过循环遍历USER_OBJECTS视图并执行相应的ALTER命令来实现编译。

-- 编译所有oracle无效的对象 by yanleigis Email:landgis@126.com
procedure compleall is
cursor c1 is
SELECT decode(object_type,
'PACKAGE BODY',
'alter package ' || object_name || ' compile body',
'alter ' || object_type || ' ' || object_name ||
' compile;') op
FROM user_objects
WHERE status = 'INVALID';
sqlstr varchar2(1024);
begin
for rr in c1 LOOP
begin
sqlstr := rr.op;
execute immediate sqlstr;
dbms_output.put_line(sqlstr || '编译成功');
exception
when others then
dbms_output.put_line(sqlstr || sqlcode || ':' || sqlerrm);
end;
end loop;
end;