在MS SQL Server中，如果我想检查存储过程的结果，可以在Management Studio中执行以下操作。
--SQL SERVER WAY
exec sp_GetQuestions('OMG Ponies')
结果窗格中的输出可能如下所示。
ID Title ViewCount Votes
----- ------------------------------------------------- ---------- --------
2165 Indexed View vs Indexes on Table 491 2
5068 SQL Server equivalent to Oracle’s NULLS FIRST 524 3
1261 Benefits Of Using SQL Ordinal Position Notation? 377 2
(3 row(s) affected)
无需编写循环或PRINT语句。
要在Oracle中执行相同的操作，我可能会在SQL Developer中执行以下匿名块
--ORACLE WAY
DECLARE
OUTPUT MYPACKAGE.refcur_question;
R_OUTPUT MYPACKAGE.r_question;
USER VARCHAR2(20);
BEGIN
dbms_output.enable(10000000);
USER:= 'OMG Ponies';
recordCount := 0;
MYPACKAGE.GETQUESTIONS(p_OUTPUT => OUTPUT,
p_USER=> USER,
) ;
DBMS_OUTPUT.PUT_LINE('ID | Title | ViewCount | Votes' );
LOOP
FETCH OUTPUT
INTO R_OUTPUT;
DBMS_OUTPUT.PUT_LINE(R_OUTPUT.QUESTIONID || '|' || R_OUTPUT.TITLE
'|' || R_OUTPUT.VIEWCOUNT '|' || R_OUTPUT.VOTES);
recordCount := recordCount+1;
EXIT WHEN OUTPUT % NOTFOUND;
END LOOP;
DBMS_OUTPUT.PUT_LINE('Record Count:'||recordCount);
CLOSE OUTPUT;
END;
输出如
ID|Title|ViewCount|Votes
2165|Indexed View vs Indexes on Table|491|2
5068|SQL Server equivalent to Oracle’s NULLS FIRST|524|3
1261|Benefits Of Using SQL Ordinal Position Notation?|377|2
Record Count: 3
所以SQL版本有1行，oracle有18行，输出很难看。如果有很多列和/或数据是数字，它会加剧。
对我而言，奇怪的是，如果我在SQL Developer或Management studio中编写此语句...
SELECT
ID,
Title,
ViewCount,
Votes
FROM votes where user = 'OMG Ponies'
结果非常相似。这让我觉得我要么缺少一种技术，要么使用错误的工具。
答案 0 :(得分：17)
如果GetQuestions是一个返回refcursor的函数，这似乎是你在SQL Server版本中所拥有的那个，那么你可能会做这样的事情：
select * from table(MyPackage.GetQuestions('OMG Ponies'));
或者如果你需要在PL / SQL块中，那么你可以在游标中使用相同的选择。
你也可以让函数产生dbms_output语句，这样它们总是可用于调试，虽然这会增加一些开销。
修改
嗯，不确定将cast()返回的refcursor转换为可用类型，除非您愿意在包外声明自己的类型（以及该类型的表）。你可以这样做，只是为了转储结果：
create package mypackage as
function getquestions(user in varchar2) return sys_refcursor;
end mypackage;
/
create package body mypackage as
function getquestions(user in varchar2) return sys_refcursor as
r sys_refcursor;
begin
open r for
/* Whatever your real query is */
select 'Row 1' col1, 'Value 1' col2 from dual
union
select 'Row 2', 'Value 2' from dual
union
select 'Row 3', 'Value 3' from dual;
return r;
end;
end mypackage;
/
var r refcursor;
exec :r := mypackage.getquestions('OMG Ponies');
print r;
你可以在另一个程序或函数中使用调用的结果;它只是在PL / SQL之外进行，似乎有点棘手。
编辑添加：使用这种方法，如果它是一个程序，你可以做同样的事情：
var r refcursor;
exec mypackage.getquestions(:r, 'OMG Ponies');
print r;
答案 1 :(得分：1)
SQL Developer会自动捕获运行存储过程的输出。直接从我们的程序编辑器运行存储过程，您可以在我的帖子中看到此行为
SQL Developer Tip: Viewing REFCURSOR Output
现在，如果你想在我们的SQL工作表中运行refcursor作为anon块的一部分，你可以做类似的事情
var rc refcursor
exec :rc := GET_EMPS(30)
print rc
- GET_EMPS（）将成为你的sp_GetQuestions（＆＃39; OMG Ponies＆＃39;）电话。 PRINT命令发送＆＃39;查询＆＃39;这是通过存储过程运行的，如下所示：
anonymous block completed
RC
-----------------------------------------------------------------------------------------------------
EMPLOYEE_ID FIRST_NAME LAST_NAME EMAIL PHONE_NUMBER HIRE_DATE JOB_ID SALARY COMMISSION_PCT MANAGER_ID DEPARTMENT_ID
----------- -------------------- ------------------------- ------------------------- -------------------- ------------------------- ---------- ---------- -------------- ---------- -------------
114 Den Raphaely DRAPHEAL 515.127.4561 07-DEC-94 12.00.00 PU_MAN 11000 100 30
115 Alexander Khoo AKHOO 515.127.4562 18-MAY-95 12.00.00 PU_CLERK 3100 114 30
116 Shelli Baida SBAIDA 515.127.4563 24-DEC-97 12.00.00 PU_CLERK 2900 114 30
117 Sigal Tobias STOBIAS 515.127.4564 24-JUL-97 12.00.00 PU_CLERK 2800 114 30
118 Guy Himuro GHIMURO 515.127.4565 15-NOV-98 12.00.00 PU_CLERK 2600 114 30
119 Karen Colmenares KCOLMENA 515.127.4566 10-AUG-99 12.00.00 PU_CLERK 2500 114 30
现在，你说10g。如果您在12c中，我们已经增强了PL / SQL引擎以支持隐式游标结果。所以这会变得更容易，不再设置光标，你只需要调用来获取数据，如下所示： http://docs.oracle.com/database/121/DRDAA/migr_tools_feat.htm#DRDAA230
答案 2 :(得分：0)
/*
Create Sample Package in HR Schema
*/
CREATE OR REPLACE PACKAGE PRINT_REF_CURSOR
AS
PROCEDURE SP_S_EMPLOYEES_BY_DEPT (
p_DEPARTMENT_ID IN INTEGER,
Out_Cur OUT SYS_REFCURSOR);
END PRINT_REF_CURSOR;
CREATE OR REPLACE PACKAGE BODY PRINT_REF_CURSOR
AS
PROCEDURE SP_S_EMPLOYEES_BY_DEPT (
p_DEPARTMENT_ID IN INTEGER,
Out_Cur OUT SYS_REFCURSOR)
AS
BEGIN
OPEN Out_Cur FOR
SELECT *
FROM EMPLOYEES
WHERE DEPARTMENT_ID = p_DEPARTMENT_ID;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.Put_Line('SP_S_EMPLOYEES_BY_DEPT' || ',' || '-20000' || ',' );
WHEN OTHERS
THEN
DBMS_OUTPUT.Put_Line('SP_S_EMPLOYEES_BY_DEPT' || ',' || '-20001' || ',' );
END SP_S_EMPLOYEES_BY_DEPT;
END PRINT_REF_CURSOR;
/*
Fetch values using Ref Cursor and display it in grid.
*/
var RC refcursor;
DECLARE
p_DEPARTMENT_ID NUMBER;
OUT_CUR SYS_REFCURSOR;
BEGIN
p_DEPARTMENT_ID := 90;
OUT_CUR := NULL;
PRINT_REF_CURSOR.SP_S_EMPLOYEES_BY_DEPT ( p_DEPARTMENT_ID, OUT_CUR);
:RC := OUT_CUR;
END;
/
PRINT RC;
/************************************************************************/