Oracle游标循环更新数据案例

declare
      v_XTXMBH number;
      v_ZJZJZJRQ  varchar2(40);
      cursor c_job is
       SELECT XT.XTXMBH AS XTXMBH, QJ.ZJZJZJRQ AS ZJZJZJRQ
         FROM XTXMXX XT, QJGLXX_ZQL_MID QJ
        WHERE XT.XTXMBH = QJ.XTXMBH
          AND XT.XTXMCLRQ >= ‘20120630‘
          AND (QJ.ZJQHZJRQ IS NULL OR QJ.ZJZJZJRQ IS NULL);
      c_row c_job%rowtype;
    begin
      for c_row in c_job loop
        v_XTXMBH:=c_row.XTXMBH;
        v_ZJZJZJRQ:=c_row.ZJZJZJRQ;
        IF (v_XTXMBH IS NOT NULL OR v_XTXMBH<>‘‘) THEN 
          if (v_ZJZJZJRQ IS NULL OR v_ZJZJZJRQ=‘‘) then
            --UPDATE ZJ
           UPDATE QJGLXX_ZQL_MID T
              SET T.ZJZJZJRQ = ‘20000101‘, T.ZJZJZJJE = 0, T.LJZJZJJE = 0
            WHERE T.XTXMBH=v_XTXMBH;
          else
            --UPDATE QH
            UPDATE QJGLXX_ZQL_MID T
              SET T.ZJQHZJRQ = ‘20000101‘, T.ZJQHZJJE = 0, T.LJQHZJJE = 0
            WHERE T.XTXMBH=v_XTXMBH;
          end if;
         END IF;
      end loop; --循环结束
      commit; --提交处理后数据
    end;