ADO+ftCursor+Oracle

← →
alsov © (2007-05-04 16:24) [0]

Приветствую, Мастера

Влпрос вот какой. Не получается подружить ADODataset c оут параметром процедуры, который имеет тип ref cursor

Делаю так
1. В базе
create or replace package mickpkg as
type cur is ref cursor;
end;
/

create or replace procedure POpenQry(S in varchar2,cc out mickpkg.cur) as
begin
open cc for S;
end;
/

2. В Delphi через ADODataset

ds.CommandText := "Begin ceri.Ceri.POpenQry(:asql, :cur); end;";
ds.Parameters.Clear;
ds.Parameters.CreateParameter("asql",ftString,pdInput,100,"select 1 from dual");
ds.Parameters.CreateParameter("cur",ftCursor,pdOutput,0,NULL);
ds.Open;

Выдает ошибку о неправильно определенных параметрах.

Подскажите что не так.

P.S. Через dbExpress аналогичный вариант прокатывает на ура :(

← →
alsov © (2007-05-04 18:46) [1]

Ура! Победил.

Может кому пригодиться

cmd := TADOCommand.create(Self);
ds := TADODataSet.Create(self);
cmd.Connection := ADOConnection1;
cmd.CommandType := cmdStoredProc;
cmd.CommandText := "POpenQry";
cmd.Parameters.CreateParameter("asql",ftString,pdInput,100,"select 1 from dual");

ds.Recordset := cmd.Execute;

а с ds уже делать что надо

ADO+ftCursor+Oracle Найти похожие ветки