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

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

Не выполняется процедура SQL из Delphi [D7, IB6.x]

M@rlin ©   (2005-08-22 18:11:00) 

Доброго времени суток!
вопрос таков:
есть процедура на 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;
Процедура не выполняется Кто знает почему поделитесь опытом
Заранее благодарен!

---

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

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

---

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

а Prepare нету?

---

P.N.P.   (2005-08-22 18:14:00) [3]

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

---

Наверх