- Код: Выделить всё
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 мб.