oracle 游标简单案例

oracle  游标简单案例

一.案例：

DECLARE

IDO NUMBER;

DABH VARCHAR2(50 CHAR);

t_count int(1);

CURSOR TJ_CURSOR IS SELECT IDO,DABH FROM ZLP_PERSONAL_INFO_115;

BEGIN

OPEN TJ_CURSOR;

LOOP

FETCH TJ_CURSOR INTO IDO,DABH;

SELECT  count(*) into t_count  FROM TJ_TJJL_115 t WHERE GRID=IDO;

IF t_count=0

THEN

  DBMS_OUTPUT.PUT_LINE(IDO);

UPDATE  ZLP_PERSONAL_INFO_115 SET HBSAG=3 where DABH=DABH;

ELSE

UPDATE ZLP_PERSONAL_INFO_115 SET HBSAG=(SELECT HBSAG FROM TJ_TJJL_115 WHERE GRID=IDO) WHERE DABH=DABH;

  END IF;

END LOOP;

CLOSE TJ_CURSOR;

END;