the way to get cursor parameter at package in oracle

[daizhicun]

in oracle, we can get DataSet by package useing Cursor paramter;

But if a package has multiple Cursor paramters;

If useing UniDAC,how to get every cursor by TuniQuery or TUniStoreProc;

we know that the famous tool for oracle develoer: Pl/sql developer;

It can call every Cursor paramter of Package easy:

for example:



but it is not easy in TuniQuery or TUniStoreProc;
TuniQuery can noly get the first cursor parameter;
it only has UniQuery.OpenNext ; it has no UniQuery.OpenPrior;


i hope that：
UniQuery.ParamByName('cursor1').open;
UniQuery.ParamByName('cursor2').open;
UniQuery.ParamByName('cursor3').open;

[daizhicun]

the package code for the pic above:

CREATE OR REPLACE PACKAGE GetDataSet AS
TYPE TDataSet IS REF CURSOR;


PROCEDURE Get_data(

DataSet1 OUT TDataSet,
DataSet2 OUT TDataSet,
DataSet3 OUT TDataSet

);

END;
/
CREATE OR REPLACE PACKAGE BODY Getdataset IS


PROCEDURE Get_data(

DataSet1 OUT TDataSet,
DataSet2 OUT TDataSet,
DataSet3 OUT TDataSet

) as
begin
open DataSet1 for
select 1 as a from dual;

open DataSet2 for
select 2 as b from dual;
open DataSet3 for
select 3 as c from dual;
end;

END;

[bork]

Hello

You should use TUniSQL to execute the following SQL:

Code: Select all

begin
  GetDataSet.Get_data(:cursor1, :cursor2, :cursor3);
end;

And you should execute the following code to get the result:

Code: Select all

begin
  UniSQL1.ParamByName('cursor1').DataType := ftCursor;
  UniSQL1.ParamByName('cursor2').DataType := ftCursor;
  UniSQL1.ParamByName('cursor3').DataType := ftCursor;

  UniSQL1.Execute;

  UniQuery1.Close;
  UniQuery1.Cursor := UniSQL1.ParamByName('cursor1').AsCursor;
  UniQuery1.Open;

  UniQuery2.Close;
  UniQuery2.Cursor := UniSQL1.ParamByName('cursor2').AsCursor;
  UniQuery2.Open;

  UniQuery3.Close;
  UniQuery3.Cursor := UniSQL1.ParamByName('cursor3').AsCursor;
  UniQuery3.Open;
end;