Question

抱歉这个庞大的代码。我要做的就是将变量YM1（201702,201703,201704）增加一个月，执行SQL语句并使用CURSOR显示结果。

CURRENT BEHAVIOR：YM1变量不会递增。代码执行但始终使用YM1 = '201702'。

YEAR_MONTH 201701 201702 0
YEAR_MONTH 201701 201703 0
YEAR_MONTH 201701 201704 0

预期结果：

YEAR_MONTH 201701 201702 0
YEAR_MONTH 201701 201703 10
YEAR_MONTH 201701 201704 20

请让我知道我错过了什么。打破我的脑袋。非常感谢您的时间。

set serveroutput on

DECLARE
    YM   VARCHAR2(10) := '201701';
    YM1  VARCHAR2(10) := '201702';
    row1 number := 0;

    CURSOR counts is
        SELECT COUNT(*)
        FROM   **table1 a**
        WHERE  a.year_month = YM
        AND    EXISTS
               ( SELECT 'Y'
                 FROM   **table2 b** 
                 WHERE  a.id = b.id
                 AND    b.year_month = YM1 );
BEGIN
    OPEN counts;
    LOOP
        FETCH counts INTO row1;
        dbms_output.put_line('YEAR_MONTH '||YM||' '||YM1||' '||row1);
        YM1 := TO_CHAR(ADD_MONTHS(TO_DATE(YM1,'YYYY-MM'), +1), 'YYYYMM');
        EXIT WHEN YM1 > '201704'
    END LOOP;
    CLOSE counts;
END;
/

Answer 1

问题是，当您打开游标时，它会选择与打开时的YM1变量匹配的所有记录。所以你的循环将获取一行耗尽光标。下一次提取什么都不提取，因此row1的值不会更新。

要获取新值，每次都需要打开和关闭光标：

DECLARE
  YM VARCHAR2(10) := '201701'
  YM1 VARCHAR2(10) := '201702'
  row1 number := 0;
  CURSOR counts is
     SELECT COUNT(*)
     FROM table1 a
     WHERE a.YEAR_MONTH = YM
     AND EXISTS (SELECT 'Y'
                 FROM table2 b 
                 WHERE a.id = b.id
                 AND b.YEAR_MONTH  = YM1);
BEGIN
  LOOP
    OPEN counts;
    FETCH counts INTO row1;
    dbms_output.put_line('YEAR_MONTH '||YM||' '||YM1||' '||row1);
    YM1 := TO_CHAR(ADD_MONTHS(TO_DATE(YM1,'YYYY-MM'), +1), 'YYYYMM');
    EXIT WHEN YM1 > '201704'
    CLOSE counts;
  END LOOP;
END;
/

Answer 2

作为循环的一部分，没有增量发生，所以它总是相同的。我不确定你是否假设这是增加YM1值的逻辑，但它永远不会那样做。 ADD_MONTHS（TO_DATE（YM1，'YYYY-MM'），+ 1）

你想增加YM吗？尝试使用YM1的以下语句增加 YM1：= TO_CHAR（ADD_MONTHS（TO_DATE（YM1，'YYYY-MM'），+ 1），'YYYYMM'）;

编辑为您提供输出..

set serveroutput on
DECLARE
YM VARCHAR2(10) := '201701';
YM1 VARCHAR2(10) := '201702';
BEGIN
 dbms_output.put_line('           Timing        YM       YM1');
 dbms_output.put_line('Before Increment'||YM||' '||YM1);
 LOOP
   YM1 := TO_CHAR(ADD_MONTHS(TO_DATE(YM1,'YYYY-MM'), +1), 'YYYYMM');
   dbms_output.put_line('After Increment '||YM||' '||YM1);
   EXIT WHEN YM1 > '201704';
 END LOOP;
END;
/

Timing        YM       YM1
Before Increment201701 201702
After Increment 201701 201703
After Increment 201701 201704
After Increment 201701 201705


PL/SQL procedure successfully completed.

我刚刚执行了删除表和光标..

带有LOOP的游标

2 个答案: