помогите дураку!! как в Delphi использовать ХП с помощью компонентов Interbase?
в книгках сказано что ето выполняется с помощью компонента IBStoredProc, но в реале
возникает ошибка - говорит что надо исполбзовать TIBQuery а не TIBStoredProc. Но самое интересное, что при использовании последнего возникает та ге ошибка. Че делать - понятия не имею..

ошибка такая:
... raised exception class EIBClientError with message 'use ExecProc for Procedure; use TQuery for Select procedure'

обьясните, please, как правильно сделать?

нет, не возвращает. она создает запись в двух таблицах с одинаковыми id

вот текст ХП


CREATE PROCEDURE NEW_THERAPY (
PERSON_ID INTEGER,
DESCR VARCHAR(40) CHARACTER SET WIN1251)
AS
DECLARE VARIABLE TMP INTEGER;
begin
select therapy_id from therapy where description =:descr into :TMP;
if (tmp is null) then
begin
tmp = gen_id(add_diagnos_generator,1);
insert into therapy values(:TMP, :descr);
suspend;
end
insert into s_surgery values(:TMP,:person_id);
end

посмотрите пожалста!

2 Johnmen

всё бы хорошо с такими insert'ами,но требуется во втором заносить в качетсве therapy_id значение полученное генератором в первом. поэтому и использовалась внутрення переменная.

как-то по-моему все друг друга не поняли.
Надо сделать следющее:
известны description и person_id

если в таблице therapy присутствует description в поле descr, то ничего делать не надо.
Если такого заданного значения там нет, то надо создать новую строку с therapy_id из генератора и description. После этого необходимо в другую таблицу(S_surgery) внести s_surgery.person_id=person_id и s_surgery.therapy_id=therapy_id полученное выше.

написанная процедура это действие выполняет(проверено в ibexpert). а вот delphi никак не научить с ней работать.

и suspend убрал и обнуляю переменную, а Delphi с ней работать все равно не хочет. в етом и кроется основная проблема

with storedproc1 do begin
parambyname('descr').asString:=NameEdit.text;
prepare;
execProc;