oracle 一步一步学习存储过程

0l1h71v882

　　一步一步学习存储过程:
　　1.存储过程入门学习：
　　
--创建一个简单的存储过程
create or replace procedure testPro
is
begin
Dbms_Output.put_line('hello word ! this is first produce');
end;
　　
　　2.--创建一个带输入，输出参数的存储过程
create or replace procedure testProInOrOut
(
       a in number,
       z out number
)
is
begin
--将a的值 赋给 z
 z  := a;
 Dbms_Output.put_line('输入值 ： '|| a || '；  输出值   : '||z);
end ;
　　
--测试带有输出参数的存储过程
-- Created on 2011-1-19 by ADMINISTRATOR
declare
  -- Local variables here
  i number;
begin
  -- Test statements here
  testProInOrOut(32,i);
end;
　　
3.
　　--3.创建一个带有逻辑判断的存储过程
create or replace procedure testJudgePro
(
       a in number,
       z out varchar2
)
is
begin
       Dbms_Output.put_line('当前你的等级');
       if a>=90 then
       begin z:= 'A';
       end;
       end if;
       if a<90 then
       begin z:='B';
       end;
       end if;
       if a<80 then
       begin z:='C';
       end;
       end if;
       if a<70 then
       begin z:='D';
       end;
       end if;
       if a<60 then
       begin z:='E';
       end;
       end if;
      Dbms_Output.put_line('当前你的等级是：'||z);
      
end;
　　--存储过程测试：
　　declare
  -- Local variables here
  i varchar2(2);
begin
  -- Test statements here
  testJudgePro(90,i);
end;
　　
4.--建立一个带循环逻辑的存储过程：近似累加函数
create or replace procedure testSum
(
      a in number,
      z out varchar2
)
is
tempResult number(16);
begin
     tempResult:=0;
      Dbms_Output.put_line('当前临时变量 a ： '||a);
     for tempa in 0..a loop
        begin
          tempResult :=tempResult+tempa;
          Dbms_Output.put_line('当前临时变量 ： '||tempResult);
        end;
     end loop;
    
    z := tempResult;
    Dbms_Output.put_line('累加结果为 ： '||z); 
　　end;
　　--测试存数过程
declare
  -- Local variables here
  i varchar2(16);
begin
  -- Test statements here
  testSum(10,i);
end;
　　
　　5.
--建立一个能从数据库中特定表中返回数据的存储过程
create or replace procedure testRebackDb
(
       z out varchar
 )
 is
 tempNum number(16);
 begin
      tempNum:='start--->';
      select count(*) into tempNum from nrmws_region;
     
      z := tempNum;
      Dbms_Output.put_line('系统中一共有 ：'||z||' 个地市！');
      
 end;
　　--测试
　　declare
  -- Local variables here
  i varchar2(16);
begin
  -- Test statements here
  testRebackDb(i);
end;
　　
6.
--建立一个能使用游标的带循环的存储过程:
create or replace procedure testCursor
(
       z out varchar2
)
is
tempRe varchar2(1024);
cursor tempcursor is  select * from nrmws_region nr where nr.parentid= '001';
begin
       tempRe:='start-->';
       for cursorRe in tempcursor loop
           begin
             tempRe :=   tempRe || cursorRe.name || '   ';
             Dbms_Output.put_line('当前地市 :'||cursorRe.name);
            end;
       end loop;
       z :=tempRe;
       Dbms_Output.put_line('结果集 :'||z);
end;
　　--测试
declare
  -- Local variables here
  i varchar2(1024);
begin
  -- Test statements here
  testCursor(i);
end;