用DBMS_DDL包重编译PL/SQL对象

 

用DBMS_DDL包重编译PL/SQL对象

 

    本篇文章，我们将会看到怎样用DBMS_DDL包中的ALTER_COMPILE过程重新编译已存储在数据库的对象.

 

 ALTER_COMPILE过程
 这个过程等价于如下语句
 ALTER PROCEDURE|FUNCTION|PACKAGE [<schema>.] <name> COMPILE [BODY]
    语法
 DBMS_DDL.ALTER_COMPILE (
     type   VARCHAR2,
    schema VARCHAR2,
     name   VARCHAR2);
 参数:

             

Type

数据库对象的类型.正确值如下:

PROCEDURE –重编译指定的过程

FUNCTION –重编译指定的函数

PACKAGE -重编译指定的包头和包体

PACKAGE_BODY -重编译指定的包体

TRIGGER -重编译指定的触发器

Schema

 

重编译对象的方案名称，若为null,则为当前方案名称（大小写敏感）

name

 

重编译对象的名称（大小写敏感）

      

     现在，如果想重编译一个程序，Oracle首先会重编译被标识invalid的程序所依赖的所有对象.

 

 例1:
 编译MYUSER方案的ACCESS_RIGHTS过程:
 DBMS_DDL.ALTER_COMPILE('PROCEDURE','MYUSER','ACCESS_RIGHTS');

 

 例2:
 差不多每个实例中，PL/SQL对象名称以大写方式存储，如果创建时指定一个双引号的对象名称，那么当编译时应指定同样的方式.

 如果指定不正确，则会报以下的错误
 SQL> dbms_ddl.alter_compile('PROCEDURE','MYUSER','access_rights');
 BEGIN dbms_ddl.alter_compile('PROCEDURE','MYUSER','access_rights'); END;
 *
 ERROR at line 1:
 ORA-20000: Unable to compile PROCEDURE "MYUSER"."access_rights",
  insufficient privileges or does not exist
 ORA-06512: at "SYS.DBMS_DDL", line 68
 ORA-06512: at line 1

 因此如果你创建如下的对象:
 CREATE or REPLACE PROCEDURE "My_Object" IS
 BEGIN
 ...
 得使用:
 DBMS_DDL.ALTER_COMPILE('PROCEDURE','MYUSER','My_Object');

 也可以使用ALTER PROCEDURE <procedure name> COMPILE命令来编译对象，用DBMS_DDL包最大的优势在于可以在以后的程序或PL/SQL中编译，这将拥有完全的灵活性以创建强有力的使用价值（请参照如下例子）

 

 例3:
 这个例子将获得所有无效的对象并且重新编译
 set termout on
 set serverout on
 DECLARE
 cursor cur_invalid_objects is
 select object_name, object_type from user_objects where status='INVALID';
 rec_columns cur_invalid_objects%ROWTYPE;
 err_status NUMERIC;
  BEGIN
  dbms_output.enable(10000);
  open cur_invalid_objects;
  loop
  fetch cur_invalid_objects into rec_columns;
  EXIT WHEN cur_invalid_objects%NOTFOUND;

  dbms_output.put_line
   ('Recompiling ' || rec_columns.object_type || '  ' || rec_columns.object_name);
  dbms_ddl.alter_compile(rec_columns.object_type,NULL,rec_columns.object_name);
  end loop;
  close cur_invalid_objects;
  EXCEPTION
  When others then
  begin
  err_status := SQLCODE;
  dbms_output.put_line(' Recompilation failed : ' || SQLERRM(err_status));
 
  if ( cur_invalid_objects%ISOPEN) then
   CLOSE cur_invalid_objects;
  end if;
 
  exception when others then
  null;
 end;
 end;
 /

总结:
  ALTER_COMPILE可以代替手工而自动编译对象,查找那些无效的对象从而一个一个地编译.

本文地址：http://com.8s8s.com/it/it21040.htm