Ошибка violation of PRIMARY or UNIQUE KEY при работе с базой Firebird (DataSnap)

@UbezhaloOdeyalo · Регистрация: 14.01.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые форумчане!

Помогите,пожалуйста, если кто может подсказать, помочь советом..

Есть сервер DataSnap, который обновляет таблицы в базе данных Firebird. База создавалась не мной, я работаю с тем, что есть (разве что хранимые процедуры могу добавлять).

Так вот на сервере есть метод, в котором обновляется поле f1 таблицы t1 (хр.проц. my_proc1), и если всё прошло успешно, и выполнено еще некоторое условие, то следом идёт обновление поля f2 той же таблицы (хр.проц. my_proc2).
(это для простоты имена полей и таблиц заменены на t1, f1 и т.д.)

вообще, суть метода примерно такая:
1.сначала из базы получается исходное значение поля f1 (GET_F1)
2.затем с ним проводятся некие манипуляции
3.затем вызывается хранимая процедура MY_PROC1
4.и если всё хорошо, то вызывается ХП MY_PROC2

А в базе присутствует триггер, который перед обновлением записи в таблице t1 копирует обновляемую запись в таблицу hist_t1

SQL
1
2
3
4
5
6
7
CREATE OR ALTER TRIGGER T1_BU1 FOR T1
active BEFORE UPDATE POSITION 1
AS
BEGIN
  INSERT INTO hist_t1(dcode, upl_date, f1, f2)
  VALUES (NEW.dcode, CURRENT_TIMESTAMP, NEW.f1, NEW.f2);
END

Таким образом, после выполнения метода сервера в hist_t1 могут быть две почти одинаковые записи. "Почти" - потому что часть первичного ключа в hist_t1 - это поле типа timestamp, и эти две записи могут различаться только по этому полю на несколько миллисекунд.

Суть моей беды в том, что периодически возникает ошибка
Ошибка TDBXError: violation of PRIMARY or UNIQUE KEY constraint "HISTT1_PK" on table "HIST_T1"
Problematic key value is ("DCODE" = 2, "UPL_DATE" = '2017-04-21 12:31:36.7970')
At trigger 'T1_BU1' At procedure 'MY_PROC2'

То есть, как я понимаю, триггер пытается добавить в hist_t1 запись с неуникальным ключом
Перед первым обновлением таблицы t1 запись в hist_t1 добавляется, а перед вторым обновлением хочет добавиться точно такая же

Ошибка возникает не каждый раз при вызове метода, причем у меня на компьютере, где разрабатываю, она ни разу не возникала

Это мой первый опыт с datasnap, возможно, чего-то еще не знаю/не понимаю
Подскажите, пожалуйста, куда копать, что исправлять.

Delphi XE2
Сервер Firebird 2.1
в свойствах SQLConnection1:

Code
1
2
ConnectionName=FBConnection
Driver=Firebird

в свойствах DSServerClass:

Code
1
LifeCycle=Session

В процедуре TServerMethods1.DSServerModuleCreate идет подключение к базе:

Delphi
1
2
3
4
5
6
7
8
9
10
11
  SQLConnection1.Params.Values['Database']:=strDataBaseName;
  TRY
      SQLConnection1.Connected:=true;
      result:=true;
  EXCEPT
    on err:TDBXError do begin
       loginfo('Ошибка '+err.Message);
       result:=false;
    end
    else raise;
  END;

@kebot · 21.04.2017, 13:21

а чем обусловлена необходимость - составного первичного ключа ?
скорее всего этих проблем удастся избежать если будет обычное одиночное id поле в качестве pk

@UbezhaloOdeyalo · 21.04.2017, 13:56 **[ТС]**

да я в общем-то тоже так думаю, но мне досталась база уже с готовой структурой, сказали, менять ничего нельзя, можно только добавить что-то своё и с этим работать (таблицы, процедуры, генераторы...).
а эта таблица вместе с триггером уже были.

причем у меня на компе такой ошибки не было

может, нужно каким-то образом параметры задать у SQLConnectioin1?

Code
1
2
3
CommitRetain=False
WaitOnLocks=True
IsolationLevel=ReadCommited

или что-то еще поменять. просто не понимаю, почему ошибка не всегда возникает, с чем это связано

@krapotkin · 21.04.2017, 14:10

если быстро вставлять, то таймстамп будет шибко одинаковым, поэтому и совпадет
нужно ставить замедление чтобы пара миллисекунд уходила )))
но это конечно треш

@UbezhaloOdeyalo · 21.04.2017, 14:45 **[ТС]**

Сообщение от krapotkin

если быстро вставлять, то таймстамп будет шибко одинаковым, поэтому и совпадет

так-то оно так)
при выполнении методов сервера велся лог в текстовый файл, добавила еще миллисекунды, так там записи обоих обновлений по времени совпадают до мс, причем всегда. а ошибка не всегда появляется

Сообщение от krapotkin

нужно ставить замедление чтобы пара миллисекунд уходила )))

если делать какое-то замедление на 1-2мс, то как это будет выглядеть в методе?

дали добро на небольшое изменение триггера, вместо insert написала update or insert. теперь он такой
пока вроде всё нормально)

SQL
1
2
3
4
5
6
7
CREATE OR ALTER TRIGGER T1_BU1 FOR T1
active BEFORE UPDATE POSITION 1
AS
BEGIN
  UPDATE OR INSERT INTO hist_t1(dcode, upl_date, f1, f2)
  VALUES (NEW.dcode, CURRENT_TIMESTAMP, NEW.f1, NEW.f2);
END

@krapotkin · 21.04.2017, 15:08

select max(id) from table where. ...
вполне даст нам пару
но UPSERT конечно лучше

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@kebot 9 / 9 / 4 Регистрация: 11.07.2012 Сообщений: 200
	21.04.2017, 13:21
	а чем обусловлена необходимость - составного первичного ключа ? скорее всего этих проблем удастся избежать если будет обычное одиночное id поле в качестве pk 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,670 Записей в блоге: 21
	21.04.2017, 14:10
	если быстро вставлять, то таймстамп будет шибко одинаковым, поэтому и совпадет нужно ставить замедление чтобы пара миллисекунд уходила ))) но это конечно треш 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,670 Записей в блоге: 21
	21.04.2017, 15:08
	select max(id) from table where. ... вполне даст нам пару но UPSERT конечно лучше 0