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

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

FireBird возврат результата запроса из ХП

Михаил ©   (2014-03-06 17:09:00) 


create or alter procedure SERVICES_PROC (
   OPR varchar(3) not null,
   SID_I integer,
   STITLE_I varchar(20),
   SDESCRIPTION_I varchar(128))
returns (
   SID_O integer,
   STITLE_O varchar(20),
   SDESCRIPTION_O varchar(128))
as
begin
 if(:opr = 'sel') then
 begin
    for select sid, stitle, sdescription from services into :sid_o, :stitle_o, :sdescription_o do
    begin
      suspend;
    end
 end

 .......................................................

 suspend;
end^

Дублируется последняя запись в DBGrid. Что не так делаю?
Нужно что-то вроде syspend - 1;

---

Михаил   (2014-03-06 17:37:00) [1]

Спасибо.

---

Ega23   (2014-03-06 17:35:00) [2]

> Дублируется последняя запись в DBGrid. Что не так делаю?



suspend;
end^

suspend; последний убери

---

turbouser   (2014-03-06 17:33:00) [3]

Лишний suspend

---

Наверх