Oracle存储过程

Oracle存储过程
存储过程不仅可以简化客户端应用程序的开发和维护,而且还可以提高应用程序的运行性能。
语法格式如下:
create or replace PROCEDURE procedure_name
(argument1 in datatype1,argument2 out datatype2,argument3 in out datatype3)
is
  可以在这里定义变量
  begin
 
  end;
执行存储过程的语法格式:
无参数的存储过程
===========================================
eg: create or replace procedure pro_outtime
IS
BEGIN
    dbms_output.put_line(systimestamp);
END;
执行: exec pro_outtime;
============================================
只有输入参数的存储过程,in 可以省略。
============================================
eg: create or replace procedure pro_addemployee
(eno NUMBER,empname VARCHAR2,sal NUMBER,job VARCHAR2 default 'CLERK',dno NUMBER)
is
e_integrity EXCEPTION;
pragma exception_init(e_integrity,-2291);
begin
insert into emp(empno,ename,sal,job,deptno) values (eno,empname,sal,job,dno);
EXCEPTION
  when dup_val_on_index then
       raise_application_error(-20000,'雇员号不能重复');
  when e_integrity then
       raise_application_error(-20001,'部门号不存在');
end;
    执行: exec pro_addemployee(2222,'tongjm',3456,'admin',10)      
=============================================
带有out参数的存储过程
=============================================
eg: create or replace procedure proc_queryemployee
     (eno number,empname out varchar2,empsal out number)
    is
begin
  select ename,sal into empname,empsal from emp where empno=eno;
end proc_queryemployee;
    执行:SQL> var e varchar2(50);
SQL> var s number;
SQL> exec proc_queryemployee(7788,:e,:s)
=============================================
带有in out参数的存储过程
=============================================
eg:  create or replace procedure proc_testinout(var1 in out number,var2 in out number) is
v1 number;
v2 number;
begin
  v1:= var1/var2;
  v2:=mod(var1,var2);
  var1:=v1;
  var2:=v2;
end proc_testinout;
执行: SQL> var n1 number;
SQL> var n2 number;
SQL> exec :n1:=15;
SQL> exec :n2:=10;
      SQL> exec proc_testinout(:n1,:n2)
=============================================
为参数传递变量和数据
=============================================
位置传递:  exec add_dept(50,'sales','new york');
           exec add_dept(60);
           exec add_dept(70,'admin');
名称传递:  exec add_dept(dname=>'sales',dno=>50);
组合传递:  exec add_dept(60,dname=>'sales');
==============================================
如何查看存储过程源代码
select text from user_source where name='存储过程名';
===============================================
删除存储过程
drop procedure 存储过程名;