Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

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

 
alexey_mas ©   (2006-11-18 16:40) [0]

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

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

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


 
MsGuns ©   (2006-11-18 19:43) [1]

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


 
Anatoly Podgoretsky ©   (2006-11-18 19:45) [2]

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

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



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

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
6-1152518143
Antuan
2006-07-10 11:55
2006.12.03
проблемы с отправкой письма


15-1163481359
Колдун
2006-11-14 08:15
2006.12.03
Добавление элементов в апплеты


10-1126014043
AlexeyMir
2005-09-06 17:40
2006.12.03
событие в ком-объекте


4-1153470311
Степан
2006-07-21 12:25
2006.12.03
Как убрать полосы прокрутки у ListView


2-1163695212
kat_nik
2006-11-16 19:40
2006.12.03
Проверка заполненности ячеек компонента TStringGrid