文章內(nèi)容

Oracle帶游標(biāo)的存儲過程在plus中的調(diào)用實(shí)例

發(fā)布時間: 2012/9/5 17:08:13

之前在帖子 http://www.linuxidc.com/Linux/2012-07/65117.htm 里回答了一些網(wǎng)友的關(guān)于怎么穿件一個返回記錄集合的存儲過程。想必很多網(wǎng)友已經(jīng)很明白了，這里就不多講了。

怎么調(diào)用含游標(biāo)的存儲過程在sqlplus

Oracle怎么執(zhí)行帶游標(biāo)的過程？-

給你一個例子

--游標(biāo)使用（游標(biāo)其實(shí)是一個放入內(nèi)存臨時表）
declare
   money cms3_simcard.card_fee%type :=0; --定義與表字段相同類型
   cursor mycursor is --定義游標(biāo)
          select * from cms3_simcard
          where return_flag = 1 and msisdn like '138%';
   my_record mycursor%rowtype; --定義游標(biāo)記錄類型
   Counter int :=0;

begin
   open mycursor; --打開游標(biāo)
   if mycursor%isopen then --判斷打開成功
   loop --循環(huán)獲取記錄集
     fetch mycursor into my_record; --獲取游標(biāo)中的記錄
         if mycursor%found then --游標(biāo)的found屬性判斷是否有記錄
            dbms_output.put_line(my_record.card_fee);
         else
            exit;
         end if;
   end loop;
   else
     dbms_output.put_line('游標(biāo)沒有打開');
   end if;
close mycursor;
end;
如果你要問我程序里怎么調(diào)用那你就不要問了因?yàn)槟莻€太多知道了很少有人問到。廢話不多說上實(shí)例了

首先看下t1的表結(jié)構(gòu)

SQL> desc T1
名稱                                      是否為空? 類型
----------------------------------------- -------- ---------------------

D                                         NOT NULL DATE
A                                                  NUMBER(38)
B                                                  NUMBER(38)
C                                                  NUMBER(38)
看下T1的表里的數(shù)據(jù)情況

SQL> select * from t1;

D                       A          B          C
-------------- ---------- ---------- ----------
12-3月 -11            102         21         15
14-3月 -11            100         58         73
15-3月 -11            105                    87
和上一個帖子一樣首先創(chuàng)建一個包先

SQL> create or replace package pkg_package
2 as
3      type type_cursor is ref cursor;
4      type type_record is record
5      (
6          test01 DATE,
7          test02 NUMBER(38),
8          test03 NUMBER(38) ,
9          test04 NUMBER(38)
10      );
11 end;
12 /

程序包已創(chuàng)建。
創(chuàng)建一個帶游標(biāo)的的存儲過程也就是一個返回記錄集合的存儲過程

SQL> create or replace procedure p_temp_procedure
2 (
3      cur_out_arg out pkg_package.type_cursor
4 )
5 is
6 begin
7      open cur_out_arg for select * from T1;
8 end;
9 /

過程已創(chuàng)建。
該有的數(shù)據(jù)都有了，接著重點(diǎn)來了。調(diào)用存儲過程返回記錄集合

SQL> declare
2      cur_out_arg pkg_package.type_cursor;
3      rec_arg pkg_package.type_record;
4 begin
5      dbms_output.put_line('------------------------');
6      p_temp_procedure(cur_out_arg);
7      loop
8          fetch cur_out_arg into rec_arg;
9         exit when cur_out_arg%notfound;
10         dbms_output.put_line(rec_arg.test01||' '||rec_arg.test02||' '||rec_a
rg.test03||''||rec_arg.test04);
11      end loop;
12 end;
13 /
------------------------
12-3月 -11 102 2115
14-3月 -11 100 5873
15-3月 -11 105 87

PL/SQL 過程已成功完成。

SQL>