Исправление ошибки работы с полями TIMESTAMP в Delphi XE8 и MSSQL

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

Введение

В процессе обновления проекта с использованием Delphi XE до версии XE8 была обнаружена проблема, связанная с использованием поля типа TIMESTAMP в базе данных MSSQL. При попытке выполнения запроса с параметром в WHERE-клаузе, используя поле TIMESTAMP, результаты запроса отсутствовали. Это указывает на проблему в процессе чтения TIMESTAMP из базы данных.

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

Пользователи столкнулись с ситуацией, когда после обновления проекта с Delphi XE до XE8, запросы к базе данных MSSQL, использующие параметр типа TIMESTAMP в WHERE-клаузе, перестали возвращать результаты. Пример кода, который ранее работал в Delphi XE, теперь не выполняется в Delphi XE8:

procedure TForm2.Button1Click(Sender: TObject);
begin
  ADODataset1.CommandText := 'SELECT * FROM CURRENCYAUDIT';
  ADODataset2.CommandText := 'SELECT * FROM CURRENCYAUDIT WHERE Audit_Timestamp = :Timestamp';
  ADODataset2.Parameters.Refresh;
  // ... остальной код ...
  ADODataset2.Parameters[0].Value := ADODataset1.FieldByName('audit_timestamp').Value;
  ADODataset2.Open;
  // ... остальной код ...
end;

Проблема заключается в том, что при попытке использовать методы AsString, AsSQLTimestamp и AsBytes для параметра, результаты оставались нулевыми. В отладке было замечено, что значения, возвращаемые полем TIMESTAMP, различаются между версиями Delphi XE и XE8, что указывает на возможный баг в чтении данных из базы данных.

Подтвержденный ответ

Пользователь обнаружил, что использование метода AsVariant и последующая передача значения в параметр запроса работает в Delphi XE, но не в XE8. Однако, был найден альтернативный способ решения проблемы:

procedure TForm2.Button1Click(Sender: TObject);
var
  TestArray: TArray<Byte>;
  j: Integer;
  function Int64ToByteArray(const inInt: uint64): TArray<Byte>;
  // ... реализация функции Int64ToByteArray ...
begin
  // ... код для выполнения запроса с преобразованием TIMESTAMP в byte array ...
end;

В этом примере используется функция Int64ToByteArray, которая преобразует 64-битное целое число в массив байтов. Это позволяет корректно передать значение TIMESTAMP в качестве параметра запроса в Delphi XE8.

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

Также было предложено альтернативное решение, которое заключается в использовании SQL-конвертации поля TIMESTAMP в целое число на стороне сервера:

select *, convert(int, atimestamp) as inttimestamp from timestamps

И соответствующего параметра в запросе:

select *  from timestamps where convert(int, atimestamp) = :inttimestamp

Это позволяет избежать необходимости использования параметра с массивом байтов во втором запросе.

Заключение

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

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

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

Исправление ошибки в Delphi XE8 при работе с полями TIMESTAMP в MSSQL после обновления с Delphi XE.

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

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

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