在oracle中怎么用静态游标,Oracle 静态 动态游标的使用

declare

ida varchar(200);

a varchar(200);

b varchar(200);

c varchar(200);

i number(20);

err number(20) default 0;

type cs is ref cursor return test%rowtype; --定义强类型游标

mycursor cs;  -- 声明动态强类型游标变量

m test%rowtype;

CURSOR mycursor2 is select * from test;

--       test1Cursor Cursor for select * from test;

begin

ida:= '13140';

i := 13139;

-- select gp.rugr_lruname into a from R_T_RUGROUP gp where gp.rugr_id in (select sp.rumesarearugr_id from  R_S_RuMembership sp where sp.saru_id = i and sp.rumes_state = 1);

-- select gp.rugr_lruname into b from R_T_RUGROUP gp where gp.rugr_id in (select sp.rumescityrugr_id from  R_S_RuMembership sp where sp.saru_id = i and sp.rumes_state = 1);

-- select gp.rugr_lruname into c from R_T_RUGROUP gp where gp.rugr_id in (select sp.rumesprovincerugr_id from  R_S_RuMembership sp where sp.saru_id = i and sp.rumes_state = 1);

err:=0;

while i<13144 loop

insertCard(i,'aaaa',err);

if err != 0 then

dbms_output.put_line('inser err'||err||' i='||i);

end if;

if SQL%FOUND then

dbms_output.put_line('ok ok ok ok');

end if;

i:=i+1;

end loop;

commit;

Dbms_Output.put_line('总出错数'||err);

Dbms_output.put_line('区级:'||a);  Dbms_output.put_line('市级:'||b);  Dbms_output.put_line('省级:'||c);

open mycursor for select * from test;

insert into test values(2113,'1111');

loop

fetch mycursor into m;

exit when mycursor%NOTFOUND;

dbms_output.put_line(m.id);

end loop;

for m in mycursor2

loop

dbms_output.put_line(m.id || m.name);

end loop;

/*

lookCard(mycursor);

insert into test values(1112,'1111');

commit;

loop

fetch mycursor into m;

exit when mycursor%NOTFOUND;

dbms_output.put_line(m.id);

end loop;

*/

end;

/

--select * from test ;

/*

create or replace procedure lookCard(

cur out sys_refcursor

)is

begin

open cur for select * from test;

end;

/

*/

--select * from test;

/*

create or replace  procedure insertCard(

id in number,

con in varchar,

err in out varchar

)is

begin

insert into test values(id,con);

err:=0;

EXCEPTION

WHEN dup_val_on_index THEN

err:=err+1;

dbms_output.put_line('出错');

end;

/

*/

/*

create table test (

id number(20),

name varchar2(200)

)

alter table test add constraint aa unique(id);

*/