Oracle开发包

建立包规范

create or replace package emp_package is
g_deptno number（3）:=30;
procedure add_employee（eno number, ename varchar2,sal number,dno number default g_deptno）;
procedure fire_employee（eno number）;
function get_sal（eno number）return number;
end emp_package;---end 后面可以跟定义的名称

建立包体

create or replace package body emp_package is
function validate_deptno（v_deptno number）return boolean is ----validate_deptno
v_temp int;
begin
select 1 into v_temp from dept where deptno=v_deptno;
return true;
exception
when no_data_found then return false;
end validate_deptno;
procedure add_employee（eno number, ename varchar2,sal number,dno number default g_deptno）is---add_employee
begin
if validate_deptno（dno）then
insert into emp（empno,ename,sal,deptno）values（eno,ename,sal,dno）;
else
RAISE_ApPLICATION_ERROR（-20000,"不存在该部门"）;
end if;
exception
when dup_val_on_index then RAISE_APpLICATION_ERROR（-20011,"该雇员已存在"）;
end add_employee;
procedure fire_employee（eno number）is --------fire_employee
begin
delete from emp where empno=eno;
if sql%notfound then
RAISE_APPLICATION_ERROR（-20012,"该雇员不存在"）;
end if;
end fire_employee;
function get_sal（eno number）return number is ---get_sal
v_sal emp.sal%type;<pre name="code" class="sql">create or replace package body emp_package is
procedure add_employee（eno numberk,ename varchar2,salary number,dno number default g_deptno）is
begin
if validate_deptno（dno）then
insert into emp（empno,ename,sal,deptno）values（eno,ename,salary,dno）;
else
raise_application_error（-20010,"不存在该部门"）;
end if;
exception
when dup_val_on_index then
raise_application_error（-20011,"该雇员已存在"）;
end;

begin select sal into v_sal from emp where empno=eno; return v_sal;exception when no_data_found then RAISE_ApPLICATION_ERROR（-20012,"该雇员不存在"）;end get_sal;end emp_package;

调用包组件

1.在同一个包内调用

create or replace package body emp_package is<pre name="code" class="sql">

procedure add_employee（eno numberk,ename varchar2,salary number,dno number default g_deptno）isbegin if validate_deptno（dno）then insert into emp（empno,ename,sal,deptno）values（eno,ename,salary,dno）; else raise_application_error（-20010,"不存在该部门"）; end if;exception when dup_val_on_index then raise_application_error（-20011,"该雇员已存在"）;end;

2.调用公用变量

declare
begin
emp_package.g_deptno:=21;
end;

3.调用公用过程

declare
begin
emp_package.add_employee（1212,"yang",2000,10）;------部门不给值会报错
emp_package.add_employee（2121,"tender",2000,20）;
end;

4.调用公用函数

declare
salary number;
begin
salary:=emp_package.get_sal（7788）;
dbms_output.put_line（salary）;
end;

----当使用其他用户身份调用公用组件时，必须在组件名前加用户名和包名作为前缀
----SCOTT.EMP_PACKAGE.。。。。

----当调用远程数据库包的公用组件是，在组件名前加包名作为前缀在组件名后需要带有数据库链名作为后缀
----EMP_PACKAGE.ADD_EMPLOYEE@TENDER（1111,"SCOTT",1233,10）
----查看源代码
----select text from user_source where name="emp_package"and type="package"

Oracle 集合运算解决SQLite3插入数据很慢的问题相关资讯 Oracle数据库基础教程

在Oracle数据库中插入含有&符号的（03/06/2013 09:20:14）
Oracle 执行计划更改导致数据加工（02/13/2013 14:45:04）
判断Oracle Sequence是否存在（02/13/2013 14:32:26）

Oracle数据库中无法对数据表进行（02/26/2013 14:24:58）
Oracle 在同一台主机上建立用户管（02/13/2013 14:40:58）
Oracle em 无法启动,报not found错（02/13/2013 14:29:48）

本文评论查看全部评论（0）