前言 在ORACLE数据库实际应用过程中,经常把业务处理逻辑的放在存储过程,客户端通过ADO进行调用。有些业务逻辑处理量大并且复杂,使客户端调用存储过程后,长时间没有反应,也不知存储过程运行状态,本文讲述如何在ORACLE通过任务和管道的应用,异步调用存储过程的方法。 2. 基本原理 1.使用DBMS_JOB包将主处理存储过程作为任务提交到任务队列中; 2.主处理存储过程在运行过程中通过DBMS_PipE包将处理情况放在管道中; 3.监控存储过程读取管道,从而了解处理情况; 4.本文没有描述双向通信的方式,监控存储过程可以通过管道发送信息给主处理存储过程。 3. 具体实现测试 建立测试环境 3.1. 对数据库的ini进行相关修改,使系统的任务队列功能打开 对于Oracle9I,只需修设定数据库的INI内的"JOB_QUEUE_PROCESSES=非0值",如 "JOB_QUEUE_PROCESSES=10",对于ORACLE8I除设定实例ini文件中的"JOB_QUEUE_PROCESSES=非0值"外,还需设定"job_queue_interval=1"。 3.2. 设用用户权限 由于使用ORACLE中特定的程序包,所以要注重要明文给于用户系统权限。对当前用户(测试用户),赋于以下权力:
EXECUTE DBMS_PIPE EXECUTE DBMS_LOCK EXECUTE DBMS_JOB
3.3. 建立模拟大业务处理存储过程 本存储过程通过循环30次,调用DBMS_LOCK.SLEEP(1)(体眠1秒)和写管道模拟大的处理过程。 具体代码如下:
CREATE OR REPLACE PROCEDURE maXPro
AS n integer;
status NUMBER;
BEGIN
FOR N IN 1..30 LOOP DBMS_PIPE.PURGE('maxpro'); --清除原管道信息
DBMS_PIPE.PACK_MESSAGE(N); --把信息放入缓冲区
status:=DBMS_PIPE.SEND_MESSAGE('maxpro');
DBMS_LOCK.SLEEP(1);
END LOOP;
DBMS_PIPE.PURGE('maxpro'); --清除原管道信息
DBMS_PIPE.PACK_MESSAGE(999999); --把信息放入缓冲区,用999999 表示过程完成 status:=DBMS_PIPE.SEND_MESSAGE('maxpro');
END maxpro;
3.4. 建立读取管道动态了解处理状态的存储过程 以下代码是对于maxpro存储过程的状态进行读取的过程,主要使用读取管道的方法,注重:
status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0);
中的"0"参数是很要害的,说明接受等待时间为0秒,表示,调用时假如没有信息不等待直接返回。 具体代码如下:
CREATE OR REPLACE PROCEDURE readmaxpro AS n integer; status integer; begin --接受等待时间为1秒,可以为0,立即调用或 DBMS_PIPE.RECEIVE_MESSAGE('mypipe') 等待100天 status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0); --status为0为成功可以UNPACK_MESSAGE,1为超时没有数据, 2为信息太大,3为内部错误 IF status <> 0 THEN DBMS_OUTPUT.PUT_LINE('管道中现在没有信息返回'); return; END IF; DBMS_PIPE.UNPACK_MESSAGE(n); DBMS_OUTPUT.PUT_LINE('maxpro 的当前进行状态为' n); end;
3.5. -起动模拟大业务处理存储过程为后台进程的存储过程(BEGINMAXPRO) 通过DBMS_JOB.SUBMIT(JOB,'maxpro;',sysdate,NULL,FALSE);使"maxpro"为一个任务,在当前时间(sysdate)后执行,当然假如把sysdate改一具体时间,那就在具体时间执行。 具休代码如下:
CREATE OR REPLACE PROCEDURE beginmaxpro AS JOB BINARY_INTEGER; BEGIN DBMS_JOB.SUBMIT(JOB,'maxpro;',sysdate,NULL,FALSE); DBMS_OUTPUT.PUT_LINE('队列号码JOB=' JOB); COMMIT; end;
4. 代码执行 4.1. 执行过程
在CMD行输入 sqlplus 根据提示登录 设定DBMS_OUTPUT可见 SQL> set serveroutput ON 以下是执行过程和相应的返回信息 SQL> call beginmaxpro(); 队列号码JOB=21 调用完成。 SQL> call readmaxpro(); maxpro 的当前进行状态为14 调用完成。 SQL> call readmaxpro(); maxpro 的当前进行状态为16 调用完成。 SQL> call readmaxpro(); maxpro 的当前进行状态为23 调用完成。 SQL> call readmaxpro(); maxpro 的当前进行状态为999999 调用完成。 SQL> call readmaxpro(); 管道中现在没有信息返回 调用完成。 SQL>
4.2. 执行分析 beginmaxpro(),将主处理存储过程放入队列的过程,执行后存储程序马上返回,maxpro存储过程放在任务队列中,并设定为在当前系统时间执行(马上执行)。 maxpro为主处理存储过程,开始执行模拟大业务处理,处理过程中将处理进度信息写入管道。 readmaxpro();为检查状态存储过程,首先读取信息,假如信息不存在,说明管道内没有信息可读而退出;假如存在信息则读出信息。 本例子可以进行改进,输出不通过DBMS_OUTPUT.PUT_LINE而是用返回值,那么就可以在前端用ADO调用,发布任务,任务过程中从客户端读取进度。代码如下:
CREATE OR REPLACE PROCEDURE readmaxpro(p out intergr) AS n integer; status integer; begin status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0); IF status <> 0 THEN P:=-1; return; END IF; DBMS_PIPE.UNPACK_MESSAGE(p); end;
-
资料引用:http://www.knowsky.com/390269.html
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。