Оптимизация обновления данных в DataSnap REST: получение дельта-записей для динамического UPDATE

Delphi , Базы данных , SQL

При разработке клиент-серверных приложений с использованием Delphi и DataSnap REST важно обеспечить эффективное обновление данных, особенно в условиях одновременной работы нескольких пользователей. В статье рассматривается проблема одновременного обновления всех полей записей и предлагается решение, позволяющее обновлять только измененные данные, идентифицируя записи по уникальным полям.

Проблема

При использовании компонента TFDJSONDeltasApplyUpdates для обновления данных все поля записи обновляются одновременно, что приводит к использованию значений OLDVALUE для идентификации исходной записи. В случае, если другой пользователь изменил одни или несколько полей в той же записи, клиентское приложение может сгенерировать ошибку, так как обновление будет пытаться применить все изменения, не учитывая предшествующие изменения других пользователей.

Решение

Для решения проблемы необходимо получить дельта-записи из TFDJSONDeltas, что позволит создать SQL-запрос UPDATE с учетом только измененных значений. Идентификация записи будет производиться по уникальным полям, таким как первичный ключ.

Пример кода

procedure TServerMethodsMain.ApplyDataSetChanges(const ATableName: String;
                                                 const ADeltaList: TFDJSONDeltas);
var
  LApply: IFDJSONDeltasApplyUpdates;
begin
  // Создание объекта для применения изменений
  LApply := TFDJSONDeltasApplyUpdates.Create(ADeltaList);

  // Настройка FDQuery для обновления
  DataModule1.FDQuery1.UpdateOptions.UpdateTableName := ATableName;

  // Важно: Установка свойства KeyFields
  DataModule1.FDQuery1.UpdateOptions.KeyFields := 'PrimaryKeyField'; // Замените на имя поля первичного ключа

  // Установка режима обновления на upWhereKeyOnly
  DataModule1.FDQuery1.UpdateOptions.UpdateMode := dmUpWhereKeyOnly;

  // Применение обновлений
  LApply.ApplyUpdates(ATableName, DataModule1.FDQuery1.Command);

  // Проверка на наличие ошибок
  if LApply.Errors.Count > 0 then
    raise Exception.Create(LApply.Errors.Strings.Text);
end;

Подтвержденное решение

Библиотека FireDAC, используемая в Delphi, предоставляет множество опций для оптимизации обновления данных. Одно из ключевых решений - это установка свойства KeyFields компонента FDQuery, что позволяет обновлять записи, идентифицируя их по уникальным полям, и игнорировать изменения в остальных полях. Свойство UpdateMode должно быть установлено в dmUpWhereKeyOnly, что указывает на необходимость обновления только по ключевым полям.

Важные замечания

Необходимо учитывать, что свойство KeyFields должно быть установлено до подготовки или открытия набора данных. Это важно для корректной работы механизма обновления.

Заключение

Применение предложенных настроек позволит оптимизировать процесс обновления данных в клиент-серверных приложениях, использующих Delphi и DataSnap REST, обеспечивая более высокий уровень согласованности данных и уменьшая вероятность возникновения конфликтов при одновременном доступе.

Комментарии

Благодарим за советы, которые оказались очень полезными и позволили решить возникшую проблему. Рекомендуем обратить внимание на необходимость установки свойства KeyFields перед подготовкой набора данных для тех, кто столкнется с подобными проблемами.

Создано по материалам из источника по ссылке.

В статье рассматривается проблема эффективного обновления данных в клиент-серверных приложениях с использованием Delphi и DataSnap REST, предлагается решение для обновления только измененных данных с использованием дельта-записей и уник

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: SQL ::