在Oracle中重编译所有无效的存储过程

2024-08-29 13:32:26

字体：大中小

来源：转载

供稿：网友

　　sql_plus中，

spool execcompproc.sql
select 'alter procedure '||object_name||' compile;
' from all_objects where status = 'invalid' and object_type = 'procedure';
spool off
@execcompproc.sql;

　　整理成一个存储过程

create or replace procedure zl_compile_invalid_procedure as
strsql varchar2(200);
begin
for x in (select object_name from all_objects where status = 'invalid'
and object_type = 'procedure') loop
strsql := 'alter procedure ' || x.object_name || ' compile';
begin
　execute immediate strsql;
　exception
--when others then null;　　
when others then dbms_output.put_line(sqlerrm);　　
end;
end loop;
end;

　　执行

exec zl_compile_invalid_procedure;

　　如果要看到无法重编译的过程的出错信息，需要执行前设置set serverout on

上一篇：用.NET调用Oracle存储过程返回记录集

下一篇：在PHP中将图片存放ORACLE中