Здравствуйте Мастера! Помогите-- TIBQuery

← →
Tadi (2002-01-08 15:22) [0]

Здравствуйте уважаемые мастера!
Помогите, пожалуйста, разобраться вот с такой проблемой:
- Есть динамически создаваемый запрос (TIBQuery) на выборку некоторых полей из одной таблички (DEVIS) и к этому запросу из программы же привязывается UpdateSQL (UpdSQL)
QDevv.Close;
QDevv.SQL.Clear;
QDevv.SQL.Add("select UI, NAMDEV, TYPEDEV, OBJECT, ");
QDevv.SQL.Add(" SUBOBJECT, OBSERVE, A, B, C, HILIMIT, ");
QDevv.SQL.Add(" LOLIMIT, HILIMIT from DEVIS");
QDevv.SQL.Add(" order by DEVIS.UI ");
QDevv.open;
QDevv.UpdateObject:=UpdSQL;

При этом при попытке удалить запись – выпадает ошибка “Update Failed” – как быть (добавляются данные без вопросов)?

Для UpdSQL статически описаны:
---
DeleteSQL:
delete from DEVIS
where
UI = :OLD_UI and
NAMDEV = :OLD_NAMDEV and
TYPEDEV = :OLD_TYPEDEV and
OBJECT = :OLD_OBJECT and
SUBOBJECT = :OLD_SUBOBJECT and
OBSERVE = :OLD_OBSERVE and
A = :OLD_A and
B = :OLD_B and
C = :OLD_C and
HILIMIT = :OLD_HILIMIT and
LOLIMIT = :OLD_LOLIMIT
---
InsertSQL:
insert into DEVIS
(UI, NAMDEV, TYPEDEV, OBJECT, SUBOBJECT, OBSERVE, A, B, C, HILIMIT, LOLIMIT)
values
(:UI, :NAMDEV, :TYPEDEV, :OBJECT, :SUBOBJECT, :OBSERVE, :A, :B, :C, :HILIMIT, :LOLIMIT)
---
ModifySQL:
update DEVIS
set
UI = :UI,
NAMDEV = :NAMDEV,
TYPEDEV = :TYPEDEV,
OBJECT = :OBJECT,
SUBOBJECT = :SUBOBJECT,
OBSERVE = :OBSERVE,
A = :A,
B = :B,
C = :C,
HILIMIT = :HILIMIT,
LOLIMIT = :LOLIMIT
where
UI = :OLD_UI and
NAMDEV = :OLD_NAMDEV and
TYPEDEV = :OLD_TYPEDEV and
OBJECT = :OLD_OBJECT and
SUBOBJECT = :OLD_SUBOBJECT and
OBSERVE = :OLD_OBSERVE and
A = :OLD_A and
B = :OLD_B and
C = :OLD_C and
HILIMIT = :OLD_HILIMIT and
LOLIMIT = :OLD_LOLIMIT
---
RefreshSQL:
Select
UI, NAMDEV, TYPEDEV, OBJECT, SUBOBJECT, OBSERVE, A, B, C, HILIMIT, LOLIMIT
from DEVIS
where
UI = :UI and
NAMDEV = :NAMDEV and
TYPEDEV = :TYPEDEV and
OBJECT = :OBJECT and
SUBOBJECT = :SUBOBJECT and
OBSERVE = :OBSERVE and
A = :A and
B = :B and
C = :C and
HILIMIT = :HILIMIT and
LOLIMIT = :LOLIMIT

Здравствуйте Мастера! Помогите-- TIBQuery - update...... Update Failed? Найти похожие ветки