Решение проблемы с исключением при работе с SQL-временем в Delphi 10.2.3 Tokyo и FireDac

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

При работе с базой данных SQL Server через компоненты FireDac в Delphi 10.2.3 Tokyo пользователи могут столкнуться с исключением, связанным с некорректным парсингом строки SQL-времени. Это происходит, когда в запросе устанавливается фильтр по полю Date_Document типа datetime. В данной статье мы рассмотрим, как правильно настроить фильтрацию данных в таком случае.

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

Разработчики, использующие Delphi 10.2.3 Tokyo в сочетании с FireDac для работы с базой данных SqlServer (2016), могут столкнуться с ошибкой "could not parse SQL timesamp string" при попытке установить фильтр по полю Date_Document в запросе. Это может быть вызвано неправильным форматированием строки запроса.

Пример кода, вызывающего ошибку

В коде, представленном ниже, используется метод SQLTimeStampToStr для преобразования даты в строку, которая затем используется в запросе. Однако, такой подход может привести к исключению, так как форматирование строки не соответствует ожидаемому формату SQL-времени.

procedure TfrmMain.fltDateEdt2Change(Sender: TObject);
var
  dat1, dat2: TSQLTimeStamp;
begin
  if (fltDateEdt1.Text <> '  /  /    ') and (fltDateEdt2.Text <> '  /  /    ') then
  begin
    if fltDateEdt1.Date < fltDateEdt2.Date then
    try
      dat1 := DateTimeToSQLTimeStamp(fltDateEdt1.Date);
      dat2 := DateTimeToSQLTimeStamp(fltDateEdt2.Date);
      comps.qryMain.Filter := Format('%s>=%s AND %s<=%s', [
        'DATE_DOCUMENT', SQLTimeStampToStr('YYYY-MM-DD', dat1).QuotedString,
        'DATE_DOCUMENT', SQLTimeStampToStr('YYYY-MM-DD', dat2).QuotedString
      ]);
      comps.qryMain.Filtered := True;
    except
      // обработка исключений
    end;
  end
  else
  begin
    comps.qryMain.Filtered := False;
    comps.qryMain.Filter := '';
  end;
end;

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

Для корректной работы с SQL-временем в FireDac рекомендуется использовать escape последовательности. Это позволит избежать ошибок, связанных с парсингом строк. Пример корректного формирования фильтра:

comps.qryMain.Filter := Format('DATE_DOCUMENT >= {dt %s 00:00:00} AND DATE_DOCUMENT <= {dt %s 23:59:59}', [
  FormatDateTime('yyyy-mm-dd', fltDateEdt1.Date),
  FormatDateTime('yyyy-mm-dd', fltDateEdt2.Date)
]);

Такой подход позволяет FireDac самостоятельно преобразовать указанный формат даты в формат, понятный SQL Server.

Альтернативный подход

Кроме использования escape последовательностей, можно воспользоваться обработчиком события OnFilterRecord для более гибкой настройки фильтрации. Это позволит выполнить дополнительные проверки и преобразования перед применением фильтра.

Заключение

При работе с SQL-временем в Delphi и FireDac важно правильно форматировать строки запросов, используя escape последовательности или события обработчика фильтра. Это обеспечит корректную работу с данными и избегание исключений, связанных с парсингом строк.

Эта статья поможет разработчикам, столкнувшимся с аналогичной проблемой, правильно настроить фильтрацию данных в запросах к SQL Server, используя компоненты FireDac в среде Delphi 10.2.3 Tokyo.

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

Проблема связана с неправильным парсингом SQL-времени при работе с базой данных SQL Server через FireDac в Delphi 10.2.3 Tokyo, что приводит к исключениям при установке фильтра по полю типа datetime.

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

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

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