下面就是例子程式
--明細表列印予處理 通用報表：
procedure mx_print_common(pd_id in mx_pd_syn.pd_id%type,
p_pd_mxb_id in mx_pd_mxb_syn.p_mxb_id%type,
p_dept_no in sc_mxk.dept_code%type,
p1 sc_bz_syn.bz_code%type,
p2 sc_cjjc_syn.cjjc_code%type,
p3 sc_mxk.warehouse_num%type)
issql2 varchar2(500); --儲存查詢語句
sql3 varchar2(500); --儲存查詢條件
str1 sc_print_syn.a%type; --儲存車間程序
str2 sc_print_syn.b%type; --儲存班組（工藝、工序）程序
s_ip sc_print_syn.ip%type;
type cursor_type is ref cursor;
c1 cursor_type;
type record_type is record(
pbom_id sc_mxk.pbom_id%type
);r_c1 record_type;
/*注意上面紅色的兩行和藍色的兩行
紅色的兩行定義乙個游標
藍色的兩行定義乙個游標中將要返回的資料的資料結構
*/cursor c2(p_pbom_id sc_mxk.pbom_id%type) is
select a.dd_count,b.gx_name,c.bz_name,d.cjjc_name
from sc_p_gx_syn a,sc_gx_syn b,sc_bz_syn c,sc_cjjc_syn d
where pbom_id = p_pbom_id
and a.gx_code=b.gx_code(+) and b.dept_code=p_dept_no
and a.bz_code=c.bz_code(+) and b.dept_code=p_dept_no
and a.cjjc_code=d.cjjc_code(+) and b.dept_code=p_dept_no;
r_c2 c2%rowtype;
begin
s_ip :=sys_context('userenv','ip_address');
delete from sc_print_syn where ip=s_ip and p_id=pd_id;
commit;
--下面開始構造查詢語句
sql2:='select distinct a.pbom_id from sc_mxk a';
sql3:=' where a.p_id=' || pd_id || ' and a.dept_code= ''' || p_dept_no || '''';
if p_pd_mxb_id >0 then
sql2:=sql3 || ',mxk c ';
sql3:=sql3 || ' and c.m_mxb_id= ' || p_pd_mxb_id || ' and a.mxb_id = c.mxb_id';
end if;
if p1 is not null then
sql2:=sql2 || ',sc_p_gx_syn b';
sql3:=sql3 || ' and a.pbom_id=b.pbom_id and b.bz_code = ''' || p1 || '''';
end if;
if p2 is not null then
sql2:=sql2 || ',sc_p_gx_syn b';
sql3:=sql3 || ' and a.pbom_id=b.pbom_id and b.cjjc_code = ''' || p2 || '''';
end if;
if p3 is not null then
sql3:=sql3 || ' and a.warehouse_num = ''' || p3 || '''';
end if;
sql2:=sql2 || sql3;
--開啟動態游標，再往下就都一樣了
open c1 for sql2;
loop
fetch c1 into r_c1;
exit when c1%notfound;
str1:='';
str2:='';
--開啟工序表進行處理
open c2(r_c1.pbom_id);
loop
fetch c2 into r_c2;
exit when c2%notfound; --沒有記錄退出
if r_c2.cjjc_name is not null then
str1 :=str1 || to_char(r_c2.cjjc_name);
end if;
if r_c2.bz_name is not null then
str2 := str2 || r_c2.bz_name || to_char(r_c2.dd_count);
elsif r_c2.gx_name is not null then
str2 := str2 || to_char(r_c2.gx_name) || to_char(r_c2.dd_count);
end if;
end loop;
close c2;
insert into sc_print_syn(a,b,ip,p_id,r_id)
values(str1,str2,s_ip,pd_id,r_c1.pbom_id);
commit;
end loop;
close c1;
end mx_print_common;
當然，實現的方法一定很多，甚至可以用隱式游標。但是隱式游標中用動態查詢語句也要費一些周折的。
oracle動態游標的簡單實現方法
下面就是例子程式 明細表列印予處理 通用報表 procedure mx print common pd id in mx pd syn.pd id type,p pd mxb id in mx pd mxb syn.p mxb id type,p dept no in sc mxk.dept cod...
Oracle 動態游標的用法
oracle動態游標的簡單實現方法 下面就是例子程式 明細表列印予處理 通用報表 procedure mx print common pd id in mx pd syn.pd id type,p pd mxb id in mx pd mxb syn.p mxb id type,p dept no ...
動態游標的寫法
在變數宣告部分定義的游標是靜態的，不能在程式執行過程中修改。雖然可以通過引數傳遞來取得不同的資料，但還是有很大的侷限性。通過採用動態游標，可以在程式執行階段隨時生成乙個查詢語句作為游標。要使用動態游標需要先定義乙個游標型別，然後宣告乙個游標變數，游標對應的查詢語句可以在程式的執行過程中動態地說明。定...