Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

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


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



andey   (2002-01-08 21:17) [1]

Попробуй без
QDevv.SQL.Add(" order by DEVIS.UI ");
по моему при сортировке не редактируется.



Tadi   (2002-01-09 10:48) [2]

Я пробовал и с
QDevv.SQL.Add(" order by DEVIS.UI ");
и без QDevv.SQL.Add(" order by DEVIS.UI ");
результат одинаковый....




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
1-18893           VladimirL             2002-01-23 14:29  2002.02.07  
Как отправить StringGrid на печать целиком?


1-18862           Лана Розанова         2002-01-22 14:51  2002.02.07  
Про Это.


6-18924           Arseny                2001-11-12 20:59  2002.02.07  
Client-Server


1-18820           VladimirL             2002-01-23 18:56  2002.02.07  
Персонально для Delirium


1-18835           ТеньЛуны              2002-01-21 15:54  2002.02.07  
Как установить свойство политры компонентов MultiLine в true?