ORACLE过程中,游标的循环问题

Question

过程如下，在执行过程中发现，  CURSOR C_UPDDATA IS 
    SELECT SERIAL_NO,CUST_CODE,IMG_CLSES from STK_IMG_LOG 
      WHERE STKEX = '0' AND SUBMIT_STATUS = '2' AND CUST_CODE != 0 
      AND BIZ_DATE BETWEEN 20110101 AND 20110201 order by SERIAL_NO;  
这个游标的查询结果明明有值，可是缺不进入循环。经过检查发现，在实际运行中，发现游标的结果是空的。请高手帮忙解决！在线等CREATE OR REPLACE PROCEDURE IMG_LOSS_XZ(is_bgndate in integer,
                                        is_enddate in integer) AS                                                                                                        
  vs_o_SERIAL_NO    NUMERIC(19,0);
  vs_o_CUST_CODE    NUMERIC(10, 0);
  vs_o_IMG_CLSES    VARCHAR(200);   CURSOR C_UPDDATA IS 
    SELECT SERIAL_NO,CUST_CODE,IMG_CLSES from STK_IMG_LOG 
      WHERE STKEX = '0' AND SUBMIT_STATUS = '2' AND CUST_CODE != 0 
      AND BIZ_DATE BETWEEN 20110101 AND 20110201 order by SERIAL_NO;  
   
  TYPE UPDDATA IS RECORD(
  vs_o_SERIAL_NO STK_IMG_LOG.SERIAL_NO%TYPE,
  vs_o_CUST_CODE STK_IMG_LOG.CUST_CODE%TYPE,
  vs_o_IMG_CLSES STK_IMG_LOG.IMG_CLSES%TYPE  
  );
       
  r_update UPDDATA;       
  vs_r_IMG_SNES       VARCHAR(200);    
  vs_r_Submit_Status   CHAR(1);
  vs_r_SERIAL_NO    NUMERIC(19,0);
  vs_m_IMG_CLS        varchar(3); 
  vs_r_IMG_SN        varchar(17);   
  vs_i                 NUMERIC(10,0);
  vs_TotalLength      NUMERIC(10,0);
  vs_rec_cnt          NUMERIC(10,0); 
  vs_Sql_Str          varchar(8000);  type   t_sor   is   ref   cursor; 
  C_SYSTAB t_sor;
  c_sqlStr varchar(250);  
BEGIN
  delete from Upd_Sql;
  commit;  open C_UPDDATA;
  Loop
    fetch C_UPDDATA into r_update;     
    vs_i := 1;
    vs_TotalLength := length(trim(r_update.vs_o_IMG_CLSES));
    vs_r_Submit_Status := '2';
    vs_r_IMG_SNES := '';
    
    while vs_i < vs_TotalLength Loop
      vs_m_IMG_CLS := SubStr(r_update.vs_o_IMG_CLSES,vs_i,3); 
                       
      if COALESCE(vs_m_IMG_CLS,'0') <> '0' then
        select max(img_sn) into vs_r_IMG_SN from user_img_info
            where img_status = '0'
            and user_code = r_update.vs_o_CUST_CODE
            and img_cls = vs_m_IMG_CLS;
          
        select count(*),b.serial_no into vs_rec_cnt,vs_r_SERIAL_NO from frt_biz_img a,frt_biz_log b
            where a.serial_no = b.serial_no
            and a.img_sn = vs_r_IMG_SN
            group by b.serial_no;
          
        if  vs_rec_cnt > 0 then 
          vs_r_IMG_SNES := vs_r_IMG_SNES || vs_r_IMG_SN||','; 
        end if;         
      end if;
        
      vs_i:=vs_i +4;                          
    end Loop;        if COALESCE(vs_r_IMG_SNES,'0') != '0' then
      vs_r_IMG_SNES := substr(vs_r_IMG_SNES,1,length(vs_r_IMG_SNES)-1);        
    end if;
             
    if length(COALESCE(vs_r_IMG_SNES,'0')) = ((trunc((vs_i - 1)/4))*17 - 1) then
      vs_r_Submit_Status := '0';
    end if ;  
        
    if   vs_TotalLength  > 0 then
      vs_Sql_Str := 'UPDATE STK_IMG_LOG SET SERIAL_NO = ''' || vs_r_SERIAL_NO||''','
                        ||' IMG_SNES = ''' ||vs_r_IMG_SNES||''','
                        ||' SUBMIT_STATUS = '''|| vs_r_Submit_Status ||''' '  
                        ||' WHERE SERIAL_NO = ''' || r_update.vs_o_SERIAL_NO || ''';';
          insert into Upd_Sql values (vs_Sql_Str);
                  
    end if;
        
  exit when C_UPDDATA%notfound;
  end Loop;
  close C_UPDDATA;
END;

Answer 1

insert into Upd_Sql values (vs_Sql_Str);
    
  end if;
    
  exit when C_UPDDATA%notfound;
  end Loop;
没有commit,

Answer 2

最好将
EXIT WHEN C_UPDDATA%NOTFOUND;
放到fetch C_UPDDATA into r_update;的下一条语句再调试一下

Answer 3

楼上的两种方法都试过了，一样无法进入循环。在FETCH后检查C_UPDDATA%ROWCOUNT,发现这个值是0

Answer 4

取出SQL执行和存储过程是否在同一个环境（同一数据库相同的表）

Answer 5

其他代码都去掉~   光是一个open  cursor就没进去么（dbms_out了？）？ 应该不可能吧

Answer 6

应该是这个地方的问题。把这个部分去掉就可以循环了，是撒原因呢？不能嵌套循环？ 
   while vs_i < vs_TotalLength Loop
      vs_m_IMG_CLS := SubStr(r_update.vs_o_IMG_CLSES,vs_i,3); 
                       
      if COALESCE(vs_m_IMG_CLS,'0') <> '0' then
        select max(img_sn) into vs_r_IMG_SN from user_img_info
            where img_status = '0'
            and user_code = r_update.vs_o_CUST_CODE
            and img_cls = vs_m_IMG_CLS;
          
        select count(*),b.serial_no into vs_rec_cnt,vs_r_SERIAL_NO from frt_biz_img a,frt_biz_log b
            where a.serial_no = b.serial_no
            and a.img_sn = vs_r_IMG_SN
            group by b.serial_no;
          
        if  vs_rec_cnt > 0 then 
          vs_r_IMG_SNES := vs_r_IMG_SNES || vs_r_IMG_SN||','; 
        end if;         
      end if;
        
      vs_i:=vs_i +4;                          
    end Loop;    

Answer 7

嵌套循应该没问题，估计是数值的问题。你把vs_TotalLength 还有别的几个值打印出来看下，慢慢检查吧