Output from Cursor Reference

Question

Hi all,
We have a table like this:
create table tblSales
(sku varchar2(100),
selling_date date,
sales_vol integer
);Records in this table will be like this:
SKU1             15-JUL-07     300
SKU2                15-JUL-07     400
SKU3             15-JUL-07     500
SKU4                15-JUL-07     600
SKU1             16-JUL-07     500
SKU2                16-JUL-07     600
SKU3             16-JUL-07     700
SKU4                16-JUL-07     800
SKU1             17-JUL-07     250
SKU2                17-JUL-07     300
SKU3             17-JUL-07     550
SKU4                17-JUL-07     480I want the output like:
SKU          15-JUL-02    16-JUL-02        17-JUL-02     18-JUL-02
SKU1              300          500               250           0
SKU2              400          600               300           0
SKU3              500          700               550           0
SKU4              600          800               480           0I am using Oracle 10.1.02 and PL/SQL developer as developing tool. I have found a piece of code from AskTom which is very helpful as below:
create or replace procedure get_query(p_start date, p_end date, p_cursor out SYS_REFCURSOR)
   is
       l_query long := 'select sku ';
   begin
      for i in 1 .. trunc(p_end)-trunc(p_start) + 1
      loop
          l_query := l_query || ', sum( decode( trunc(selling_date), ' ||
                          'to_date( ''' || to_char(p_start+i-1,'dd/mm/yyyy') ||
                          ''', ''dd/mm/yyyy'' ), sales_vol, 0 )) "' ||
                          to_char(p_start+i-1) || '"';
      end loop;
      l_query := l_query || ' from tblSales group by sku';
      open p_cursor for l_query;
end;when I ran the procedure in SQL plus, i was able to get the desired output.
SQL>
SQL>  set autoprint on
SQL>  variable x refcursor
SQL>  exec get_query(to_date('19/06/2005', 'dd/mm/yyyy'), to_date('21/06/2005', 'dd/mm/yyyy'), :x);
  SKU_BKEY  19-JUN-05  20-JUN-05  21-JUN-05
   1235074          0          0          0
   1113006          0          0          0
   1217230          0          0          0
   6552011          0          0          0
   6012969       3607          0          0
   6029089       1956          0          0
   6030825      20098          0          0
   6017078      11273          0          0
   6265298       5318          0          0
   6297515      10504          0          0
      1458     150523          0          0But I can't produce the same output in PL/SQL developer. Why?
SQL> variable x refcursor
REFCURSOR not supported
SQL> exec get_query( :x,to_date('19/06/2005', 'dd/mm/yyyy'), to_date('21/06/2005', 'dd/mm/yyyy'));
begin get_query( :x,to_date('19/06/2005', 'dd/mm/yyyy'), to_date('21/06/2005', 'dd/mm/yyyy')); end;
Cursor variable :X cannot be nil
x
0
SHow can I use this result set. I need to create a report based on this in VBA excel via ADO connection. Is there a way I can export the output to a temp table, and do the select from the temp table. The problem is the columns must be always dynamic, based on the date that user provided. Any idea how can I achieve this?
Thanks very much for your time and help.
Pete
Message was edited by:
lcpx
Message was edited by:
lcpx
Edited by: jkestely on Sep 29, 2008 2:49 PM

Answer 1

Hi,
Thanks very much for your time. I tried to store the ref_cursor in Recordset of VB base on the example you gave, have been spending days but couldn't make this work. Here is my code:
Public Sub PopulateData()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Dim par1, par2 As ADODB.Parameter
Dim pStartDate, pEndDate As Date
pStartDate = "19/06/2005"
pEndDate = "19/07/2005"
Set conn = New ADODB.Connection
conn.Open "Driver={Microsoft ODBC for Oracle};" & _
"Server=dwl;" & _
"Uid=scott;" & _
"Pwd=tiger"
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "get_query"
cmd.CommandType = adCmdStoredProc
Set par1 = cmd.CreateParameter("p_start", adDate, adParamInput)
par1.Value = pStartDate
cmd.Parameters.Append par1
Set par2 = cmd.CreateParameter("p_end", adDate, adParamInput)
par2.Value = pEndDate
cmd.Parameters.Append par2
Set rst = New ADODB.Recordset
Set rst = cmd.Execute
Sheet1. Cells(4, 1).CopyFromRecordset rst
Set cmd = Nothing
Set par1 = Nothing
Set par2 = Nothing
rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing
End Sub
I am getting an "ODBC Drive does not support the requested properties" error on the Set rst = cmd.Execute line of code.
Thanks again!
Message was edited by:
lcpx