下面看下Oracle遊標的簡易用法，具體程式碼如下所示：

create or replace procedure NW_DelYW(iOPERATION_ID number,sUserID   varchar2) is
 sCurDJBH yw_operation_link.djbh%type;
 cursor table_yw(ywid yw_operation.id%type) is
  select * from yw_operation_link t1 where t1.operation_id = ywid;
begin
 for dr in table_yw(iOPERATION_ID) loop
  sCurDJBH := dr.djbh;
  --取得opercationid
  /*  select t1.operation_id
   into sOperationID
   from yw_operation_link t1
  where t1.djbh = sCurDJBH;*/

  --寫日誌
  insert into log_zfywinfo
   (DJBH,DJDL,DJXL,DLMC,XLMC,SLR,SLRID,SQRXM,FWZL,ZFRQ,ZFRID,zfr)
   select distinct sCurDJBH,t4.id,t3.id,t4.name,t3.name,t1.slry,t1.slryid,t1.SQRXM,t1.zl,sysdate,sUserID,(select tt.name from pw_user tt where tt.id=sUserID)
    from yw_operation t1
    join yw_operation_link t2
     on t2.operation_id = t1.ID
    join BUSINESS_TYPE t3
     on t3.id = t1.business_id
    join BUSINESS_CLASS t4
     on t4.id = t3.parent_id
    where t1.ID = dr.operation_id;
exception
 when others then
  rollback;
  dbms_output.put_line(sqlerrm);
end NW_DelYW;

Oracle使用cursor 遊標迴圈新增刪除更新。

知識點擴充套件：

Oracle遊標簡單示例

使用遊標列印員工姓名和薪水

set serveroutput on;
declare
cursor cemp is select ename,sal from emp;
cname emp.ename%type;
csal emp.sal%type;
begin
 open cemp;
 loop
  fetch cemp into cname,csal;
  exit when cemp%notfound;
  dbms_output.put_line(cname || '的薪水是' || csal);
 end loop;
end;
/ 

帶引數的遊標

使用遊標列印某部門號的所有員工姓名

set serveroutput on;
declare 
cursor cemp(cno emp.deptno%type) is select ename from emp where emp.deptno = cno;
cname emp.ename%type;
begin
 open cemp(10);
 loop 
  fetch cemp into cname;
  exit when cemp%notfound;
  dbms_output.put_line(cname);
  
 end loop;
end;
/ 

總結

以上所述是小編給大家介紹的詳解Oracle遊標的簡易用法，希望對大家有所幫助，如果大家有任何疑問請給我留言，小編會及時回覆大家的。在此也非常感謝大家對我們網站的支援！