抓取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;
/
spool &1
select table_sql from (
SELECT \'set echo off;\' table_sql,0 seq from dual
UNION ALL
SELECT \'set feedback off;\', 1 seq FROM dual
union ALL
SELECT table_sql,seq FROM tmp_tabsql
UNION ALL
SELECT \'exit;\',9999999999 seq from dual
) order by seq asc;
spool OFF;
drop TABLE tmp_tabsql PURGE;
EXIT;
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;