Проблема с кэшированием данных в Delphi XE8: решение ошибки "Unable to find record. No key specified" в базе Firebird 2.5

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

Вопрос пользователя связан с разработкой на Delphi XE8 и использованием базы данных Firebird 2.5. При работе с модулем данных, содержащим компоненты для подключения к базе и выполнения SQL-запросов, возникает ошибка "Unable to find record. No key specified". Это происходит при попытке обновить данные в таблице, которая не имеет определенного ключа, так как в ней допускаются повторяющиеся значения. После первого успешного выполнения кода, при повторном нажатии кнопки, которая должна очистить таблицу и заполнить ее новыми данными, происходит ошибка, несмотря на то, что таблица физически пуста.

Объяснение проблемы

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

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

Чтобы решить проблему, необходимо обновить код следующим образом:

1. Удалить все записи в таблице, используя SQL-запрос напрямую через соединение с базой данных, не через клиентский набор данных.
2. При заполнении таблицы новыми данными использовать функцию Locate клиентского набора данных, чтобы убедиться, что запись с такими же данными не существует в наборе данных перед вставкой новой записи.

Вот примерный код, который демонстрирует эти шаги:

procedure DeleteAll;
var
  Qry: TSqlQuery;
begin
  Qry := TSqlQuery.Create(nil);
  try
    Qry.SqlConnection := DMDados.conexao;
    Qry.Sql.Text := 'DELETE FROM PORTICO_INICIAL;';
    Qry.ExecSql;
  finally
    Qry.Free;
  end;
end;

procedure monta_portico();
var
  I, K, L, M: Integer;
begin
  with DMDados do
  begin
    DeleteAll;
    K := 1;
    for I := 1 to 10 do
    begin
      L := I * 100;
      for M := 1 to 3 do
      begin
        if not cdsBDPortico_Inicial.Locate('NPORTICO', M + L, []) then
        begin
          cdsBDPortico_Inicial.Insert;
          cdsBDPortico_Inicial.FieldByName('NPORTICO').AsInteger := M + L;
          cdsBDPortico_Inicial.FieldByName('ELEMENTO').AsInteger := M;
          cdsBDPortico_Inicial.Post;
        end;
      end;
    end;
    cdsBDPortico_Inicial.ApplyUpdates(0);
  end;
end;

Альтернативное решение

Также было предложено использовать функцию RowExists для проверки наличия записи перед вставкой:

function RowExists(ADataset: TDataSet; FieldNames: String; Values: Variant): Boolean;
begin
  Result := ADataset.Locate(FieldNames, Values, []);
end;

Использование транзакций и подготовленных запросов может улучшить производительность и надежность работы с данными:

procedure monta_portico();
var
  Qry: TSqlQuery;
  _p_EL, _p_NP: TParam;
  Tra: TDBXTransaction;
  I, K, L, M: Integer;
begin
  Tra := nil;
  Qry := TSqlQuery.Create(DMDados.conexao);
  try
    Qry.SqlConnection := DMDados.conexao;
    Tra := Qry.SqlConnection.BeginTransaction;
    Qry.Sql.Text := 'DELETE FROM PORTICO_INICIAL';
    Qry.ExecSql;

    Qry.Sql.Text := 'INSERT INTO PORTICO_INICIAL(NPORTICO,ELEMENTO) VALUES (:NP,:EL)';
    Qry.Prepared := True;
    _p_EL := Qry.ParamByName('EL');
    _p_NP := Qry.ParamByName('NP');

    K := 1;
    for I := 1 to 10 do
    begin
      L := I * 100;
      for M := 1 to 3 do
      begin
        _p_NP.AsInteger := M + L;
        _p_EL.AsInteger := M;
        Qry.ExecSql;
        Inc(K);
      end;
    end;

    Qry.SqlConnection.Commit;
  except
    on E: Exception do
    begin
      Qry.SqlConnection.Rollback;
      raise;
    end;
  finally
    Qry.SqlConnection.CommitFreeAndNil(Tra);
    Qry.Free;
  end;
end;

Заключение

Использование транзакций, подготовленных запросов и корректное управление клиентскими наборами данных позволяет избежать проблем с кэшированием и обновлением данных в базе данных Firebird. Приведенные примеры кода демонстрируют, как можно решить возникшую проблему.

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

Пользователь столкнулся с ошибкой в Delphi XE8 при работе с базой данных Firebird 2.5, связанной с неправильным кэшированием данных в клиентском наборе данных после удаления записей.

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

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

:: Главная :: Interbase ::