求助：function返回游标的问题

Question

想使用拼接sql语句，然后执行返回游标的形式得到数据
错误代码
  function test(P_TSE_ID    IN Integer,
                                     P_SALE_NO   IN Varchar2,
                                     P_FAC_NO    IN Varchar2,
                                     P_REEOR     Out Varchar2)
    Return Search_Result Is
    CURINFO Search_Result;   /*Type Search_Result Is Ref Cursor;*/
    sSQL    Varchar2(2000);
  begin
    Open CURINFO For
      Select * From dual;
  
    sSQL := 'Select * From Sell_Billinfo where tse_id = ' || P_TSE_ID;
    sSQL := sSQL || ' and sale_no = ' || P_SALE_NO;
    sSQL := sSQL || ' and fac_no = ' || P_FAC_NO;    open CURINFO for  sSQL;
    If (CURINFO%Isopen) Then
      Return CurInfo;
    end if;
  
  Exception
    When Others Then
      Begin
        Rollback;
        P_REEOR  := '执行过程出现错误:' + Sqlerrm;
      End;
  end test;估计错误出在open CURINFO for  sSQL;
但是不知道正确的怎么写？

Answer 1

SQL> create or replace function test(P_TSE_ID IN INTEGER)
  2    Return sys_refcursor Is
  3    CURINFO sys_refcursor; /*Type Search_Result Is Ref Cursor;*/
  4    sSQL Varchar2(2000);
  5    BEGIN
  6
  7    sSQL := 'Select rownum From dual connect by rownum<=' || P_TSE_ID;
  8
  9    open CURINFO for sSQL;
 10    If (CURINFO%Isopen) Then
 11    Return CurInfo;
 12    end if;
 13
 14    Exception
 15    When Others Then
 16    Begin
 17    ROLLBACK;
 18    End;
 19    end test;
 20  /Function created.SQL> var o_cur refcursorSQL> begin
  2  :o_cur:=test(3);
  3  end;
  4  /PL/SQL procedure successfully completed.SQL> print o_cur    ROWNUM
----------
         1
         2
         3
         4SQL>

Answer 2

用FOR实现对游标的自动打开…

Answer 3

不知道樓主的錯在哪裡，下面寫了一個，create or replace package my_types as
 type search_result is ref cursor;
end;
/create or replace function f_test(P_TSE_ID IN Integer,
  P_REEOR Out Varchar2)
  Return my_types.Search_Result Is
  CURINFO my_types.Search_Result; /*Type Search_Result Is Ref Cursor;*/
  sSQL Varchar2(2000);
  begin
  Open CURINFO For
  Select * From dual;
   
  sSQL := 'Select first_name,salary From employees where employee_id = ' || P_TSE_ID;  open CURINFO for sSQL;
  If (CURINFO%Isopen) Then
  Return CurInfo;
  end if;
   
  Exception
  When Others Then
  Begin
  Rollback;
  P_REEOR := '执行过程出现错误:' + Sqlerrm;
  End;
  end f_test;
/-- 下面是測試語句
variable cur refcursor;
variable errtext varchar2(200);
exec :cur := f_test(198, :errtext);
print cur;FIRST_NAME                         SALARY
------------------------------ ----------
Donald                               2600

Answer 4

估计是楼主动态SQL的拼接错了！
sSQL := 'Select * From Sell_Billinfo where tse_id = ''' || P_TSE_ID;
  sSQL := sSQL ||''' and sale_no = ''' || P_SALE_NO;
  sSQL := sSQL || ''' and fac_no = ''' || P_FAC_NO ||'''';

Answer 5

是SQL的拼接错了，谢谢了
也谢谢其他人