Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ADO [D7, Postgres]


alexey_mas ©   (2006-11-18 16:40:00) 

подскажите как получить значения возвращаемые процедурой , если процедура возвращает тип
делаю

with ADOStoredProc1 do
begin
 ProcedureName := 'my_proc';
 Parameters.Refresh;
 Parameters.ParamByName('pname').DataType:=ftString;
 Parameters.ParamByName('pname').Value:='test';
 Parameters.ParamByName('psurname').DataType:=ftString;
 Parameters.ParamByName('psurname').Value:='test';
 Parameters.ParamByName('pmidname').DataType:=ftString;
 Parameters.ParamByName('pmidname').Value:='test';
 Parameters.ParamByName('pdoc_seria').DataType:=ftString;
 Parameters.ParamByName('pdoc_seria').Value:='t';
 Parameters.ParamByName('pdoc_number').DataType:=ftString;
 Parameters.ParamByName('pdoc_number').Value:='test';
 ExecProc;
end;

процедура имеет 5 входных параметров и возвращает тип ret_check
который в базе Postgres создан так:

CREATE TYPE ret_check AS
  (param1 integer,
   param2 integer,
   param3 integer);
ALTER TYPE ret_check OWNER TO postgres;

Как правильно получить все значения возвращаемые?
Если писать

Edit1.Text:=Parameters.ParamByName('param1').Value;

то кричит что не найден параметр param1

Заранее спасибо


Anatoly Podgoretsky   (2006-11-18 19:45:00) [1]

> alexey_mas  (18.11.2006 16:40:00)  [0]

У тебя 5 входных параметров и ни одного с именем Param1


MsGuns   (2006-11-18 19:43:00) [2]

У параметра есть тип, его и анализируйте


Наверх

Титульная страница Поиск, карта сайта Написать письмо