SQL> desc aa Name Null? Type ----------------------------------------- -------- ---------------------------- ID VARCHAR2(2)
SQL> select * from aa;
ID -- 1 2 3 4 5 6 7 8 9 10 11
11 rows selected.
--------------- 建立PACKAGE --------------- create or replace package pkg_test as type pagination is ref cursor; procedure page_test ( p_count in out pls_integer, p_page in out pagination, p_beg in pls_integer, p_end in pls_integer, p_id in varchar2 ); end; /
create or replace package body pkg_test as procedure page_test ( p_count in out pls_integer, p_page in out pagination, p_beg in pls_integer, p_end in pls_integer, p_id in varchar2 ) is sql_count varchar2(1000) := ''; sql_page varchar2(30000) := ''; begin sql_count := 'select count(*) from aa'; sql_page := 'select id from aa where rownum <=10'; execute immediate sql_count into p_count; open p_page for sql_page; end; end; /