Oracle 9i轻松取得建表和索引的DDL语句

在9i之前，要想获得建表和索引的语句是一件很麻烦的事。我们通常的做法都是通过export with rows=no来得到，但它的输出因为格式的问题并不能直接拿来用。而另一种方法就是写复杂的脚本来查询数据字典，但这对于一稍微复杂的对象，如IOT和嵌套表等，还是无法查到。
　　从数据字典中获得DDL语句是经常要用的，特别是在系统升级/重建的时候。在Oracle 9i中，我们可以直接通过执行dbms_metadata从数据字典中查处DDL语句。使用这个功能强大的工具，我们可以获得单个对象或整个SCHEMA的DDL语句。最好不过的是因为它使用起来很简单。
　　1、获得单个表和索引DDL语句的方法:
set heading off;
set echo off;
Set pages 999;
set long 90000;
spool get_single.sql
　　select dbms_metadata.get_ddl('TABLE','SZT_PQSO2','SHQSYS') from dual;
　　select dbms_metadata.get_ddl('INDEX','INDXX_PQZJYW','SHQSYS') from dual;
　　spool off;
　　下面是输出。我们只要把建表/索引语句取出来在后面加个分号就可以直接运行了。

　　SQL> select dbms_metadata.get_ddl('TABLE','SZT_PQSO2','SHQSYS') from dual;
　　
CREATE TABLE "SHQSYS"."SZT_PQSO2"
　　( "PQBH" VARCHAR2(32) NOT NULL ENABLE,
　　"ZJYW" NUMBER(10,0),
　　"CGSO" NUMBER(10,0) NOT NULL ENABLE,
　　"SOLS" VARCHAR2(17),
　　"SORQ" VARCHAR2(8),
　　"SOWR" VARCHAR2(8),
　　"SOCL" VARCHAR2(6),
　　"YWHM" VARCHAR2(10),
　　"YWLX" VARCHAR2(6)
　　) PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING
　　STORAGE(INITIAL 1048576 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645
　　PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT)
　　TABLESPACE "DATA1"
　　SQL> select dbms_metadata.get_ddl('INDEX','INDXX_PQZJYW','SHQSYS') from dual;
　　CREATE INDEX "SHQSYS"."INDXX_PQZJYW" ON "SHQSYS"."SZT_PQSO2" ("ZJYW")
　　PCTFREE 10 INITRANS 2 MAXTRANS 255
　　STORAGE(INITIAL 1048576 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645
　　PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT)
　　TABLESPACE "DATA1"
　　SQL>
　　SQL> spool off;
　　2、获得整个SCHEMA DDL语句的方法:
set pagesize 0
set long 90000
　　set feedback off
　　set echo off
　　spool get_schema.sql
　　connect shqsys/shqsys@hawk1;
　　SELECT DBMS_METADATA.GET_DDL('TABLE',u.table_name)
　　FROM USER_TABLES u;
　　SELECT DBMS_METADATA.GET_DDL('INDEX',u.index_name)
　　FROM USER_INDEXES u;
　　spool off;
　　需要注意的是，当我们的表中有外健(参照约束)时，我们需要判别参照表之间的顺序，确保重建时按照合理的顺序进行。你可以通过查询dba_constraints and dba_cons_columns来确定各表之间的顺序，不再详述。
3：从Oracle里提取出PL/SQL
dbms_metadata工具也可以被用来提取保存在Oracle程序包里的源代码、PL/SQL和Java。使用dbms_metadata，存储过程或者函数也能够被轻易地提取出来。

在下面这个例子里，我提取出了所有同fred结构描述相关联的过程。

connect fred/flintstone;
spool procedures_punch.lst
select
   DBMS_METADATA.GET_DDL('PROCEDURE',u.object_name)
from
   user_objects u
where
   object_type = 'PROCEDURE';
spool off;

dbms_metadata工具对于提取过程码尤其有用，因为原来所有的格式都被保留下来了。下面就是dbms_metadata为存储过程所做出的输出。

CREATE OR REPLACE PROCEDURE "SYSTEM"."ORA$_SYS_REP_AUTH" as

www.ixdba.net

i integer;
x integer;
begin
i:=dbms_sql.open_cursor;

dbms_sql.parse(i,'GRANT SELECT ON SYSTEM.repcat$_repschema TO SYS ' ||
'WITH GRANT OPTION',dbms_sql.v7);
x:=dbms_sql.execute(i);

dbms_sql.parse(i,'GRANT SELECT ON SYSTEM.repcat$_repprop TO SYS ' ||
'WITH GRANT OPTION',dbms_sql.v7);
x:=dbms_sql.execute(i);

dbms_sql.parse(i,'GRANT SELECT ON SYSTEM.def$_aqcall TO SYS ' ||
'WITH GRANT OPTION',dbms_sql.v7);
x:=dbms_sql.execute(i);

dbms_sql.parse(i,'GRANT SELECT ON SYSTEM.def$_calldest TO SYS ' ||
'WITH GRANT OPTION',dbms_sql.v7);
x:=dbms_sql.execute(i);

dbms_sql.parse(i,'GRANT SELECT ON SYSTEM.def$_error TO SYS ' ||
'WITH GRANT OPTION',dbms_sql.v7);
x:=dbms_sql.execute(i);

dbms_sql.parse(i,'GRANT SELECT ON SYSTEM.def$_destination TO SYS ' ||
'WITH GRANT OPTION',dbms_sql.v7);
x:=dbms_sql.execute(i);

dbms_sql.close_cursor(i);

exception when others then

if dbms_sql.is_open(i) then
dbms_sql.close_cursor(i);

end if;

raise;
end;