如何在立即执行中执行 clob

Question

我有一个 table 一行，clob 列（大小为 5239）。此列包含在 dbms_metadata.get_ddl 的帮助下提取的 table 脚本。与 table ddl 一起，它还提取主键约束和唯一索引脚本。

当我尝试使用 execute immediate 在我的 plsql 块中执行脚本时，它抛出以下错误：

ora-00922: missing or invalid option

有人可以帮我解决可能出现的问题吗？

DECLARE lr_ddl CLOB;

BEGIN
    SELECT TEXT INTO lr_ddl FROM DUMMY_1;
    EXECUTE IMMEDIATE lr_nvm_ddl;

    EXCEPTION WHEN OTHERS 
              THEN raise_application_error(-20001, chr(10)||' Failed ' || SQLERRM);
END;

下面是我在 clob 中的脚本，我试图在我的匿名块中立即执行。

 CREATE TABLE abc_PROD.travel_hist
   (  travel_NO NUMBER NOT NULL ENABLE, 
  OBJECT_ID VARCHAR2(32) NOT NULL ENABLE, 
  flight_NO NUMBER, 
  LIFT_ACCOUNT VARCHAR2(32), 
  CARR_id VARCHAR2(32), 
  V_1 NUMBER, 
  V_2 NUMBER, 
  V_3 NUMBER, 
  V_4 NUMBER, 
  V_5 NUMBER, 
  V_6 NUMBER, 
  V_7 NUMBER, 
  V_8 NUMBER, 
  V_9 NUMBER, 
  V_10 NUMBER, 
  V_11 NUMBER, 
  V_12 NUMBER, 
  V_13 NUMBER, 
  V_14 NUMBER, 
  V_15 NUMBER, 
  V_16 NUMBER, 
  V_17 NUMBER, 
  V_18 NUMBER, 
  V_19 NUMBER, 
  V_20 NUMBER, 
  V_21 NUMBER, 
  V_22 NUMBER, 
  V_23 NUMBER, 
  V_24 NUMBER, 
  V_25 NUMBER, 
  V_26 NUMBER, 
  V_27 NUMBER, 
  V_28 NUMBER, 
  V_29 NUMBER, 
  V_30 NUMBER, 
  T_1 VARCHAR2(16), 
  T_2 VARCHAR2(32), 
  T_3 VARCHAR2(240), 
  T_4 VARCHAR2(2000), 
  T_5 VARCHAR2(240), 
  T_6 VARCHAR2(240), 
  T_7 VARCHAR2(240), 
  T_8 VARCHAR2(240), 
  T_9 VARCHAR2(240), 
  T_10 VARCHAR2(240), 
  T_11 VARCHAR2(2000), 
  T_12 VARCHAR2(2000), 
  T_13 VARCHAR2(2000), 
  T_14 VARCHAR2(2000), 
  T_15 VARCHAR2(2000), 
  T_16 VARCHAR2(2000), 
  T_17 VARCHAR2(2000), 
  T_18 VARCHAR2(2000), 
  T_19 VARCHAR2(2000), 
  T_20 VARCHAR2(2000), 
  DATE_1 DATE, 
  DATE_2 DATE, 
  DATE_3 DATE, 
  DATE_4 DATE, 
  DATE_5 DATE, 
  DATE_6 DATE, 
  DATE_7 DATE
   ) ;
  CREATE UNIQUE INDEX abc_PROD.PK_TRAVEL ON abc_PROD.travel_hist (travel_NO) 
  ;
ALTER TABLE abc_PROD.travel_hist ADD CONSTRAINT PK_TRAVEL PRIMARY KEY (travel_NO)
  USING INDEX abc_PROD.PK_TRAVEL  ENABLE;

Answer 1

您可以在循环中一条一条地执行这些命令。就像这里的代码一样。我只是打印了命令，但你可以执行它们：

    SET SERVEROUTPUT ON
    DECLARE
        mySQL  VarChar2(8000);
        mySQLexecute  VarChar2(8000);
    BEGIN
       SELECT TEXT INTO mySQL FROM DUMMY_1;
       --
        WHILE InStr(mySQL, ';') > 0 LOOP
          mySQLexecute := SubStr(mySQL, 1, INSTR(mySQL, ';'));
-- OR mySQLexecute := SubStr(mySQL, 1, INSTR(mySQL, ';')-1);  if you want a command without semicolon (;)
          DBMS_OUTPUT.PUT_LINE(mySQLexecute);
          --EXECUTE IMMEDIATE mySQLexecute;
          mySQL := SubStr(mySQL, INSTR(mySQL, ';') + 1);
        END LOOP;
    EXCEPTION WHEN OTHERS THEN
      raise_application_error (-20001, chr(10)||' Failed ' || SQLERRM);
    END;

如何在立即执行中执行 clob

How do I execute clob in execute immediate

sql

oracle

execute

dynamic-sql