oracle重新编译所有对象,oracle 重新编译用户无效对象

oracle 重新编译用户无效对象

发布时间：2020-08-16 08:56:32

来源：51CTO

阅读：685

作者：Evils798

oracle sys用户无效对象

select owner,object_name

, replace(object_type,' ','') object_type

,to_char(created,'yyyy-mm-dd') as created

,to_char(last_ddl_time,'yyyy-mm-dd') as last_ddl_time,

status

from dba_objects where status='INVALID' and owner='SYS';

OWNER   OBJECT_NAME           OBJECT_TYPE    CREATED     LAST_DDL_TIME  STATUS

------  --------------------- -------------  ----------- -------------- ----------

SYS     ALL_TAB_STATISTICS    VIEW           2011-09-17  2012-05-16     INVALID

SYS     USER_TAB_STATISTICS   VIEW           2011-09-17  2012-05-16     INVALID

SYS     ALL_IND_STATISTICS    VIEW           2011-09-17  2012-05-16     INVALID

SYS     USER_IND_STATISTICS   VIEW           2011-09-17  2012-05-16     INVALID

SYS     VALIDATE_ORDIM        PROCEDURE      2011-09-17  2012-05-16     INVALID

SYS     DBMS_CUBE_ADVISE      PACKAGEBODY    2011-09-17  2012-05-16     INVALID

SYS     DBMS_CUBE             PACKAGEBODY    2011-09-17  2012-05-16     INVALID

方法1：手动重新rebuilt

SQL>alter view sys.ALL_TAB_STATISTICS  compile；

SQL>alter view sys.USER_TAB_STATISTICS compile；

SQL>alter view ALL_IND_STATISTICS      compile；

SQL>alter view sys.USER_IND_STATISTICS compile；

SQL>alter procedure sys.VALIDATE_ORDIM   compile;

SQL>alter package DBMS_CUBE_ADVISE compile body;

SQL>alter package DBMS_CUBE  compile body;

方法2：

oracle用户下执行

$cd $ORACLE_HOME/rdbms/admin

$sqlplus  /  as sysdba

SQL>@utlprp.sql

编译完成后，再次查看

SQL> select owner,object_name

2  , replace(object_type,' ','') object_type

3  ,to_char(created,'yyyy-mm-dd') as created

4  ,to_char(last_ddl_time,'yyyy-mm-dd') as last_ddl_time,

5  status

6  from dba_objects where status='INVALID' and owner='SYS';

no rows selected

方法3：

以下是一个转帖的方法

--创建自动编译失效过程事务记录表

declare

tabcnt integer := 0;

begin

select count(*) into tabcnt from dba_tables where table_name='RECOMPILE_LOG';

if tabcnt = 0 then

execute immediate 'create table recompile_log(rdate date,errmsg varchar2(200))';

end if;

end;

/

--创建编译失效对象的存储过程

create or replace procedure recompile_invalid_objects

as

str_sql varchar2(200);  --中间用到的sql语句

p_owner varchar2(20);   --所有者名称，即SCHEMA

errm varchar2(200);     --中间错误信息

begin

/*****************************************************/

p_owner := 'owner';/***用户名*************************/

/*****************************************************/

insert into recompile_log(rdate, errmsg) values(sysdate,'time to recompile invalid objects');

--编译失效存储过程

for invalid_procedures in (select object_name from all_objects

where status = 'INVALID' and object_type = 'PROCEDURE' and owner=upper(p_owner))

loop

str_sql := 'alter procedure ' ||invalid_procedures.object_name || ' compile';

begin

execute immediate str_sql;

exception

When Others Then

begin

errm := 'error by obj:'||invalid_procedures.object_name||' '||sqlerrm;

insert into recompile_log(rdate, errmsg) values(sysdate,errm);

end;

end;

end loop;

--编译失效函数

for invalid_functions in (select object_name from all_objects

where status = 'INVALID' and object_type = 'FUNCTION' and owner=upper(p_owner))

loop

str_sql := 'alter function ' ||invalid_functions.object_name || ' compile';

begin

execute immediate str_sql;

exception

When Others Then

begin

errm := 'error by obj:'||invalid_functions.object_name||' '||sqlerrm;

insert into recompile_log(rdate, errmsg) values(sysdate,errm);

end;

end;

end loop;

--编译失效包

for invalid_packages in (select object_name from all_objects

where status = 'INVALID' and object_type = 'PACKAGE' and owner=upper(p_owner))

loop

str_sql := 'alter package ' ||invalid_packages.object_name || ' compile';

begin

execute immediate str_sql;

exception

When Others Then

begin

errm := 'error by obj:'||invalid_packages.object_name||' '||sqlerrm;

insert into recompile_log(rdate, errmsg) values(sysdate,errm);

end;

end;

end loop;

--编译失效类型

for invalid_types in (select object_name from all_objects

where status = 'INVALID' and object_type = 'TYPE' and owner=upper(p_owner))

loop

str_sql := 'alter type ' ||invalid_types.object_name || ' compile';

begin

execute immediate str_sql;

exception

When Others Then

begin

errm := 'error by obj:'||invalid_types.object_name||' '||sqlerrm;

insert into recompile_log(rdate, errmsg) values(sysdate,errm);

end;

end;

end loop;

--编译失效索引

for invalid_indexs in (select object_name from all_objects

where status = 'INVALID' and object_type = 'INDEX' and owner=upper(p_owner))

loop

str_sql := 'alter index ' ||invalid_indexs.object_name || ' rebuild';

begin

execute immediate str_sql;

exception

When Others Then

begin

errm := 'error by obj:'||invalid_indexs.object_name||' '||sqlerrm;

insert into recompile_log(rdate, errmsg) values(sysdate,errm);

end;

end;

end loop;

--编译失效触发器

for invalid_triggers in (select object_name from all_objects

where status = 'INVALID' and object_type = 'TRIGGER' and owner=upper(p_owner))

loop

str_sql := 'alter trigger ' ||invalid_triggers.object_name || ' compile';

begin

execute immediate str_sql;

exception

When Others Then

begin

errm := 'error by obj:'||invalid_triggers.object_name||' '||sqlerrm;

insert into recompile_log(rdate, errmsg) values(sysdate,errm);

end;

end;

end loop;

end;

/

--创建任务计划，每天早上8点整执行该任务，且保证此任务有且只有一个

declare

jobcnt integer :=0;

job_recompile number := 0;

str_sql varchar2(200);

begin

select count(*) into jobcnt from all_jobs where what = 'recompile_invalid_objects;' and broken = 'N';

if jobcnt > 0 then

for jobs in (select job from all_jobs where what = 'recompile_invalid_objects;' and broken = 'N')

loop

str_sql := 'begin dbms_job.remove('||jobs.job||'); end;';

begin

execute immediate str_sql;

exception

When Others Then null;

end;

end loop;

end if;

--创建任务计划

dbms_job.submit(job_recompile,'recompile_invalid_objects;',sysdate,'TRUNC(SYSDATE + 1) + 8/24');

--启动任务计划

dbms_job.run(job_recompile);

end;

/