- Код: Выделить всё
 q:TSQLQuery;
 trn: TSQLTransaction;
 trn.StartTransaction;
 q.Prepare;
 If not q.Prepared then begin
 q.Prepare;
 end;
 q.Params[0].AsDateTime:=Now;
 q.Params[1].AsInteger:=111;
 q.ExecSQL;
 trn.Commit;
Если этот код выполнить 2 раза (без уничтожения /создания q и trn), то выдаст ошибку:
Добавлено спустя 2 минуты 20 секунд:
Несоответсвие fbclient.dll с версией сервера исключено. Минипроект не работает на 2-х компах.
Придется откатываться назад на старую версию...
Добавлено спустя 8 минут 27 секунд:
Забыл добавить:
Вин 7 х64, проект х32.
Если нужно для багтрекера - могу скинуть весь проект с БД, но там БД 10 мб.



