用DBMS_DDL包重编译PL/SQL对象

  1<schema>.] <name> COMPILE [BODY]   
  2语法   
  3DBMS_DDL.ALTER_COMPILE (   
  4type VARCHAR2,   
  5schema VARCHAR2,   
  6name VARCHAR2);   
  7参数: 
  8
  9Type 
 10
 11| 
 12
 13数据库对象的类型  .  正确值如下  : 
 14
 15PROCEDURE –  重编译指定的过程 
 16
 17FUNCTION –  重编译指定的函数 
 18
 19PACKAGE -  重编译指定的包头和包体 
 20
 21PACKAGE_BODY -  重编译指定的包体 
 22
 23TRIGGER -  重编译指定的触发器   
 24  
 25---|---  
 26  
 27Schema 
 28
 29| 
 30
 31重编译对象的方案名称，若为  null,  则为当前方案名称（大小写敏感）   
 32  
 33name 
 34
 35| 
 36
 37重编译对象的名称（大小写敏感）   
 38  
 39现在，如果想重编译一个程序，Oracle首先会重编译被标识invalid的程序所依赖的所有对象. 
 40
 41**例1:**   
 42编译MYUSER方案的ACCESS_RIGHTS过程:   
 43DBMS_DDL.ALTER_COMPILE('PROCEDURE','MYUSER','ACCESS_RIGHTS'); 
 44
 45**例2:**   
 46差不多每个实例中，PL/SQL对象名称以大写方式存储，如果创建时指定一个双引号的对象名称，那么当编译时应指定同样的方式. 
 47
 48  
 49如果指定不正确，则会报以下的错误   
 50SQL&gt; dbms_ddl.alter_compile('PROCEDURE','MYUSER','access_rights');   
 51BEGIN dbms_ddl.alter_compile('PROCEDURE','MYUSER','access_rights'); END;   
 52*   
 53ERROR at line 1:   
 54ORA-20000: Unable to compile PROCEDURE "MYUSER"."access_rights",   
 55insufficient privileges or does not exist   
 56ORA-06512: at "SYS.DBMS_DDL", line 68   
 57ORA-06512: at line 1 
 58
 59因此如果你创建如下的对象:   
 60CREATE or REPLACE PROCEDURE "My_Object" IS   
 61BEGIN   
 62...   
 63得使用:   
 64DBMS_DDL.ALTER_COMPILE('PROCEDURE','MYUSER','My_Object'); 
 65
 66也可以使用ALTER PROCEDURE <procedure name=""> COMPILE命令来编译对象，用DBMS_DDL包最大的优势在于可以在以后的程序或PL/SQL中编译，这将拥有完全的灵活性以创建强有力的使用价值（请参照如下例子） 
 67
 68**例3:**   
 69这个例子将获得所有无效的对象并且重新编译   
 70set termout on   
 71set serverout on   
 72DECLARE   
 73cursor cur_invalid_objects is   
 74select object_name, object_type from user_objects where status='INVALID';   
 75rec_columns cur_invalid_objects%ROWTYPE;   
 76err_status NUMERIC;   
 77BEGIN   
 78dbms_output.enable(10000);   
 79open cur_invalid_objects;   
 80loop   
 81fetch cur_invalid_objects into rec_columns;   
 82EXIT WHEN cur_invalid_objects%NOTFOUND; 
 83
 84dbms_output.put_line   
 85('Recompiling ' || rec_columns.object_type || ' ' || rec_columns.object_name);   
 86dbms_ddl.alter_compile(rec_columns.object_type,NULL,rec_columns.object_name);   
 87end loop;   
 88close cur_invalid_objects;   
 89EXCEPTION   
 90When others then   
 91begin   
 92err_status := SQLCODE;   
 93dbms_output.put_line(' Recompilation failed : ' || SQLERRM(err_status));   
 94  
 95if ( cur_invalid_objects%ISOPEN) then   
 96CLOSE cur_invalid_objects;   
 97end if;   
 98  
 99exception when others then   
100null;   
101end;   
102end;   
103/ 
104
105  
106**总结** :   
107ALTER_COMPILE可以代替手工而自动编译对象,查找那些无效的对象从而一个一个地编译.</procedure></name></schema>