create or replace procedure Pager( page in number,--数据页数,从1开始 pageSize in number,--每页大小 tableName nvarchar2,--表名 strWhere nvarchar2,--where条件 Orderby nvarchar2, numCount out number,--总记录数 v_cur out pkg_query.cur_query) is strSql varchar2(2000);--获取数据的sql语句 pageCount number;--该条件下记录页数 startIndex number;--开始记录 endIndex number;--结束记录 --作者:王东升 --时间:2010年1月8日14:54:32 --分页获取数据 begin strSql:='select count(1) 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 Pager;