Запись данных в базу через IBX компоненты

← →
Анатолий (2002-03-07 07:51) [0]

Почему такая конструкция копмилится, но не работает :
(пишется знаение РР в поле VAL_TT таблицы SOSTT)
IBDateSet1.ModifySQL:=
update SOSTT
set
ADRESS = :ADRESS,
PARAM = :PARAM,
VAL_TT = :VAL_TT
where
ADRESS = :OLD_ADRESS and
PARAM = :OLD_PARAM and
VAL_TT = :OLD_VAL_TT
...
IBDataSet1.Open;
IBDataSet1.Edit;
IBDataSet1.FieldByName("Val_tt").AsInteger:=PP;
IBDataSet1.Post;
IBDataSet1.Close;
...
а такая конструкция :
...
IBTable1.Open;
IBTable1.Edit;
IBTable1.FieldByName("Val_tt").AsInteger:=PP;
IBTable1.Post;
IBTable1.Close;
...
работает.

← →
Alexandr (2002-03-07 08:30) [1]

а какая ошибка-то?

← →
Анатолий (2002-03-07 09:01) [2]

Как только по тексту ставишь :
...
IBDataSet1.Post;
...
возникает исключительная ситуация, а если
...
IBDataSet1.Edit;
IBDataSet1.FinNext;
IBDataSet1.Prior;
...
ничего не пишется, но и не возникает исключительной ситуации.

← →
ОлегЕ (2002-03-07 09:13) [3]

Для UPDATE и INSERT нужно вызывать не OPEN, а ExecSQL.
IBDateSet1.ModifySQL:=
update SOSTT
set
ADRESS = :ADRESS,
PARAM = :PARAM,
VAL_TT = :VAL_TT
where
ADRESS = :OLD_ADRESS and
PARAM = :OLD_PARAM and
VAL_TT = :OLD_VAL_TT

IBDateSet1.Prepare;
IBDateSet1.ParamByName("Val_tt").AsInteger:=PP;
IBDateSet1.ExecSQL;

← →
Deniz (2002-03-07 09:18) [4]

Вместо IBDataSet я использую связку IBQuery + IBUpdateSQL.
Пока проблем не было.
Удачи.

← →
Johnmen (2002-03-07 09:37) [5]

>ОлегЕ : Причем здесь ExecSQL , если человек работает с модифицируемым IBDateSet ???
>Анатолий : Я думаю, что не проходит по причине отсутствия значений у параметров OLD_...А вообще параметры в ModifySQL и иже с ним берутся из значений текущей записи и записи из НД, на который указывает IBDateSet.DataSource (может не быть).

← →
Анатолий (2002-03-07 09:38) [6]

ОлегЕ, и в этом случае возникает исключительная ситуация :

IBDateSet1.ModifySQL:=

update SOSTT
set
ADRESS = :ADRESS,
PARAM = :PARAM,
VAL_TT = :VAL_TT
where
ADRESS = :OLD_ADRESS and
PARAM = :OLD_PARAM and
VAL_TT = :OLD_VAL_TT
...
IBDateSet1.Prepare;
IBDateSet1.ParamByName("Val_tt").AsInteger:=PP;
IBDateSet1.ExecSQL;

Запись данных в базу через IBX компоненты Найти похожие ветки