Скачать: CL | DM;

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 уже делать что надо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c