你是想取值还是想insert数据?

解决方案 »

  1.   

    你把sqlstr print出来看看,是不是你想要的sql
      

  2.   


    CREATE OR REPLACE PACKAGE BODY PKG_AAA
    AS
        procedure UP_AAA
        (
             PSRLN_LIST VARCHAR2,
            PLOGCODE VARCHAR2,
        PDESP VARCHAR2
        )
        is 
          v_log_id varchar2(20);    
          sqlstr varchar2(2000);  
          cur_model CUR_FLIGHT;
          v_row aaaA%rowtype;
        begin        
             sqlstr:='select * from aaa where srln in ('||PSRLN_LIST||')';
             open cur_model for sqlstr;
             Loop 
                 fetch cur_model into v_row;
                 exit when cur_model%notfound;
                 select SQ_LOG.NEXTVAL into v_log_id from dual;  
                 Insert Into t_log_flight(...)
                 values(...);
             End Loop;
             Commit;
             close cur_model;
        end UP_AAA;
    END PKG_AAA;
      

  3.   

    多了个A  
    CREATE OR REPLACE PACKAGE BODY PKG_AAA
    AS
        procedure UP_AAA
        (
             PSRLN_LIST VARCHAR2,
            PLOGCODE VARCHAR2,
        PDESP VARCHAR2
        )
        is 
          v_log_id varchar2(20);    
          sqlstr varchar2(2000);  
          cur_model CUR_FLIGHT;
          v_row aaa%rowtype;
        begin        
             sqlstr:='select * from aaa where srln in ('||PSRLN_LIST||')';
             open cur_model for sqlstr;
             Loop 
                 fetch cur_model into v_row;
                 exit when cur_model%notfound;
                 select SQ_LOG.NEXTVAL into v_log_id from dual;  
                 Insert Into t_log_flight(...)
                 values(...);
             End Loop;
             Commit;
             close cur_model;
        end UP_AAA;
    END PKG_AAA;