oracle存储过程的测试调用,如何测试oracle通用存储过程 - Oracle / 开发

SQL code:

CREATE OR REPLACE PROCEDURE p_page (

p_sqlcount IN VARCHAR2, -- 记录数sql语句

p_sql IN VARCHAR2, -- 结果集sql语句

p_startpage IN INT, --起始页号

p_pagenum IN INT, --每页记录数

r_count OUT INT, --总记录数

r_cursor OUT sys_refcursor -- 结果集

)

IS

v_start INT;

v_end INT;

v_sql VARCHAR2 (2000);

BEGIN

v_start := (p_startpage - 1) * p_pagenum + 1;

v_end := v_start + p_pagenum - 1;

EXECUTE IMMEDIATE p_sqlcount

INTO r_count;

v_sql :=

'SELECT * '

|| ' from (select t1.*, ROWNUM r '

|| ' from ('

|| p_sql

|| ' ) t1 where rownum <='

|| TO_CHAR (v_end)

|| ') t2 where r >='

|| TO_CHAR (v_start);

OPEN r_cursor FOR v_sql;

EXCEPTION

WHEN OTHERS

THEN

RAISE;

END p_page;

/

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/wzy0623/archive/2007/08/14/1742788.aspx

在pl/sql中测试该存储过程：

参数输入如下：

p_sqlcount select * from jtglpt_t_dm_b

p_sql select * from jtglpt_t_dm_b