ORACLE游標與異常處理

過程示例

create or replace procedure PROC_TASK_QUERY

is

g_name task_company_stock_list.g_name%type;

code_t task_company_stock_list.code_t%type;

firm_code task_company_stock_list.firm_code%type;

firm_name task_company_stock_list.firm_name%type;

unit_name task_company_stock_list.unit_name%type;

in_qty task_company_stock_list.in_qty%type;

out_qty task_company_stock_list.out_qty%type;

id_d task_company_stock_detail.id%type;

eml_id_d task_company_stock_detail.eml_id%type;

busi_type_d task_company_stock_detail.busi_type%type;

refer_doc_d task_company_stock_detail.refer_doc%type;

pass_gate_time_d task_company_stock_detail.pass_gate_time%type;

trade_name_d task_company_stock_detail.trade_name%type;

name_d task_company_stock_detail.name%type;

move_name_d task_company_stock_detail.move_name%type;

g_qty_d task_company_stock_detail.g_qty%type;

g_name_d task_company_stock_detail.g_name%type;

unit_name_d task_company_stock_detail.unit_name%type;

code_t_d task_company_stock_detail.code_t%type;

g_no_d task_company_stock_detail.g_no%type;

sqlstr long;

moduleno varchar2(100);

userid varchar2(100);

queryp varchar2(10);

insqlmain long;

insqldetail long;

insqldetail2 long;

insqldetail3 long;

startposition number(10);

len number(10);

type sql_array is table of task_schedule_query.sqlstr%type index by binary_integer;

sqlarray sql_array;

lpindex number(10);

delimiter varchar2(10);

type cur is ref cursor ;

sqlcur cur;

incur cur;

indetailcur cur;

begin

insqlmain := '';

insqldetail :='';

insqldetail2 :='';

insqldetail3 :='';

sqlarray(1):='';

sqlarray(2):='';

sqlarray(3):='';

sqlarray(4):='';

open sqlcur for select user_id,moduleno,sqlstr,query_param from task_schedule_query where status=1;

loop

fetch sqlcur into userid,moduleno,sqlstr,queryp;

exit when sqlcur%notfound;

--構造查詢字符串數組開始

delimiter:='~';

startposition:=1;

lpindex:= 1;

loop

select instr(sqlstr,delimiter,startposition ) into len from dual;

--dbms_output.put_line(startposition);

--dbms_output.put_line(len);

if len!=0 then

select substr(sqlstr,startposition,len-startposition) into sqlarray(lpindex) from dual;

else

select substr(sqlstr,startposition) into sqlarray(lpindex) from dual;

--dbms_output.put_line(sqlarray(lpindex));

exit;

end if;

--dbms_output.put_line(sqlarray(lpindex));

startposition:=len+1;

lpindex:=lpindex+1;

end loop;

/*

for i in 1..sqlarray.count

loop

dbms_output.put_line(sqlarray(i));

end loop;

*/

--構造查詢字符串數組結束

insqlmain := sqlarray(1);

insqldetail:=sqlarray(2);

insqldetail2 :=sqlarray(3);

insqldetail3 :=sqlarray(4);

--分模塊執行：企業進出倉庫存查詢開始

IF(moduleno='compStockSearch') THEN

BEGIN

update task_schedule_query set status=2,start_time=sysdate where user_id=userid and moduleno=moduleno;

IF(queryp='1' OR queryp='2') THEN

open incur for insqlmain;

loop

fetch incur into g_name,code_t,firm_code,firm_name,unit_name,in_qty,out_qty;

exit when incur%notfound;

insert into task_company_stock_list(g_name,code_t,firm_code,firm_name,unit_name,in_qty,out_qty,user_id)

values(g_name,code_t,firm_code,firm_name,unit_name,in_qty,out_qty,userid);

end loop;

close incur;

DBMS_OUTPUT.put_line('sqlmain is :'||insqlmain);

END IF;

IF(queryp='2') THEN

open indetailcur for insqldetail;

loop

fetch indetailcur into id_d,eml_id_d,busi_type_d,refer_doc_d,pass_gate_time_d,trade_name_d,name_d,move_name_d,g_qty_d,g_name_d,unit_name_d,code_t_d,g_no_d;

exit when indetailcur%notfound;

insert into task_company_stock_detail(id,eml_id,busi_type,refer_doc,pass_gate_time,trade_name,name,move_name,g_qty,g_name,unit_name,code_t,g_no,user_id)

values(id_d,eml_id_d,busi_type_d,refer_doc_d,pass_gate_time_d,trade_name_d,name_d,move_name_d,g_qty_d,g_name_d,unit_name_d,code_t_d,g_no_d,userid);

end loop;

close indetailcur;

DBMS_OUTPUT.put_line('sqldetail is :'||insqldetail);

END IF;

update task_schedule_query set status=3,end_time=sysdate where user_id=userid and moduleno=moduleno;

--分模塊的異常處理，不影響下一個模塊的處理

EXCEPTION

WHEN OTHERS THEN

update task_schedule_query set status=4 where user_id=userid and moduleno=moduleno;

END;

END IF;

--分模塊執行：企業進出倉庫存查詢結束

end loop;

close sqlcur;

commit;

EXCEPTION

WHEN OTHERS THEN

NULL;

end;

游標的多種循環

create or replace procedure Test

is

cursor mycusor is

select eml_id,owner_code from store_in_head where rownum<10 order by eml_id ;

myrecord mycusor%rowtype;

begin

--顯示游標循環

open mycusor;

loop

fetch mycusor into myrecord.eml_id,myrecord.owner_code;

exit when mycusor%notfound;

DBMS_OUTPUT.put_line(myrecord.eml_id||','||myrecord.owner_code);

end loop;

close mycusor;

--取游標中多少行

open mycusor;

for i in 1..3

loop

fetch mycusor into myrecord.eml_id,myrecord.owner_code;

DBMS_OUTPUT.put_line(myrecord.eml_id||','||myrecord.owner_code);

end loop;

close mycusor;

--特殊for循環

open mycusor;

for mycurecord in mycusor loop

DBMS_OUTPUT.put_line(mycurecord.eml_id||','||mycurecord.owner_code);

end loop;

close mycusor;

--特殊for循環

for myrec in (select eml_id,owner_code from store_in_head where rownum<10 order by eml_id ) loop

DBMS_OUTPUT.put_line(myrec.eml_id||','||myrec.owner_code);

end loop;

end;

帶參數的游標：

create or replace procedure Test

is

cursor mycusor(p_firm_code varchar2) is

select id from store_in_list where firm_code=p_firm_code and rownum<10 order by eml_id ;

myrecord mycusor%rowtype;

begin

--顯示游標循環

open mycusor('4403447904');

loop

fetch mycusor into myrecord.id;

exit when mycusor%notfound;

DBMS_OUTPUT.put_line(myrecord.id);

end loop;

close mycusor;

end;

總結

以上是生活随笔為你收集整理的oracle游标错误,ORACLE游标与错误处理的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。