查询编译不通过的存储过程并重新编译

最新推荐文章于 2021-07-02 09:51:22 发布

weixin_30709635

最新推荐文章于 2021-07-02 09:51:22 发布

阅读量230

点赞数

文章标签：数据库 shell

原文链接：http://www.cnblogs.com/yahutiaotiao/p/8030451.html

版权

declare

cursor proce is Select Object_Name,owner,object_type From All_Objects Where Status = 'INVANID' and 
(Object_type = 'PROCEDURE' or lower(Object_type) = 'function');

Strsql Varchar2(200);

BEGIN    
    for i in proce loop
        Strsql:= 'Alter '||i.object_type||' '||i.owner||'.'||i.Object_name||' Compile';
        Begin
            Excute Immediate Strsql;
            Exception
            -- When others then Null;
            when others THEN
            dbms_output.put_line(i.owner||'.'||i.Object_name||'---'||Sqlerrm);
        end;
    end loop;
END;