Oracle 笔记，八、PL/SQL 高级应用
SET SERVEROUTPUT ON;DECLARE
CURSOR cur IS
SELECT * FROM books;
myrecord books%ROWTYPE;
BEGIN
OPEN cur;
LOOP
FETCH cur INTO books;
EXIT WHEN cur%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(books.id || ' ' || books.name);
END LOOP;
CLOSE cur;
END;
1.1、带参数的显式游标：参数不需指定长度或者精度。
1.2、FOR 循环游标：采用遍历方式，自动打开、提取和关闭游标。（能否利用 %ROWCOUNT 获得游标提取的行数？）
DECLARE/* 定义带参数游标 */
CURSOR cur_para(id varchar2) IS
SELECT books_name FROM books WHERE books_id = id;
BGEIN
/* 调用带参数游标，并以 FOR 循环方式处理 */
FOR cur IN cur_para('0001') LOOP
DBMS_OUTPUT.PUT_LINE(cur.books_id || ' ' || cur.books_id);
END LOOP;
END;
1.3、使用显示游标删除或更新记录
定义时：需使用 SELECT ... FOR UPDATE 语句表示事物的锁定；
执行时：需使用 WHERE CURRENT OF curXXX 子句指定游标的当前行。
/* 定义部分 */
CURSOR cur IS
SELECT name FROM deptment FOR UPDATE;
....
/* 执行部分 */
UPDATE deptment SET name=name || '_tt' WHERE CURRENT OF cur;
2、隐式游标
不需声明，打开和关闭的游标。PL/SQL 为所有的 SQL 数据操纵语句隐式声明游标，它是不能直接命名和控制。
BEGINFROM cur IN (SELECT name FROM deptment) LOOP
DBMS_OUTPUT.PUT_LINE(cur.books_id || ' ' || cur.books_id);
END LOOP;
END;
ps.
匿名块：每次执行时都需要被编译，并且无法存储到数据库中，别的 PL/SQL 块也无法调用它。
命名块：存储在数据库中，属于数据库对象。
排错：SHOW ERRORS PROCEDURE/FUNCTION/PACKAGE obj_name;
CREATE OR REPLACE PROCEDURE test (value IN varchar2, value2 OUT NUMBER)/* 参数，不需指定长度或精度 */
IS
/* 局部变量，省略 DECLARE 关键字，需有长度 */
identity NUMBER;
BEGIN
SELECT ITEMRATE INTO identity
FROM itemFile
WHERE itemcode = value;
IF identity < 200 THEN
value2 := 200;
ELSE
value2 :=50;
END IF;
END;
● 匿名块执行过程
DECLAREtvalue2 NUMBER;
BEGIN
test('i202', tvalue2);
DBMS_OUTPUT.PUT_LINE('value2的值为：' || TO_CHAR(value2));
END;
● 单独执行
EXECUTE myproc('0001');
CREATE OR REPLACE FUNCTION item_price_rage (price NUMBER)/* 参数、指定返回类型 */
RETURN varchar2
AS
/* 定义局部变量 */
min_price NUMBER;
max_price NUMBER;
BEGIN
SELECT MAX(ITEMRATE), MIN(ITEMRATE) INTO max_price, min_price
FROM itemfile;
IF price >= min_price AND price <= max_price THEN
RETURN '输入的单价介于最低价与最高价之间';
ELSE
RETURN '超出范围';
END IF;
END;
● 匿名块执行函数
DECLAREp NUMBER := 300;
MSG varchar2(200);
BEGIN
MSG := item_price_range(p);
DBMS_OUTPUT.PUT_LINE(MSG);
END;
● SELECT查询调用（因为函数必须有返回值）
SELECT myfunction FROM dual;
过程与函数的异同
过程： 作为 PL/SQL 语句执行； 在规范中不包含 RETURN 子句； 不返回任何值（只有输入/输出参数，结果集）； 可以包含 RETURN 语句，但是与函数不同，它不能用于返回值。 函数： 作为表达式的一部分调用； 必须在规范中包含 RETURN 子句； 必须返回单个值； 必须包含至少一条 RETURN 语句。 程序包是一种数据库对象，它是对相关 PL/SQL 类型、子程序、游标、异常、变量和常量的封装。 程序包规范：声明类型、变量、常量、异常、游标和子程序。 程序包主体：用于实现在程序包规范中定义的游标、子程序。 4.1、程序包规范 包含应用程序所需的程序包资源，是与应用程序的接口。
CREATE OR REPLACE PACKAGE pack_meIS
PROCEDURE order_proc (orno varchar2);
FUNCTION order_fun (ornos varchar2) RETURN varchar2;
END pack_me;
*创建 pack_me 包，并声明了子程序 order_proc 和 order_fun，并交由程序包主体实现。
4.2、程序包主体
当程序包规范中指定了子程序和游标时，必须有程序包主体。
CREATE OR REPLACE PACKAGE BODY pack_meAS
/* 实现定义的存储过程 */
PROCEDURE order_proc (orno varchar2)
IS
stst CHAR(1);
BEGIN
SELECT ostatus INTO stat FROM order_master
WHERE orderno = orno;
IF stat = 'p' THEN
DBMS_OUTPUT.PUT_LINE('暂挂的订单');
ELSE
DBMS_OUTPUT.PUT_LINE('已完成的订单');
END IF;
END order_proc;
/* 实现定义的函数 */
FUNCTION order_fun(ornos varchar2) RETURN varchar2
IS
icode varchar2(5);
ocode varchar2(5);
qtyord NUMBER;
qtydeld NUMBER;
BEGIN
SELECT qty_ord, qty_deld, itemcode, ordernc INTO qtyord, qtydeld, icode, ocode
FROM order_detail
WHERE orderno = ornos;
IF qtyord < qtydeld THEN
RETURN ocode;
ELSE
RETURN icode;
END IF;
END order_fun;
END pack_me;
● 要执行 pack_me包中的 order_proc过程，输入
EXECUTE pack_me.order_proc('o002');
● 要执行包中预定义的函数
DECLAREmsg varchar2(10);
BEGIN
msg := pack_me.order_fun('o002');
DBMS_OUTPUT.PUT_LINE('值是 ' || msg);
END;
4.3、程序包的优点
程序包将相关的功能在逻辑上组织在一起，模块化，信息隐藏和更好的性能。
ps.数据字典视图 USER_SOURCE 包含存储过程的代码文本。
4.4、内置程序包
STANDARD 和 DBMS_STANDARD：定义和扩展 PL/SQL 语言环境
DBMS_LOB：提供对 Oracle LOB 数据类型进行操作的功能
DBMS_LOCK：用户定义的锁
DBMS_OUTPUT：处理 PL/SQL 块和子程序输出调试信息
DBMS_SESSION：提供 ALTER SESSION 命令的 PL/SQL 等效功能
DBMS_ROWID：获得 ROWID 的详细信息
DBMS_RANDOM：提供随机数生成器
DBMS_SQL：允许用户使用动态 SQL，构造和执行任意 DML 或 DDL 语句
DBMS_JOB：提交和管理在数据库中执行的定时任务
DBMS_XMLDOM：用 DOM 模型读写 XML 类型的数据
DBMS_XMLPARSER：XML 解析，处理 XML 文档内容和结构
DBMS_XMLGEN：将 SQL 查询结果转换为规范的 XML 格式
DBMS_XMLQUERY：提供将数据转换为 XML 类型的功能
DBMS_XSLPROCESSOR：提供 XSLT 功能，转换 XML 文档
UTL_FILE：用 PL/SQL 程序来读写操作系统文本文件
- 上一篇 »web安全攻防笔记
- 下一篇 »PL/SQL实现JAVA中的split，方法的小例子