plsql- 包

最新推荐文章于 2024-08-21 08:38:16 发布

转载最新推荐文章于 2024-08-21 08:38:16 发布 · 583 阅读

文章标签：

#SQL

SQL 专栏收录该内容

41 篇文章

订阅专栏

本文详细介绍了如何在Oracle数据库中创建存储过程和包，包括创建包头、包体及验证调用包内函数的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

建立包头
create or replace package PK87 is
Function F1 (NO NUMBER) return NUMBER;
Function F1 (NO EMP.ENAME%TYPE) return NUMBER;
PROCEDURE P1(V_NO NUMBER);
end PK87;
/

建立包体
create or replace package body PK87 is
-- Function and procedure implementations
FUNCTION F1
(NO IN NUMBER)
RETURN NUMBER
IS
v_salary emp.sal%TYPE :=0;
BEGIN
SELECT sal INTO v_salary FROM emp WHERE empNO = NO;
RETURN v_salary;
END F1;
FUNCTION F1
(NO EMP.ENAME%TYPE)
RETURN NUMBER
IS
v_salary emp.sal%TYPE :=0;
BEGIN
SELECT sal INTO v_salary FROM emp WHERE eNAME = NO;
RETURN v_salary;
END F1;
procedure P1(V_NO in NUMBER)
is
begin
UPDATE EMP SET SAL=SAL+1 WHERE EMPNO=V_NO;
COMMIT;
end P1;
end PK87;
/

验证和调用包内函数
SELECT TEXT FROM USER_SOURCE WHERE NAME='PK87'; --查看原程序
Desc pk87 --描述包结构
SELECT PK87.F1(7900),PK87.F1('KING') FROM DUAL; --调用包内的函数

DECLARE
V1 EMP.SAL%TYPE;
V2 EMP.ENAME%TYPE;
BEGIN
V1:=PK87.F1(7900); --在赋值语句中调用包内的函数
V2:=PK87.F1('KING');
pk87.P1(7902);
DBMS_OUTPUT.PUT_LINE(V1);
DBMS_OUTPUT.PUT_LINE(V2);
END;
/