抓取oracle建表语句及获取建表ddl语句

1.抓取代码如下：

　　1.1.产生表的语法资料

DECLARE
-- v_notPartTable VARCHAR2(1000):= '&2';
--v_sql CLOB;
v_partType VARCHAR2(20);
v_partColumn VARCHAR2(50);
v_subPartType VARCHAR2(50);
v_subPartSql VARCHAR2(4000);
v_seq NUMBER := 10;
BEGIN
FOR v_cur in (
SELECT table_name,partitioned,t.TABLESPACE_NAME,t.PCT_FREE, t.LOGGING, t.CACHE FROM user_tables t
where table_name = 'TEST1'
) LOOP
v_seq := v_seq + 1;
INSERT INTO tmp_tabsql(seq,table_name,table_sql) VALUES(v_seq, v_cur.table_name, 'CREATE TABLE ' || v_cur.table_name || '(' );
--columns
FOR v_column IN (
SELECT CASE WHEN REGEXP_LIKE (COLUMN_NAME,'^\d+$') THEN '"'||COLUMN_NAME||'"' ELSE COLUMN_NAME END COLUMN_NAME, DATA_TYPE,DATA_LENGTH, DATA_PRECISION,DATA_SCALE,COLUMN_ID
FROM user_tab_columns
WHERE table_name = v_cur.table_name
ORDER BY column_id ASC
) LOOP
v_seq := v_seq + 1;
INSERT INTO tmp_tabsql(seq, table_name, table_sql) VALUES(v_seq, v_cur.table_name,
CASE WHEN v_column.column_id <> 1 THEN ' ,' END
|| v_column.column_name || ' ' || v_column.data_type
|| CASE v_column.data_type WHEN 'TIMESTAMP(6)' THEN '' WHEN 'DATE' THEN ''
WHEN 'CLOB' THEN '' WHEN 'BLOB' THEN ''
WHEN 'NUMBER' THEN
CASE
WHEN v_column.data_scale is NOT NULL AND v_column.data_precision IS NOT NULL THEN '('||v_column.data_precision||','||v_column.data_scale||')'
WHEN v_column.data_precision IS NOT NULL THEN '(' || v_column.data_precision|| ')'
END
ELSE
CASE WHEN v_column.data_length IS NOT NULL THEN '(' || v_column.data_length || ')' END
END
);
END LOOP;

v_seq := v_seq + 1;
INSERT INTO tmp_tabsql(seq, table_name, table_sql) VALUES(v_seq, v_cur.table_name, ')');

IF v_cur.partitioned = 'YES' THEN
SELECT t.partitioning_type, t.subpartitioning_type , tk.column_name
INTO v_partType, v_subPartType, v_partColumn
FROM User_Part_Tables t, User_Part_Key_Columns tk
where t.table_name = tk.name
AND t.table_name = v_cur.table_name
;
v_seq := v_seq + 1;
INSERT INTO tmp_tabsql(seq, table_name, table_sql) VALUES(v_seq, v_cur.table_name,
' pctfree 0 nologging partition by ' || v_partType ||'('||v_partColumn||')' );
-- subpartition
v_subPartSql := '';
IF v_subPartType <> 'NONE' THEN
SELECT t.column_name INTO v_partColumn FROM user_subpart_key_columns t
WHERE t.name = v_cur.table_name
;
v_subPartSql := 'subpartition by '|| v_subPartType ||'('|| v_partColumn ||') subpartition template (' ||CHR(10);
FOR v_tmp in (SELECT t.subpartition_name, t.high_bound, t.subpartition_position
FROM User_Subpartition_Templates t
WHERE TABLE_NAME = v_cur.table_name
ORDER BY t.subpartition_position ASC
) LOOP
v_subPartSql := v_subPartSql || CASE WHEN v_tmp.subpartition_position > 1 THEN CHR(10) ||' ,' END
|| 'subpartition '|| v_tmp.subpartition_name || ' values (' || v_tmp.high_bound || ')'
;
END LOOP;
v_subPartSql := v_subPartSql || CHR(10) || ')' ||CHR(10);
END IF;

v_seq := v_seq + 1;
INSERT INTO tmp_tabsql(seq, table_name, table_sql) VALUES(v_seq, v_cur.table_name,
v_subPartSql || '(partition P2011010100 values less than (to_date(''2011-01-01'',''yyyy-mm-dd'')));'
);
ELSE
v_seq := v_seq + 1;
INSERT INTO tmp_tabsql(seq,table_name,table_sql) VALUES(v_seq, v_cur.table_name,
' TABLESPACE ' || v_cur.tablespace_name
|| ' PCTFREE ' || v_cur.pct_free
|| CASE TRIM(v_cur.logging) WHEN 'NO' THEN ' NOLOGGING' END
|| CASE trim(v_cur.cache) WHEN 'Y' THEN ' CACHE' END
||';'
)
;
END IF;
COMMIT;
END LOOP;
END;
/

2  获取建表ddl语句

2.1.获取ddl        ##（'TABLE','表名','用户名'）

SELECT DBMS_METADATA.GET_DDL('TABLE','ODRM','S6MISM') FROM DUAL;

2.2. 得到一个用户下的所有表，索引，存储过程的ddl

SELECT DBMS_METADATA.GET_DDL(U.OBJECT_TYPE, u.object_name)   FROM USER_OBJECTS u  where U.OBJECT_TYPE IN ('TABLE','INDEX','PROCEDURE');

2.3.得到所有表空间的ddl语句

SELECT DBMS_METADATA.GET_DDL('TABLESPACE', TS.tablespace_name) FROM DBA_TABLESPACES TS;

2.4.得到所有创建用户的ddl

SELECT DBMS_METADATA.GET_DDL('USER',U.USERNAME)  FROM DBA_USERS U;