Question

我正在寻找有关如何在SQL Developer或Embarcardero Rapid XE2中测试Oracle存储过程的详细解释。谢谢。

Answer 1

像

这样的东西

create or replace procedure my_proc( p_rc OUT SYS_REFCURSOR )
as
begin
  open p_rc
   for select 1 col1
         from dual;
end;
/

variable rc refcursor;
exec my_proc( :rc );
print rc;

可以在SQL * Plus或SQL Developer中使用。我对Embarcardero Rapid XE2没有任何经验，所以我不知道它是否支持这样的SQL * Plus命令。

Answer 2

这样的东西让你几乎可以在任何客户端上测试你的程序：

DECLARE 
  v_cur SYS_REFCURSOR;
  v_a   VARCHAR2(10);
  v_b   VARCHAR2(10);
BEGIN
  your_proc(v_cur);

  LOOP
    FETCH v_cur INTO v_a, v_b;
    EXIT WHEN v_cur%NOTFOUND;
    dbms_output.put_line(v_a || ' ' || v_b);
  END LOOP;
  CLOSE v_cur;
END;

基本上，您的测试工具需要支持SYS_REFCURSOR变量的定义以及在传递您定义的变量时调用过程的能力，然后循环遍历游标结果集。 PL / SQL完成了所有这些工作，匿名块易于设置和维护，具有相当的适应性，并且对任何使用PL / SQL的人都具有可读性。

另一个虽然类似的方法是构建一个执行相同操作的命名过程，并假设客户端有一个调试器（如SQL Developer，PL / SQL Developer，TOAD等），然后您可以单步执行

Answer 3

在SQL Developer中，您可以右键单击包体，然后选择RUN。 “运行PL / SQL”窗口将允许您编辑PL / SQL块。单击“确定”将为您提供一个标题为“输出变量 - 日志”的窗口窗格，其中包含输出变量选项卡。您可以在左侧选择输出变量，结果显示在右侧。非常方便快捷。

我使用了Rapid with T-SQL，我觉得有类似的东西。

编写自己的delcare-begin-end脚本，循环遍历光标，就像在DCookie的例子中一样，总是一个很好的练习。它可以处理任何事情，你就会知道你的代码是有效的。

Answer 4

在Toad 10.1.1.8中，我使用：

variable salida refcursor
exec MY_PKG.MY_PRC(1, 2, 3, :salida)  -- 1, 2, 3 are params
print salida

然后，执行为脚本。

Answer 5

create or replace procedure my_proc(  v_number IN number,p_rc OUT SYS_REFCURSOR )
as
begin
open p_rc
for select 1 col1
     from dual;
 end;
 /

然后编写一个函数谎言，它调用你的存储过程

 create or replace function my_proc_test(v_number IN NUMBER) RETURN sys_refcursor
 as
 p_rc sys_refcursor;
 begin
 my_proc(v_number,p_rc);
 return p_rc;
 end
 /

然后您可以在SQLDeveloper编辑器中运行此SQL查询。

 SELECT my_proc_test(3) FROM DUAL;

您将在控制台中看到结果，右键单击它并在单个记录视图上cilck并编辑结果，您可以看到ref游标返回的所有记录。

Answer 6

我认为这个链接对你来说已经足够了。当我在寻找执行oracle程序的方法时，我发现了它。

The link to the page

简短说明：

--cursor variable declaration 
variable Out_Ref_Cursor refcursor;
--execute procedure 
execute get_employees_name(IN_Variable,:Out_Ref_Cursor);
--display result referenced by ref cursor.
print Out_Ref_Cursor;

如何使用RefCursor返回类型测试Oracle存储过程？

6 个答案: