Oracle基础学习五 : PACKAGE(包) 新建包 加入项 修改项 删除项 访问项 查询包 删除包

01. 新建包
02. 加入/修改项
03. 删除项
04. 访问项
05. 查询包
06. 删除包

==============

01. 新建包
------------
进行创建:
SQL> CREATE PACKAGE ADDFUN_PKG
2 IS
3 END ADDFUN_PKG;
4 /

程序包已创建。

进行包对象查看:
SQL> SELECT SUBSTR(OBJECT_NAME,0,10),STATUS,OBJECT_TYPE
2 FROM USER_OBJECTS;

SUBSTR(OBJECT_NAME,0 STATUS OBJECT_TYPE
-------------------- ------- ------------------
ADDFUN_PKG VALID PACKAGE
SP_STUDENT VALID PROCEDURE
STUDENT VALID TABLE
V_STUDENT VALID VIEW

或：

SQL> SELECT SUBSTR(OBJECT_NAME,0,10),STATUS,OBJECT_TYPE
2 FROM USER_OBJECTS
3 WHERE OBJECT_TYPE='PACKAGE';

SUBSTR(OBJECT_NAME,0 STATUS OBJECT_TYPE
-------------------- ------- ------------------
ADDFUN_PKG VALID PACKAGE

02. 加入/修改项
----------------
SQL> CREATE OR REPLACE PACKAGE ADDFUN_PKG
2 AS
3 FUNCTION FN_ADDONE(ANUM NUMBER) RETURN NUMBER;
4 END;
5 /

程序包已创建。

SQL> CREATE OR REPLACE PACKAGE BODY ADDFUN_PKG
2 AS
3
4 FUNCTION FN_ADDONE(ANUM NUMBER) RETURN NUMBER
5 AS
6 BNUM NUMBER;
7 BEGIN
8 BNUM := ANUM + 1;
9 RETURN BNUM ;
10 END FN_ADDONE;
11
12 END ADDFUN_PKG;
13 /

程序包主体已创建。

03. 删除项
------------
需要重新定义包头及包体

需要查询包体：

04. 访问项
------------
SQL> SELECT USER1_ADB.ADDFUN_PKG.FN_ADDONE(2) AS VALUE FROM DUAL;

VALUE
----------
3

05. 查询包
----------
SQL> SELECT TEXT FROM USER_SOURCE
2 WHERE NAME='ADDFUN_PKG'
3 AND TYPE='PACKAGE BODY';

TEXT
----------------------------------------------------------
PACKAGE BODY ADDFUN_PKG
AS

FUNCTION FN_ADDONE(ANUM NUMBER) RETURN NUMBER
AS
BNUM NUMBER;
BEGIN
BNUM := ANUM + 1;
RETURN BNUM ;
END;

TEXT
----------------------------------------------------------
FUNCTION FN_ADDTWO(ANUM NUMBER) RETURN NUMBER
AS
BNUM NUMBER;
BEGIN
BNUM := ANUM + 2;
RETURN BNUM ;
END;

END ADDFUN_PKG;

已选择20行。

或：

SQL> SET LONG 1000
SQL> SET PAGES 1
SQL> SELECT DBMS_METADATA.GET_DDL('PACKAGE','ADDFUN_PKG') FROM DUAL;

06. 删除包
SQL> DROP PACKAGE ADDFUN_PKG;

程序包已丢弃。