Oracle Ref 游标的输出结果

Question

我如何重写 pl/sql 块下方以避免对列名进行逐个硬编码？以下数据来自 OE 架构。对于订单 table，此 table 上有 8 列。是否可以在没有硬编码列名的情况下输出结果？感谢任何帮助。

create or replace PACKAGE show_details AS
TYPE rt_order IS REF CURSOR RETURN orders%ROWTYPE;
TYPE typ_cust_rec IS RECORD
(cust_id NUMBER(6), cust_name VARCHAR2(20),
custphone customers.phone_numbers%TYPE,
credit NUMBER(9,2), cust_email VARCHAR2(30));
TYPE rt_cust IS REF CURSOR RETURN typ_cust_rec;
--Get order detail
PROCEDURE get_order(p_orderid IN NUMBER, p_cv_order IN OUT rt_order);
--Get customer detail
PROCEDURE get_cust(p_custid IN NUMBER, p_cv_cust IN OUT rt_cust);
END show_details;

create or replace PACKAGE BODY show_details 
AS 
PROCEDURE get_order (p_orderid IN NUMBER, p_cv_order IN OUT rt_order)
IS
BEGIN
OPEN p_cv_order FOR
SELECT * FROM orders
WHERE order_id = p_orderid;
-- CLOSE p_cv_order
END get_order;
PROCEDURE get_cust (p_custid IN NUMBER, p_cv_cust IN OUT rt_cust)
IS
BEGIN
OPEN p_cv_cust FOR
SELECT customer_id, cust_first_name,phone_numbers,
credit_limit,cust_email FROM customers WHERE customer_id = p_custid;
-- CLOSE p_cv_cust
END get_cust;
END;

SET SERVEROUTPUT ON SIZE UNLIMITED;
declare
cur_orders show_details.rt_order;
v_ordertab cur_orders%ROWTYPE;
begin
show_details.get_order(p_orderid =>2397, p_cv_order =>cur_orders);
LOOP
FETCH cur_orders INTO v_ordertab;
EXIT WHEN cur_orders%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('ORDER_ID: ' || v_ordertab.ORDER_ID || ' ORDER_DATE: ' ||        v_ordertab.ORDER_DATE || ' ORDER_MODE: ' || v_ordertab.ORDER_MODE || ' CUSTOMER_ID: ' || v_ordertab.CUSTOMER_ID);
END LOOP;
exception
when others then
DBMS_OUTPUT.put_line ('Error Code : ' || SQLCODE);
end;
/

Answer 1

由于您是从 SQL 开发人员执行此操作，因此您可以使用 variable and print 命令，这些命令是从 SQL*Plus:

继承而来的

variable cur_orders refcursor;
exec show_details.get_order(p_orderid => 2397, p_cv_order => :cur_orders);
print cur_orders

CUR_ORDERS
-------------------------------------------------------------------------------------------------------------------------------------------------
ORDER_ID                                CUSTOMER_ID                             ORDER_MODE                              ORDER_DATE                
--------------------------------------- --------------------------------------- --------------------------------------- ------------------------- 
2397                                    42                                      0                                       03-JAN-15

请注意，您将 ref 游标变量作为绑定变量传递，因此调用中的名称前有一个冒号 (:cur_order)。你需要 run script 而不是 run statement.

exec 只是匿名块的 shorthand，因此如果您愿意，可以明确地这样做，但效果是一样的：

var cur_orders refcursor;
begin
  show_details.get_order(p_orderid => 2397, p_cv_order => :cur_orders);
end;
/
print cur_orders

如果您愿意，您也可以在结果网格中获得输出，as shown here，但是 print 更接近您的 dbms_output 版本。或者你可以有一个包装函数，这样你就可以从一个普通的 SQL 调用中调用查询过程；取决于您的最终目标是什么，如果您只是手动执行检查输出的过程，那么 print 可能也足够好。

Oracle Ref 游标的输出结果

Output results from Oracle Ref cursor

oracle

plsql

oracle-sqldeveloper