--1、存储过程创建存储过程的语法:
CREATE [OR
REPLACE]
PROCEDURE procedure_name [(
parameter_list
)] {IS | AS} [local_declarations]
BEGINexecutable_statements[EXCEPTION
exception_handlers]
END [procedure_name];--其中:procedure_name是过程的名称。 parameter_list是参数列表。 local_declarations是局部声明。 executable_statements是可执行语句。 exception_handlers是异常处理程序。
--示例1: 演示创建过程(参数列表中为IN参数赋予一个默认值,不能为OUT、IN OUT参数赋予默认值)
create or replace procedurefind_emp
(
emp_noin number := 7900)asempnamevarchar2(20);begin
selectenameintoempnamefromempwhereempno=emp_no
;
dbms_output.put_line('雇员姓名是'
||empname);
exceptionwhen no_data_found thendbms_output.put_line('雇员编号未找到');endfind_emp;--调用过程:EXECUTE procudure_name(parameters_list);
--也可以在过程里面调用,直接写上procudure_name而不必写EXECUTE。
--示例2:演示创建带OUT参数的过程
create or replace proceduretest
(
value1varchar2, value2 outnumber)is
identity number;begin
selectsalinto
identity
fromempwhereempno=value1
;if identity < 2000 thenvalue2 := 1000;elsevalue2 := 500;end if;end;--调用带OUT参数的过程:
declarevalue2number;begintest('7900', value2);
dbms_output.put_line(value2);end;--示例3:演示创建带IN OUT参数的过程
create or replace procedureswap
(
p1in out number, p2in out number)isv_tempnumber;beginv_temp :=p1;
p1 :=p2;
p2 :=v_temp;end;--调用带IN OUT参数的过程:
declarenum1number := 100;
num2number := 200;beginswap(num1, num2);
dbms_output.put_line('num1='
||num1);
dbms_output.p ut_line('num2='
||num2);end;--示例4:将过程的执行权限授予其他用户
GRANT EXECUTE ON find_emp TOscott;GRANT EXECUTE ON swap TO PUBLIC;--将find_emp过程的执行权限授予给用户scott,将执行swap过程的权限授予所有数据库用户。
--删除过程语法:
DROP PROCEDURE procudure_name;