SQL> create table t_book(bookid varchar2(3),bookname varchar2(50),publish varchar2(50));
 
Table created
 
SQL>
SQL> create or replace procedure sp_add_book(bookid in varchar2, bookname in varchar2,publish in varchar2) is
  2  begin
  3  insert into t_book values(bookid,bookname,publish);
  
 
4  end;
  5  /
 
Procedure created
 
SQL> select * from t_book;
 
BOOKID BOOKNAME                                           PUBLISH
------ -------------------------------------------------- --------------------------------------------------
1      OracleTestForMine                                  ShenZhenPublish

SQL> create or replace procedure sp_get_mytest(id_in in varchar2,name_out out varchar2,salary_out out number,bonus_out out number,job_out out varchar2) is
  2  begin
  3  select name,salary,bonus,job into name_out,salary_out,bonus_out,job_out from mytest where id=id_in;
  4  end;
  5  /
 
Procedure
 
 created

SQL> create or replace package sp_pack_mulityqry as
  2  type p_cursor is ref cursor;
  3  end sp_pack_mulityqry;
  4  /
 
Package created
 

--創建一個遊標類
create or replace package sp_pack_pagebycursor as
type p_cursor is ref cursor;
end sp_pack_pagebycursor;
/
 
--利用存儲過程來實現分頁功能
create or replace procedure fenye(
tablename in varchar2,
curpage in number,
pagerownum in number,
orderflg in varchar2,
totalrownum out number,
totalpagenum out number,
res_cursor out sp_pack_pagebycursor.p_cursor
) is
--定義sql語句變量
v_sql varchar2(1000);
--定義查詢起始下標
v_begin_rownum number:=(curpage-1)*pagerownum+1;
--定義查詢結束下表
v_end_rownum number:=curpage*pagerownum;
--執行
begin
--定義數據庫查詢sql
v_sql:=‘select * from (select t.*,rownum rn from (select * from ‘||tablename||‘ order by salary ‘||orderflg||‘) t where rownum<=‘||v_end_rownum||‘) where rn>=‘||v_begin_rownum;
--關聯遊標和sql
open res_cursor for v_sql;
--查詢總記錄數
v_sql:=‘select count(*) from ‘||tablename;
execute immediate v_sql into totalrownum;
--計算總頁數
if mod(totalrownum,pagerownum)=0 then
totalpagenum:=totalrownum/pagerownum;
else
totalpagenum:=totalrownum/pagerownum+1;
end if;
end;
/

PL/SQL編程—分頁功能（存儲過程）