从 pl/sql 块内立即执行的数据假脱机

Posted

技术标签:

【中文标题】从 pl/sql 块内立即执行的数据假脱机【英文标题】:Spool the data from execute immediate within pl/sql block 【发布时间】:2014-03-14 13:32:20 【问题描述】:

如何在 pl/sql 中从立即执行中假脱机数据。

下面是代码。

    DECLARE
     from_dt varchar(300):=&from_date;
     to_dt varchar2(300):=&to_date;
    account varchar2(200):=&account;
    mbl_table varchar2(100);
    dn_table varchar2(100);
    id number;
    Begin

    select aid into id from account where upper(acode)=upper(account);
    select tablename into mbl_table from partner_mbl where pid in (select pid from account where upper(acode)=upper(account));
    select dn_tablename into dn_table from partner_mbl where pid in (select pid from account where upper(acode)=upper(account));
    dbms_output.put_line(mbl_table);
    FOR i IN (select 'p_'||to_char((ROWNUM-1 + to_date(from_dt, 'ddmonyyyy')),'ddmonyyyy') part FROM all_objects
     WHERE ROWNUM-2 < to_date(to_dt, 'ddmonyyyy')-to_date(from_dt, 'ddmonyyyy'))loop

 execute immediate 'Select a.pcode,A.Acode,To_Char(A.Mobile),a.msg,a.senderid,To_Char(A.Rts,'||'''dd/mm/yyyy hh24:mi:ss'''||'),To_Char(A.Sts,'||'''dd/mm/yyyy hh24:mi:ss'''||'),A.Statusflag,A.Statusid,To_Char(B.Lastts,'||'''dd/mm/yyyy hh24:mi:ss'''||'),B.Statusflag,B.Err_Des From '|| mbl_table ||' partition('||i.part||') A, '|| dn_table ||' partition('||i.part||') B Where a.aid='||id|| ' And A.Msgid = B.Msgid(+)';

end loop;
    End;

如何将立即执行的输出假脱机到 csv 文件中

【问题讨论】:

查看How to create a oracle sql scrpt spool file接受的答案 我需要立即执行的解决方案 您可以照常使用INTO。只需确保将 INTO 放在字符串之外,如下所示:EXECUTE IMMEDIATE 'select ...' INTO pcode, acode, ...; Select 语句返回多行。 然后您可以使用OPEN CURSOR cur FOR &lt;select string&gt; 语法作为 SYS_REFCURSOR。 【参考方案1】:
DECLARE
  from_dt   varchar(300) := &from_date;
  to_dt     varchar2(300) := &to_date;
  account   varchar2(200) := &account;
  mbl_table varchar2(100);
  dn_table  varchar2(100);
  id        number;
  /*define types*/ 
  /* change the next varchar2(1000) with your types*/
  t_pcode IS TABLE OF varchar2(1000);
  v_pcode t_pcode;

  t_Acode IS TABLE OF varchar2(1000);
  v_Acode t_Acode;

  t_Mobile IS TABLE OF varchar2(1000);
  v_Mobile t_Mobile;

  t_msg IS TABLE OF varchar2(1000);
  v_msg t_msg;

  t_senderid IS TABLE OF varchar2(1000);
  v_senderid t_senderid;

  t_Rts IS TABLE OF varchar2(1000);
  v_Rts t_Rts;

  t_Sts IS TABLE OF varchar2(1000);
  V_Sts t_Sts;

  t_Statusflag IS TABLE OF varchar2(1000);
  v_Statusflag t_Statusflag;

  t_Statusid IS TABLE OF varchar2(1000);
  v_Statusid t_Statusid;

  t_Lastts IS TABLE OF varchar2(1000);
  v_Lastts t_Lastts;

  t_Statusflag IS TABLE OF varchar2(1000);
  v_Statusflag t_Statusflag;

  t_Err_Des IS TABLE OF varchar2(1000);
  v_Err_Des t_Err_Des;
  /*end types*/
Begin

  select aid into id from account where upper(acode) = upper(account);
  select tablename
    into mbl_table
    from partner_mbl
   where pid in
         (select pid from account where upper(acode) = upper(account));
  select dn_tablename
    into dn_table
    from partner_mbl
   where pid in
         (select pid from account where upper(acode) = upper(account));
  dbms_output.put_line(mbl_table);
  FOR i IN (select 'p_' ||
                   to_char((ROWNUM - 1 + to_date(from_dt, 'ddmonyyyy')),
                           'ddmonyyyy') part
              FROM all_objects
             WHERE ROWNUM - 2 < to_date(to_dt, 'ddmonyyyy') -
                   to_date(from_dt, 'ddmonyyyy')) loop

    /*    execute immediate 'Select a.pcode,A.Acode,To_Char(A.Mobile),a.msg,a.senderid,To_Char(A.Rts,' ||
                          '''dd/mm/yyyy hh24:mi:ss''' || '),To_Char(A.Sts,' ||
                          '''dd/mm/yyyy hh24:mi:ss''' ||
                          '),A.Statusflag,A.Statusid,To_Char(B.Lastts,' ||
                          '''dd/mm/yyyy hh24:mi:ss''' ||
                          '),B.Statusflag,B.Err_Des From ' || mbl_table ||
                          ' partition(' || i.part || ') A, ' || dn_table ||
                          ' partition(' || i.part || ') B Where a.aid=' || id ||
                          ' And A.Msgid = B.Msgid(+)' ;
    */
    execute immediate 'Select a.pcode,A.Acode,To_Char(A.Mobile),a.msg,a.senderid,To_Char(A.Rts,' ||
                      '''dd/mm/yyyy hh24:mi:ss''' || '),To_Char(A.Sts,' ||
                      '''dd/mm/yyyy hh24:mi:ss''' ||
                      '),A.Statusflag,A.Statusid,To_Char(B.Lastts,' ||
                      '''dd/mm/yyyy hh24:mi:ss''' ||
                      '),B.Statusflag,B.Err_Des From ' || mbl_table ||
                      ' partition(' || i.part || ') A, ' || dn_table ||
                      ' partition(' || i.part || ') B Where a.aid=' || id ||
                      ' And A.Msgid = B.Msgid(+)' 
    BULK COLLECT INTO v_pcode, v_Acode, v_Mobile, v_msg, v_senderid, 
           v_Rts, V_Sts, v_Statusflag, v_Statusid, v_Lastts, 
           v_Statusflag, v_Err_Des;
    for i.. v_pcode.count loop
      dbms_output.put_line('pcode and msg values are: '||v_pcode(i)||' ' ||v_msg(i) ||' at line' || i );
      /*you can get out other values with same way*/
    end loop;

End;

【讨论】:

【参考方案2】:

您还可以查看有关“oracle collections”、“execute immediate”、“bulk collect”的 oracle 文档。

我以前的帖子可以解决您的问题,但是这里是一个简单的示例作为附加信息。

DECLARE
  TYPE emp_typ IS TABLE OF scott.emp%ROWTYPE;
  e_tab     emp_typ;

BEGIN
  EXECUTE IMMEDIATE 'SELECT * FROM emp'
  BULK COLLECT INTO e_tab;

  DBMS_OUTPUT.put_line('Dynamic EXECUTE: ' || e_tab.count);
  for i in 1..e_tab.count loop
      DBMS_OUTPUT.put_line( e_tab(i).ename ||':'|| e_tab(i).empno );
      null;
  end loop;
END;
/

【讨论】:

以上是关于从 pl/sql 块内立即执行的数据假脱机的主要内容,如果未能解决你的问题,请参考以下文章

PL SQL 过程中的“假脱机”命令问题

在没有假脱机或 utl_file 的 PL/SQL 中写入文件

Oracle PL/SQL 中的字符编码问题

假脱机多个文件

您如何从通过数据库链接执行的存储过程中进行假脱机?

PL/SQL:将字符串的“数组”作为参数传递给 sql