Скачать: CL | DM;

Не выполняется процедура 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 где-нибудь есть ?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c