PLSQL实现分页查询

--集合实现游标查询

CREATE OR REPLACE PACKAGE emppkg IS

 

  TYPE t_record IS RECORD(

       rn INT,

       empno emp.empno%TYPE,

       ename emp.ename%TYPE,

       sal emp.sal%TYPE,

       deptno emp.deptno%TYPE);

  TYPE emplist IS TABLE OF t_record;--定义返回结果的记录集合类型

  --定义实现分页显示的过程

  PROCEDURE sp_page(

            p_page_size IN OUT INT,--每页输出显示的记录数

            p_cur_page_no IN OUT INT,--当前页码

            p_outcollection OUT emplist--接收查询返回结果

            );

END emppkg;

 

/

CREATE OR REPLACE PACKAGE BODY emppkg IS

 

  PROCEDURE sp_page(

            p_page_size IN OUT INT,--每页输出记录数

            p_cur_page_no IN OUT INT,--当前页码

            p_outcollection OUT emplist--接收查询返回值

            )

    IS

      v_start_rownum  NUMBER;

      v_end_rownum    NUMBER;

      v_total_records NUMBER;

      v_total_pages   NUMBER;

      indexvalue      BINARY_INTEGER :=1;

    BEGIN

      --查询记录总数

      SELECT COUNT(*) INTO v_total_records FROM emp;