How to output a recordset

Question

I copy this store procedure from the other thread
create or replace procedure ref_cursor(rc out sys_refcursor) is
begin
          open rc for select * from customers ;
end ;
and I use this function to call the store procedure in an ASP page
     Function ReadTable ( )
          Set myRs = Server.CreateObject("ADODB.REcordset")
          Set cmdSp = Server.CreateObject("ADODB.Command")
          With cmdSp
               .CommandText = "ref_cursor"
               .CommandType = adCmdStoredProc
               .Parameters.refresh
               Set p = .Parameters
               p.Append .CreateParameter("@rc", adInteger, adParamReturnValue )
               .ActiveConnection = ConnStr
               Set myRs = .Execute
          End With
     End Function
But it doesn't work. Could anyone tell me why ? Thanks

Answer 1

not sure how to do this in ASP, but here is an example of ASP.NET:
This will retrieve a list of items from the order_items table and populate a drop down list.
/******** ASP.NET CODE ********/
cmd = New OracleCommand("PKG_ORDERS.SP_ITEM_LIST", oraConn)
cmd.CommandType = CommandType.StoredProcedure
param = New OracleParameter("P_ORDER_ID", OracleDbType.Varchar2)
param.Direction = ParameterDirection.Input
param.Value = Session("ORDER_ID")
cmd.Parameters.Add(param)
param = New OracleParameter("P_ITEM_DATA_CV", OracleDbType.RefCursor)
param.Direction = ParameterDirection.InputOutput
param.Value = DBNull.Value
cmd.Parameters.Add(param)
Dim itemsDA As New OracleDataAdapter(cmd)
Dim itemsds As New DataSet
itemsDA.Fill(itemsds)
ItemsDv = itemsds.Tables(0).DefaultView
listItems.DataSource() = ItemsDv
listItems.DataValueField = "ITEM_ID"
listItems.DataTextField = "ITEM_DISPLAY"
listItems.DataBind()
/******* ORACLE STORED PROCEDURE *********/
CREATE OR REPLACE PROCEDURE "SP_ITEM_LIST"
(p_order_id IN VARCHAR2,
p_item_data_cv IN OUT SYS_REFCURSOR)
AS
v_sql_str VARCHAR2(500);
BEGIN
v_sql_str := 'SELECT i_order_id, item_id, item_sort, item_display ' ||
'FROM order_items' ||
' WHERE i_order_id = ' || '''' || p_order_id || '''' ||
' ORDER BY item_sort';
OPEN p_item_data_cv FOR v_sql_str;
END SP_ITEM_LIST;
Hope this helps
John