Доброго времени суток.

Delphi 10.3 FireDac Firebird.

Бросил на форму 4 компонента FDConnection FDTransation FDQuery и FDDriver.

Параметры транзакции:
write
read_committed
rec_version
nowait

Написал процедуру, которая редактирует в БД запись, сделал к ней select через FDQuery и передал параметры:

function TForm1.EditEventsTest(var i, outError: Integer): Variant;
begin
with qEventEdit do
begin
if not Transaction.Active then
Transaction.StartTransaction;
try
ParamByName('AOPERATION').Value := 1;
ParamByName('ID').Value := '454A9F34-E0F2-4273-8BEC-ED11AFAC0BAE';
ParamByName('ID_DOCUMENT').Value := '9CF8A379-D83C-4B56-8721-0715896E3241';
ParamByName('KIND').Value := 2;
ParamByName('TIME$EVENT').Value := Null;
ParamByName('TIME$LAST_SEND').Value := Null;
ParamByName('SEND$RESULT').Value := IntToStr(i);// 'test';
ParamByName('IS_SENDED').Value := 1;
ParamByName('SEND$COUNTER').Value := 35;
ParamByName('STATE').Value := 0;
Open;

Result := FieldByName('OUT_ID').Value;
outError := FieldByName('OUT_ERROR').AsInteger;

if (outError = 0) then
begin
Transaction.Commit;
end
else
Transaction.Rollback;
except
Transaction.Rollback;
end;
end;
end;

Собственно, вопрос, почему первый commit вносит изменения в базу данных, а последующий вызов процедуры нет, ошибок при этом не возникает.

Ошибки в запросе быть не может быть т.к. клиент на Delhi 7 всё прекрасно редактирует.

Упростил приложение для того, что бы понять в чём проблема. У приложения одна единственная пишущая транзакция, чтения приложение не осуществляет.

Dimitry Sibiryakov, код 100% рабочий, просто выкинул обработку out_Error + есть debug в делфи =) умеем проктикуем. Он встаёт на commit и всё, а в БД изменений нет. Но при первом запуске программы всё работает.

Мимопроходящий, текст чего?

Dimitry Sibiryakov, судя по ответам, вы совсем не понимаете сути проблемы. По этому что бы вы дибила из меня не делали отвечаю...

Сделал тестовые таблицы и 1 процедуру





Затем в делфи sql запрос и процедуру








Так вот если мы просто напишем в компоненте update TEST_TABLE TT set TT.NAME = :NAME where (TT.TID = 1); и затем вызовем метод ExecSql. Всё работает.

А в моём случае с хранимкой работает лишь первый commit далее изменения не попадают в БД.

Dimitry Sibiryakov, признаюсь честно никогда не юзал, но в IBExpert-е почему-то пишет, не найдено сессий. Хотя запустил и своё приложение и написанное на Delphi 7, уж оно то точно должно было отобразиться.

hvlad, Ошибка не в коде, а в методе Open...

Dimitry Sibiryakov, эх... нет, скорее всего это моё неправильное использование трассировки.

Я специально для вас, пока мы вели дисскусию создал тестовую таблицу с процедурой, если бы я коннектился к другой БД то ошибка вылетела Exists, а так признаки те же:

Выполняешь через FireDac прямой запрос к таблице Update Test where Column и вызываешь ExecSQL.

А если через процедуру, которая возвращает данные тобеж selet * from procedure() и вызываешь метод Open, изменения упадут лишь 1 раз.

Гаджимурадов Рустам, Execute ошибка, используйте метод Open. Там в хранимке запрос я кидал выше таблица из 2х полей, меняет одну запись.




Собственно, накидал IB компонентов код не меняя всё работает изменил в with ibquery do и всё работает. Но вопрос остаётся открытым почему FireDac коммитит изменения только 1 раз и всё при вызове в select ХП.

Dimitry Sibiryakov, всё тему можно закрыть.

Видимо свзяано это с каким-то оптимизаторов внутри компонента.




Обязательно добавьте Refresh.

Всем спасибо все свободны...

Vlad F, есть у делфи дебаг... можно посмотреть состояние транзакции после коммита. Сядь да потестируй вон выше код есть. Смысл вот этих бездумных отписок?

Ivan_Pisarevsky, внимательность 100500 весь смысл как раз в suspende и в этой процедуре возвращается out_error, которому присвоенна 1-ца и сделанно, так для примера, что бы убедится, что там не null и т.п. В реальной жизни процедура возвращает не только out_error поэтому нужна была именно такая процедура. Которая пишет и возвращает какой либо результат, в следствии чего мы вынуждены использовать метод Open и т.д. т.п. всё то что было выше.