创建一个测试表:
点击(此处)折叠或打开
- create table test_weber(id number ,name varchar2(20) );
-
- insert into test_weber values(1,\'weber\');
- insert into test_weber values(2,\'roy\');
- insert into test_weber values(3,\'ling\');
- commit
点击(此处)折叠或打开
- create or replace procedure test_weber_proc(out_result_cursor out sys_refcursor) is
- begin
- open out_result_cursor for
- select id,name from test_weber;
- --close out_result_cursor
- end
现在调用这个存储过程。
点击(此处)折叠或打开
- declare
- e_result sys_refcursor;
- c1 e_result%type;
- arr test_weber%rowtype;
- begin
- test_weber_proc(c1);
-
- loop
- fetch c1
- into arr;
- dbms_output.put_line(arr.id || \'--\' || arr.name);
- exit when c1%notfound;
- end loop;
- close c1;
- end
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/29660117/viewspace-1378679/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/29660117/viewspace-1378679/