Update Failed

[BigSam]

Здравствуйте, нужна помощь, при попытке внесения изменения в таблицу выходит ошибка 'update failed', код ниже,
используется TUpdateSQL, текст запроса 'update test_table set ColA=:ColA,ColB=:ColB
where ColA=:Old_ColA and ColB=:Old_ColB'. Значения редактируются в DBGrid, затем после нажатия
кнопки ОК:

procedure TMainForm.ButtonOKClick(Sender: TObject);
begin
with Query1 do
begin
Database1.StartTransaction;
try
ApplyUpdates; 
Database1.Commit; 
except
Database1.Rollback; 
raise; 
end;
CommitUpdates; 
end;

изменения должны сохраняться в БД, но выходит выше упомянутая ошибка, не нашел ответа в гугле, может не так искал, не спорю, но нужна помощь, заранее спасибо!

 

[BigSam]

EDataBaseError

 

[BigSam]

Edatabase error with message 'update failed', прощу прощения забыл добавить Event объекта Query - On UpdateRecord :

procedure TMainForm.Query1UpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
UpdateSQL1.Apply(ukModify);
end;

вот после этого валится ошибка

 

[SNike]

Что за база данных? MS SQL, Firebird... ?
TUpdateSQL - из какой библиотеки, от сторонних разработчиков?

 

[BigSam]

база Oracle 10g, из библиотеки VCL

 

[SNike]

К сожалению, с Oracle не работал.
Попробуй выполнить запрос не из своей программы, а из другой. Наверняка ведь есть что-либо наподобие IBExpert, SQL Studio и т.п., которые позволяют работать с Oracle. Там ручками пропишешь SQL и попробуешь выполнить. Если не пройдет и оттуда - значит дело не в твоей программе