--創建保存查詢結果集的 cursor
create or replace package pkg_query as type cur_query is ref cursor; end pkg_query;
--插件存儲過程
create or replace procedure Pagers(
v_cur out pkg_query.cur_query,--查詢結果
numCount out number,--總記錄數
page in number,--數據頁數，從1開始
pageSize in number,--每頁大小
tableName varchar2,--表名
strWhere varchar2,--where條件
Orderby varchar2
) is
strSql varchar2(2000);--獲取數據的sql語句
pageCount number;--該條件下記錄頁數
startIndex number;--開始記錄
endIndex number;--結束記錄
begin
strSql:='select count(*) from '||tableName;
if strWhere is not null or strWhere<>'' then
strSql:=strSql||' where '||strWhere;
end if;
EXECUTE IMMEDIATE strSql INTO numCount;
--計算數據記錄開始和結束
pageCount:=numCount/pageSize+1;
startIndex:=(page-1)*pageSize+1;
endIndex:=page*pageSize;
strSql:='select rownum ro, t.* from '||tableName||' t';
strSql:=strSql||' where rownum<='||endIndex;
if strWhere is not null or strWhere<>'' then
strSql:=strSql||' and '||strWhere;
end if;
if Orderby is not null or Orderby<>'' then
strSql:=strSql||' order by '||Orderby;
end if;
strSql:='select * from ('||strSql||') where ro >='||startIndex;
DBMS_OUTPUT.put_line(strSql);
OPEN v_cur FOR strSql;
end Pagers;