ORACLE生成DDL和DML方法

 原文摘自：

ORACLE獲取DDL(Create Table)的幾種常用的方法（轉載）
2008-04-18 10:27
大體的分爲三種方法：

一、可以通過toad、plsql develop等第三方工具進行導出DLL操作，用這種辦法的好處在於操作簡單方便，但需要安裝，下面簡單介紹一下用這兩個工具獲得DLL語句的操作。

二、直接通過EXP/IMP工具

Oracle提供的最原始最實用的導入導出工具，我們大體上可以分爲三種辦法實現導出DDL。

a. 通過imp指定indexfile參數，但這種辦法不爽在於有每行前會有REM

語法大體如下：

exp userid=... tables=emp rows=n file=emp.dmp
imp userid=... file=emp.dmp indexfile=emp.sql

b. 通過imp指定show=y，同時指定log參數，格式上也不是很爽，在格式上很美觀的還是通過工具導出的比較美觀

語法大體如下：

exp userid=... tables=emp rows=n file= emp.dmp
imp userid=... file= emp.dmp show=y log=emp.sql

c. 利用unix下有strings命令,語法大體如下，這種方法比較野蠻：

exp userid=... tables=tab1 rows=n file=tab1.dmp
strings emp.dmp >emp.sql
emp.sql中就有DLL語句了

三、通過9i的DBMS_METADATA包得到DLL語句

基本上用到的語法如下：

a. 獲取單個的建表和建索引的語法
set heading off;
set echo off;
Set pages 999;
set long 90000;

spool DEPT.sql
select dbms_metadata.get_ddl('TABLE','DEPT','SCOTT') from dual;
select dbms_metadata.get_ddl('INDEX','DEPT_IDX','SCOTT') from dual;
spool off;

b.獲取一個SCHEMA下的所有建表和建索引的語法，以scott爲例：

set pagesize 0
set long 90000
set feedback off

set echo off
spool scott_schema.sql
connect scott/tiger;
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;

c. 獲取某個SCHEMA的建全部存儲過程的語法
connect brucelau /brucelau;
spool procedures.sql

select DBMS_METADATA.GET_DDL('PROCEDURE',u.object_name) from user_objects u where object_type = 'PROCEDURE';
spool off;


另：dbms_metadata.get_ddl('TABLE','TAB1','USER1')
三個參數中，第一個指定導出DDL定義的對象類型（此例中爲表類型），第二個是對象名（此例中即表名），第三個是對象所在的用戶名。

ORACLE獲取DML(Insert into)的方法

from: 把Oracle表裏的數據導成insert語句

有些時候我們需要把oracle裏的數據導入其他數據庫裏。生成insert into 表名 .... 是一種很簡單直接的方法。

今年六月份從www.arikaplan.com/oracle.html看到一個可以生成insert into 表名 ....語句的存儲過程genins_output。按中文習慣的時間格式YYYY-MM-DD HH24:MI:SS改了改，並新寫了一個存儲過程genins_file.sql。

它可以把小於16383條記錄表裏的數據導成(insert into 表名 ....)OS下文件。

調用它之前，DBA要看看數據庫的初始化參數 UTL_FILE_DIR 是否已經正確地設置:

SQL> show parameters utl_file_dir;
可以看到該參數的當前設置。

如果沒有值，必須修改數據庫的initsid.ora文件，將utl_file_dir 指向一個你想用PL/SQL file I/O 的路徑。重新啓動數據庫。此參數才生效。

調用它，可以把表裏的數據生成(insert into 表名 ....)OS下文件的過程genins_file方法:

SQL>exec genins_file('emp','/oracle/logs','insert_emp.sql');
　　　　　　　　　　　　|　　　 |　　　　　　|
　　　　　　　　　　表名，可變　|　　　生成OS下文件名,可變
　　　　　　　　　　　　　　　　|
　　　　　　utl_file_dir路徑名,不變(我設置的是/oracle/logs)

可以在OS目錄/oracle/logs下看到insert_emp.sql文件。
注意事項: 生成(insert into 表名 ....)OS下文件最多32767行。因爲我一條insert分成兩行,所以最多處理16383條記錄的表。

附：genins_file.sql

code:
--------------------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE genins_file(
p_table IN varchar2,
p_output_folder IN VARCHAR2,
p_output_file IN VARCHAR2)
IS
--
l_column_list VARCHAR2(32767);
l_value_list VARCHAR2(32767);
l_query VARCHAR2(32767);
l_cursor NUMBER;
ignore NUMBER;
l_insertline1 varchar2(32767);
l_insertline2 varchar2(32767);
cmn_file_handle UTL_FILE.file_type;

--

FUNCTION get_cols(p_table VARCHAR2)
RETURN VARCHAR2
IS
l_cols VARCHAR2(32767);
CURSOR l_col_cur(c_table VARCHAR2) IS
SELECT column_name
FROM user_tab_columns
WHERE table_name = upper(c_table)
ORDER BY column_id;
BEGIN
l_cols := null;
FOR rec IN l_col_cur(p_table)
LOOP
l_cols := l_cols || rec.column_name || ',';
END LOOP;
RETURN substr(l_cols,1,length(l_cols)-1);
END;

--

FUNCTION get_query(p_table IN VARCHAR2)
RETURN VARCHAR2
IS
l_query VARCHAR2(32767);
CURSOR l_query_cur(c_table VARCHAR2) IS
SELECT 'decode('||column_name||',null,''null'','||
decode(data_type,'VARCHAR2','''''''''||'||column_name ||'||'''''''''
,'DATE','''''''''||to_char('||column_name||',''YYYY-MM-DD HH24:MI:SS'')||'''''''''
,column_name
) || ')' column_query
FROM user_tab_columns
WHERE table_name = upper(c_table)
ORDER BY column_id;
BEGIN
l_query := 'SELECT ';
FOR rec IN l_query_cur(p_table)
LOOP
l_query := l_query || rec.column_query || '||'',''||';
END LOOP;
l_query := substr(l_query,1,length(l_query)-7);
RETURN l_query || ' FROM ' || p_table;
END;

--

BEGIN
l_column_list := get_cols(p_table);
l_query := get_query(p_table);
l_cursor := dbms_sql.open_cursor;
DBMS_SQL.PARSE(l_cursor, l_query, DBMS_SQL.native);
DBMS_SQL.DEFINE_COLUMN(l_cursor, 1, l_value_list, 32767);
ignore := DBMS_SQL.EXECUTE(l_cursor);

--

IF NOT UTL_FILE.IS_OPEN(cmn_file_handle) THEN
cmn_file_handle := UTL_FILE.FOPEN (p_output_folder, p_output_file, 'a',32767);
END IF;

LOOP
IF DBMS_SQL.FETCH_ROWS(l_cursor)>0 THEN
DBMS_SQL.COLUMN_VALUE(l_cursor, 1, l_value_list);
l_insertline1:='INSERT INTO '||p_table||' ('||l_column_list||')';
l_insertline2:=' VALUES ('||l_value_list||');';
UTL_FILE.put_line (cmn_file_handle, l_insertline1);
UTL_FILE.put_line (cmn_file_handle, l_insertline2);
ELSE
EXIT;
END IF;
END LOOP;
IF NOT UTL_FILE.IS_OPEN(cmn_file_handle) THEN
UTL_FILE.FCLOSE (cmn_file_handle);
END IF;
END;
/