Не выполняется процедура SQL из Delphi

← →
M@rlin © (2005-08-22 18:11) [0]

Доброго времени суток!
вопрос таков:
есть процедура на SQL
CREATE PROCEDURE SUMM_KOEF_PROC (
XCODE_ID INTEGER)
RETURNS (
SUM_KOEF FLOAT)
AS
DECLARE VARIABLE XSUM_KOEF FLOAT;
begin
select sum(LYER_KOEF) from new_table
Where nok_id =:xcode_id
into :xsum_koef;
if (xsum_koef is null) then sum_koef=0;
else sum_koef=:xsum_koef;

update nok_spr tf
set tf.SUM_KOEF_L=:xsum_koef
where tf.code_id=:xcode_id;
suspend;
end

процедура выбирает из таблиы сумму коэфициентов и вставляет в другую таблицу. Для выполнение процедуры в комп.IBQuery.SQL:=execute procedure SUMM_KOEF_PROC(:xcode_id)
На событие DataSource.OnDataChange написано след.
rocedure TDataModule2.DataSourceLayersDataChange(Sender: TObject;
Field: TField);
begin
IBQuery1.Active := false;
IBQuery1.Params[0].AsInteger :=//передача параметров
nok_sprcode_id .asInteger;
IBQuery1.ExecSQL;
IBQuery1.Active := True;
Процедура не выполняется Кто знает почему поделитесь опытом
Заранее благодарен!

← →
P.N.P. © (2005-08-22 18:14) [1]

>M@rlin © (22.08.05 18:11)
> IBQuery1.Active := True;
Лишнее.

← →
Ильш (2005-08-23 06:14) [2]

а Prepare нету?

← →
Виталий Панасенко (2005-08-23 09:54) [3]

А commit где-нибудь есть ?

Не выполняется процедура SQL из Delphi Найти похожие ветки