I have some procedure in my DB:
Code: Select all
procedure MyProc(
Cur1 SYS_REFCURSOR,
Cur2 SYS_REFCURSOR,
Cur3 SYS_REFCURSOR
);
BEGIN
OPEN Cur1 FOR
...
OPEN Cur2 FOR
...
END;
Code: Select all
MyOraSQL.Execute;
MyOraQuery1.Cursor := MyOraSQL.ParamByName('Cur1').AsCursor;
MyOraQuery1.Open;
MyOraQuery2.Cursor := MyOraSQL.ParamByName('Cur2').AsCursor;
...
Code: Select all
MyOraSQL.Refresh;
MyOraQuery1.Close;
MyOraQuery1.Cursor := MyOraSQL.ParamByName('Cur1').AsCursor;
MyOraQuery1.Open;
(MyOraQuery1.Refresh does'nt work, it answers to me "Reopen is not allowed")
(Oracle 9.2, Oracle Client 8, Delphi 5, Windows XP)
Thanks!