ORACLE - GENERATE INSERT語句

Question

下面的函數產生SELECT以產生一個Oracle表的記錄插入語句：

CREATE OR REPLACE FUNCTION GEN_INSERT_STATEMENT (IN_TABLE_NAME VARCHAR2) 
    RETURN CLOB 
IS 
    LC$COLS_SELECT CLOB; 
    LC$COLS_VALUES CLOB; 
    LC$COLOUMN  CLOB; 

    CURSOR LCUR$TAB_COLUMNS (IN_TABLE_NAME VARCHAR2) 
    IS 
     SELECT COLUMN_NAME, DATA_TYPE, COLUMN_ID 
      FROM USER_TAB_COLS 
     WHERE TABLE_NAME = IN_TABLE_NAME 
     ORDER BY COLUMN_ID; 
BEGIN 
    FOR LREC$TAB_COLUMNS IN LCUR$TAB_COLUMNS (UPPER (IN_TABLE_NAME)) 
    LOOP 
     LC$COLS_SELECT := 
      LC$COLS_SELECT 
     || CASE LREC$TAB_COLUMNS.COLUMN_ID WHEN 1 THEN '' ELSE ',' END 
     || LREC$TAB_COLUMNS.COLUMN_NAME; 

     IF INSTR (LREC$TAB_COLUMNS.DATA_TYPE, 'CHAR') > 0 
     THEN 
     LC$COLOUMN := 
       '''''''''||REPLACE(' 
      || LREC$TAB_COLUMNS.COLUMN_NAME 
      || ','''''''','''''''''''')||'''''''''; 
     ELSIF INSTR (LREC$TAB_COLUMNS.DATA_TYPE, 'DATE') > 0 
     THEN 
     LC$COLOUMN := 
      '''TO_DATE(''''''||TO_CHAR(' || LREC$TAB_COLUMNS.COLUMN_NAME 
      || ',''mm/dd/yyyy hh24:mi:ss'')||'''''',''''mm/dd/yyyy hh24:mi:ss'''')'''; 
     ELSE 
     LC$COLOUMN := LREC$TAB_COLUMNS.COLUMN_NAME; 
     END IF; 

     LC$COLS_VALUES := 
      LC$COLS_VALUES 
     || CASE LREC$TAB_COLUMNS.COLUMN_ID WHEN 1 THEN '' ELSE ',' END 
     || '''||DECODE(' 
     || LREC$TAB_COLUMNS.COLUMN_NAME 
     || ',NULL,''NULL'',' 
     || LC$COLOUMN 
     || ')||'''; 
    END LOOP; 

    RETURN 'SELECT ''INSERT INTO ' 
      || IN_TABLE_NAME 
      || ' (' 
      || LC$COLS_SELECT 
      || ') VALUES (' 
      || LC$COLS_VALUES 
      || ');'' FROM ' 
      || IN_TABLE_NAME 
      || ';'; 
END; 
/

的問題是，此功能不處理在其中現有的一些VARCHAR2的情況下用繩子領域結尾：CHR(0)

用法：

SELECT GEN_INSERT_STATEMENT ('MY_ORACLE_TABLE_NAME') FROM DUAL; 

...生成一個SELECT來produc e INSERT聲明。

如果在VARCHAR2字段中的值與CHR(0)結束後，INSERT語句將被截斷，究竟哪裏是CHR(0)位置。

我該如何解決這個問題？

Answer 1

如果我理解你所看到的，你需要無論是從價值剝離空字符：

IF INSTR (LREC$TAB_COLUMNS.DATA_TYPE, 'CHAR') > 0 
    THEN 
    LC$COLOUMN := 
      '''''''''||REPLACE(REPLACE(' 
     || LREC$TAB_COLUMNS.COLUMN_NAME 
     || ',CHR(0),NULL),'''''''','''''''''''')||'''''''''; 

這給你的函數的輸出：

SELECT 'INSERT INTO T42 (STR) VALUES ('||DECODE(STR,NULL,'NULL',''''||REPLACE(REPLACE(STR,CHR(0),NULL),'''','''''')||'''')||');' FROM T42; 

，並用假表格名爲t42，單列str包含'hello'後跟空字符，輸出爲：

INSERT INTO T42 (STR) VALUES ('Hello'); 

或插入過程中保護它：

 LC$COLOUMN := 
      '''''''''||REPLACE(REPLACE(' 
     || LREC$TAB_COLUMNS.COLUMN_NAME 
     || ','''''''',''''''''''''),CHR(0),''''''||CHR(0)||'''''')||'''''''''; 

這給：

SELECT 'INSERT INTO T42 (STR) VALUES ('||DECODE(STR,NULL,'NULL',''''||REPLACE(REPLACE(STR,'''',''''''),CHR(0),'''||CHR(0)||''')||'''')||');' FROM T42; 

最後：

INSERT INTO T42 (STR) VALUES ('Hello'||CHR(0)||''); 

所以在第二個版本的空字符從固定取出字符串（任何地方，不只是在最後），並作爲插入語句的一部分放回。

雖然這可能是一種可怕的方法，但您可以導出數據，或讓SQL Developer或其他IDE爲您生成插入語句。還有其他的數據類型和值讓你頭痛，而其他人已經努力克服。除非你真的需要看到實際的陳述，否則使用expdp會簡單得多。

Answer 2

使用此：

• https://github.com/teopost/oracle-scripts/blob/master/fn_gen_inserts.sql

用法：

select fn_gen_inserts('select * from tablename', 'p_new_owner_name', 'p_new_table_name') 
from dual; 

其中：

p_sql   – dynamic query which will be used to export metadata rows 
p_new_owner_name – owner name which will be used for generated INSERT 
p_new_table_name – table name which will be used for generated INSERT 

您可以找到原始的源代碼H ERE：

• http://dbaora.com/oracle-generate-rows-as-insert-statements-from-table-view-using-plsql/