[oracle]pl/sql in/out变量的使用和过程中过程的调用

--in/out 类型变量的使用 以及过程中调用过程，获取out类型的返回值

--建一张表books

--简单过程一 插入一条记录 

create table books(bookid number,bookname varchar(50),pubhouse varchar(50)); 
 
--简单过程一 插入一条记录 
create or replace procedure sub_pro1 
(bookid in number,bookname in varchar2,pubhouse in varchar2) is 
begin 
  insert into books values(bookid,bookname,pubhouse); 
end

测试：

  

SQL> exec sub_pro1(1,'wudi','安徽文艺出版社'); 
  
PL/SQL procedure successfully completed 

--简单过程二 由id获取一条记录的的name

create or replace procedure sub_pro2 
(bookid in number,bookname out varchar2) is 
begin 
   select bookname into bookname from books where bookid=bookid; 
end; 
 
--调用过程，并打印出结果 
create or replace procedure sub_pro22 
(bookno in number) is 
--接受out变量的内容 
v_bookname varchar(50); 
begin  
  --直接调用过程 
  sub_pro2(bookno,v_bookname); 
  --如果成功调用，那么变量应该是有值的 
  dbms_output.put_line(bookno||' 的图书为'||v_bookname); 
end; 

测试：

 

SQL> exec sub_pro22(1); 
  
1 的图书为wudi 

 

--简单过程三 得到一个用户集合的结果集，取出同一个出版社的书的id和name

 

 

books表中插入这么几条数据 
    BOOKID BOOKNAME                                           PUBHOUSE 
---------- -------------------------------------------------- -------------------------------------------------- 
         1 wudi                                               安徽文艺出版社 
         2 haorn                                              10 
         3 angle                                              20 
         4 anglele                                            10 

--1 创建一个包，定义一个cursor为test_cursor 
create or replace package testpackage as  
type test_cursor is ref cursor; 
end testpackage; 
--2 创建过程 
create or replace procedure sub_pro3 
(l_pubhouse in varchar2,l_cursor out testpackage.test_cursor) is 
begin 
  open l_cursor for select bookid,bookname from books where pubhouse=l_pubhouse; 
end; 
--3 调用过程 打印与游标 
create or replace procedure sub_pro33(l_pubhouse in varchar2) is 
books_cursor testpackage.test_cursor; 
v_bookid books.bookid%type; 
v_bookname books.bookname%type; 
begin 
  sub_pro3(l_pubhouse,books_cursor); 
  loop  
    fetch books_cursor into v_bookid,v_bookname; 
    --not found要连在一起写 
    exit when books_cursor%notfound; 
    dbms_output.put_line('图书ID是:'||v_bookid||'  名称是:'||v_bookname); 
  end loop; 
end; 

看起来还能用：

SQL> exec sub_pro33('10'); 
  
图书ID是:2  名称是:haorn 
图书ID是:4  名称是:anglele 
  
PL/SQL procedure successfully completed 

注意!1 过程中的调用只要直接写过程名就好了，不要什么调用关键字。
2 对于out类型的值直接声明一个相同类型的变量来接收就好了。
3 为了好测试才用另一个过程来显示结果的，以后会通过jdbc来调用过程，获取函数。

 

本文出自 “orangleliu笔记本” 博客，请务必保留此出处http://blog.csdn.net/orangleliu/article/details/38309425