全面解析Oracle Procedure 基本语法(2)-木庄网络博客

演示创建带IN OUT参数的过程

create or replace procedure swap(p1 in out number,p2 in out number) is v_temp number; begin v_temp:=p1; p1:=p2; p2:=v_temp; end;

调用带IN OUT参数的过程：

declare num1 number:=100; num2 number:=200; begin swap(num1,num2); dbms_output.put_line('num1= '||num1); dbms_output.put_line('num2= '||num2); end;

示例4：将过程的执行权限授予其他用户

GRANT EXECUTE ON find_emp TO scott; GRANT EXECUTE ON swap TO PUBLIC;

将find_emp过程的执行权限授予给用户scott，将执行swap过程的权限授予所有数据库用户。

删除过程语法：

DROP PROCEDURE procudure_name;

2、函数定义函数的语法如下：

CREATE [OR REPLACE] FUNCTION function_name [(parameter_list)] RETURN datatype {IS|AS} [local_declarations] BEGIN executable_statements [EXCEPTION exception_handlers] END [function_name];

其中：function_name是函数的名称。

parameter_list是参数列表。

local_declarations是局部声明。

executable_statements是可执行语句。

exception_handlers是异常处理程序。

使用函数时注意：形式参数必须只使用数据库类型，不得使用PL/SQL类型。函数的返回类型也必须是数据库类型。函数不能单独执行，只能通过SQL语句或PL/SQL程序块来调用。

示例5：

演示如何创建函数

create or replace function fun_hello return varchar2 is begin return '朋友，您好'; end;

调用函数：

select fun_hello from dual;

函数的授权：同过和的授权一样具体请看示例4。

删除函数：

DROP FUNCTION function_name

过程和函数的差异过程函数作为PL/SQL语句执行作为表达式的一部分调用在规范中不包含RETURN子句必须在规范中包含RETURN子句不返回任何值必须返回单个值可以包含RETURN语句，但是与函数不同，它不能用于返回值必须包含至少一条RETURN语句

3、程序包创建包规范的语法：

CREATE [OR REPLACE] PACKAGE package_name IS|AS [Public type and item declarations] [Subprogram specifications] END [package_name];

其中：package_name是包的名称。

Public type and item declarations是声明类型、常量、变量、异常和游标等。 Subprogram specifications声明PL/SQL子程序。

示例6：

演示创建程序包规范

create or replace package pack_op is procedure pro_print_ename(id number); procedure pro_print_sal(id number); function fun_re_date(id number) return date; end;

创建包主体的语法：

CREATE [OR REPLACE] PACKAGE BODY package_name IS|AS [Public type and item declarations] [Subprogram bodies] [BEGIN Initialization_statements] END [package_name];

其中：package_name是包的名称。

Public type and item declarations是声明类型、常量、变量、异常和游标等。

Subprogram bodies是定义公共和私有PL/SQL子程序。

示例7：演示创建程序包主体

create or replace package body pack_op is procedure pro_print_ename(id number) is name emp.ename%type; begin select ename into name from emp where empno=id; dbms_output.put_line('职员姓名：'||name); end pro_print_ename; procedure pro_print_sal(id number) is salary emp.sal%type; begin select sal into salary from emp where empno=id; dbms_output.put_line('职员工资：'||salary); end pro_print_sal; function fun_re_date(id number) return date is bedate emp.hiredate%type; begin select hiredate into bedate from emp where empno=id; return bedate; end fun_re_date; end pack_op;

示例8：调用程序包中创建的过程和函数

exec pack_op.pro_print_ename(7900); exec pack_op.pro_print_sal(7900); select pack_op.fun_re_date(7900) from dual;

示例9：演示程序包中的游标创建包规范

create or replace package pack_emp is cursor cur_emp return emp%rowtype; procedure pro_cur; end pack_emp;

创建包主体

create or replace package body pack_emp is cursor cur_emp return emp%rowtype is select * from emp; procedure pro_cur is rec_emp emp%rowtype; begin open cur_emp; loop fetch cur_emp into rec_emp; exit when cur_emp%notfound; if rec_emp.sal<1000 then dbms_output.put_line('员工工资：'||rec_emp.sal||'，需加倍努力争取提高工资'); elsif rec_emp.sal>=1000 and rec_emp.sal<2000 then dbms_output.put_line('员工工资：'||rec_emp.sal||'，工资一般，争取搞个部门经理做做'); else dbms_output.put_line('员工工资：'||rec_emp.sal||'，工资不错，争取搞个总经理做做'); end if; end loop; end pro_cur; end pack_emp;

调用程序包中的过程以调用程序包中的游标

exec pack_emp.pro_cur;

示例10：存储过程返回游标的子程序包(此程序包返回r_cur游标)

CREATE OR REPLACE package SCOTT.pk_wt is type mytype is ref cursor; procedure p_wt(mycs out mytype); end;
CREATE OR REPLACE package BODY SCOTT.pk_wt is procedure p_wt(mycs out mytype) is r_cur mytype; begin open r_cur for select * from emp; mycs:=r_cur; end p_wt; end pk_wt;

查询有关过程、函数和程序包的信息：

USER_OBJECTS数据字典视图 column object_name format a18 select object_name,object_type from user_objects where object_type in ('PROCEDURE','FUNCTION','PACKAGE','PACKAGE BODY');

以上所述是小编给大家介绍的Oracle Procedure知识，希望对大家有所帮助，如果大家有任何疑问请给我留言，小编会及时回复大家的。在此也非常感谢大家对网站的支持！

标签：Oracle

返回前面的内容