Oracle中提取和存储数据库对象的DDL(1)

从对象（例如数据库表、索引、约束、触发器等）中提取DDL命令的普通方法涉及到的操作包括从这些对象中提取元数据（metadata），并把这些数据存储在内存中。尽管目前有很多脚本可以实现这样的功能，但是它们通常都是不完整的或者过时的。幸运的是，Oracle 9.2提供了一个实现这样的功能的API：DBMS_METADATA程序包。

在很多情况下，数据库中数据的维护操作要求我们提取多种对象（例如数据库表、索引、约束、触发器等）的DDL（Data Definition Language，数据定义语言）。

最近我承担了一个任务，我需要编写一组数据库程序包来执行高性能的大量的数据删除（DELETE）操作。这样的操作要求我拥有提取和存储数据库对象DDL的相关技术。

提取和存储数据库对象的DDL的方法如下：

建立与源表结构相同的数据表，但是它不带主键、备用键和外部键约束。

例如，使用MyTable_X，其中MyTable是要被删除的目标数据表。

把需要保存的数据插入新建立的数据表（MyTable_X）中。

使用NOLOGGING PARALLEL选项在新数据表上建立索引。

在新数据表上建立约束。

MyTable和MyTable_X数据表进行交换。把主表改名为MyTable_T，把MyTable_X改名为MyTable。

验证结果并删除MyTable_T表。

很明显，为了编写实现上面目标的代码，你必须提取数据库对象的元数据（定义和被选中的属性），并把它存储在内存中，这样在执行上面的操作的时候才能够使用它。

在网上存在大量的脚本，它们可以从多种Oracle数据字典（user_tables、user_indexes、user_ind_columns、user_constraints、user_cons_columns等）中提取数据库对象的元数据，接着为特定的对象构造DDL命令。这些脚本的一个问题是，它们通常是SQL*Plus脚本，它会生成客户端文本文件，而这个文件不能被服务器端代码访问。它们的主要问题有：

不完整：不能提取所有的选项，并组合进DDL语句中。

过时了：这些脚本通常不支持Oracle最新的数据库特性--分区（partitioning）、基于函数的索引、自动段空间管理（ASSM）等。这些脚本可能崩溃或生成错误的DDL语句。

问题总结：尽管有大量的从Oracle数据字典中提取数据库对象元数据的脚本，但是它们中的大多数要么不完整，要么过期了。

解决方案：使用DBMS_METADATA程序包，学习如何用最佳的、没有错误的和易于维护的方式执行上面的事务。

使用Oracle的本地API：DBMS_METADATA程序包,Oracle数据库采用补充PL/SQL程序包的形式提供了丰富的预先包装好的API。Oracle 9.2版本中引入的DBMS_METADATA程序包可能正好适合你的需求。它包含了用于检索数据库对象定义的API。

我们将使用的API主要是DBMS_METADATA.GET_DDL函数。这个函数返回的对象定义SQL字符串是CLOB。它拥有下面一些输入参数：

 object_type VARCHAR2

 name VARCHAR2

 schema VARCHAR2 DEFAULT NULL

 version VARCHAR2 DEFAULT ’COMPATIBLE’

 model VARCHAR2 DEFAULT ’ORACLE’,

 transform VARCHAR2 DEFAULT ’DDL’
　

下面建立了一个用于测试的EmpTest数据表，它带有索引和约束：

create table EmpTest
(
empNo integer not null,
lastName varchar2(30) not null,
firstName varchar2(20) not null,
job varchar2(9) ’
hireDate date ’
isActive number(1)
constraint EmpTest_CK1
check (isActive in (0,1)) ,
salary number(9,2) ,
commision number(9,2) ,
deptNo number(2) ,
constraint EmpTest_PK
primary key (empNo),
constraint EmpTest_AK1
unique (lastName, firstName)
);

create index EmpTest_HireDate_Salary
on EmpTest
(
salary,
hireDate
);

运行上面的脚本之后，就建立了一个带有三个索引（两个唯一的和一个不唯一的索引）的EmpTest表：

select index_name, index_type, uniqueness
from user_indexes
where table_name = ’EMPTEST’;