Oracle游标示例

-- 声明游标;CURSOR cursor_name IS select_statement

--For 循环游标
--(1)定义游标
--(2)定义游标变量
--(3)使用for循环来使用这个游标
declare
       --类型定义
       cursor c_job
       is
       select empno,ename,job,sal
       from emp
       where job='MANAGER';
       --定义一个游标变量v_cinfo c_emp%ROWTYPE ,该类型为游标c_emp中的一行数据类型
       c_row c_job%rowtype;
begin
       for c_row in c_job loop
         dbms_output.put_line(c_row.empno||'-'||c_row.ename||'-'||c_row.job||'-'||c_row.sal);
       end loop;
end;

实际工作中的例子:

declare 
       v_temp NUMBER;           --定义变量
       v_part_id VARCHAR2(20);  --定义变量
       cursor c_job            --定义游标
       is
       SELECT DEPT_ID,DEPT_CODE,DEPT_TYPE 
       from PUB_DEPART_INFO
       ORDER BY DEPT_ID;
       c_row c_job%rowtype;     --定义变量c_row,类型为游标c_job中的一行数据
begin
       open c_job;              --打开游标
         
         loop                            --开始循环
           fetch c_job into c_row;      --读取一行数据
           exit when c_job%notfound;    --数据为空时退出(即:循环完成时)
              if c_row.DEPT_CODE is NULL then   --字段数据的调用方式c_row.DEPT_CODE,其中DEPT_CODE为数据库中的列名
                 IF c_row.DEPT_TYPE = 1 then
                      v_temp := 0;
                      select Max(DEPT_CODE)+1 into v_part_id from  PUB_DEPART_INFO WHERE DEPT_TYPE = '1';
                                        
                      update PUB_DEPART_INFO set DEPT_CODE = v_part_id
                      where DEPT_ID = c_row.DEPT_ID;

                  ELSE
                      v_temp := v_temp + 1;
                      IF v_temp < 10 THEN
                           update PUB_DEPART_INFO set DEPT_CODE = (v_part_id || '0000' || v_temp)
                           where DEPT_ID = c_row.DEPT_ID;
                      ELSE
                           update PUB_DEPART_INFO set DEPT_CODE = (v_part_id || '000' || v_temp)
                           where DEPT_ID = c_row.DEPT_ID;
                      END IF;
                   END IF;
              end if;
         end loop;                      --结束循环
      close c_job;                       --关闭游标
end;

 

你可能感兴趣的:(Oracle游标示例)