Как исправить исключение "ArgumentOutOfRange" при использовании Db Express компонентов в Delphi 11 для подключения к базе данных

Delphi , Базы данных , Ошибки БД

В процессе работы с DbExpress компонентами в Delphi 11 для подключения к базе данных можно столкнуться с исключением "ArgumentOutOfRange". Это исключение возникает при неправильном формировании SQL-запросов, особенно когда используется функция DATEADD с параметрами. В данной статье мы рассмотрим причины возникновения этой ошибки, предложим решение и рассмотрим альтернативные подходы для её устранения.

Введение

DbExpress — это набор компонентов для работы с базами данных, который обеспечивает высокопроизводительное подключение к различным СУБД. Однако при использовании этих компонентов в Delphi 11 могут возникать проблемы, связанные с неправильным формированием SQL-запросов. В данной статье мы рассмотрим одну из таких проблем — исключение "ArgumentOutOfRange" и предложим способы её устранения.

Причины возникновения исключения "ArgumentOutOfRange"

Исключение "ArgumentOutOfRange" возникает при попытке выполнения SQL-запроса, в котором параметры передаются неправильно. В частности, это может происходить при использовании функции DATEADD с параметрами, которые содержат отрицательные значения.

Рассмотрим пример, приведённый в контексте:

Scenario 1

q.SQL.Add('DECLARE @MinEffDate date =  DATEADD(DAY, -:dys, getdate())');
q.SQL.Add('DECLARE @MinRefDate date = :dt');
q.SQL.Add('select CONVERT(varchar(10), @MinEffDate, 101) AS MinEffDate, 
  CONVERT(varchar(10), @MinRefDate, 101) AS MinRefDate');
q.ParamByName('dys').AsInteger := 30;
q.ParamByName('dt').AsDateTime := StrToDateTime('2018-11-01 00:00:00');

В этом примере параметр :dys передаётся с префиксом -, что вызывает исключение "ArgumentOutOfRange".

Scenario 2

q.SQL.Add('DECLARE @MinEffDate date =  DATEADD(DAY, - :dys, getdate())');
q.SQL.Add('DECLARE @MinRefDate date = :dt');
q.SQL.Add('select CONVERT(varchar(10), @MinEffDate, 101) AS MinEffDate, 
  CONVERT(varchar(10), @MinRefDate, 101) AS MinRefDate');
q.ParamByName('dys').AsInteger := 30;
q.ParamByName('dt').AsDateTime := StrToDateTime('2018-11-01 00:00:00');

В этом примере параметр :dys передаётся с пробелом перед префиксом -, что позволяет избежать исключения.

Решение проблемы

Для устранения исключения "ArgumentOutOfRange" можно использовать несколько подходов.

Подход 1: Использование пробела перед префиксом -

Один из способов решения проблемы — добавление пробела перед префиксом - в параметре :dys. Это позволяет избежать исключения.

q.SQL.Add('DECLARE @MinEffDate date =  DATEADD(DAY, - :dys, getdate())');
q.ParamByName('dys').AsInteger := 30;

Подход 2: Использование умножения на -1

Другой способ — использование умножения параметра :dys на -1 для получения отрицательного значения.

q.SQL.Add('DECLARE @MinEffDate date =  DATEADD(DAY, -1 * :dys, getdate())');
q.ParamByName('dys').AsInteger := 30;

Подход 3: Использование параметра с положительным значением

Если возможно, можно передавать параметр :dys с положительным значением и использовать его в запросе с префиксом -.

q.SQL.Add('DECLARE @MinEffDate date =  DATEADD(DAY, -:dys, getdate())');
q.ParamByName('dys').AsInteger := -30;

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

Использование строковых параметров

Если проблема сохраняется, можно попробовать использовать строковые параметры вместо числовых. Это может помочь избежать проблем с интерпретацией значений.

q.SQL.Add('DECLARE @MinEffDate date =  DATEADD(DAY, -:dys, getdate())');
q.ParamByName('dys').AsString := '-30';

Использование встроенных функций Delphi

Delphi предоставляет множество встроенных функций для работы с датами и временем. Можно использовать эти функции для вычисления дат и времени перед передачей их в SQL-запрос.

uses
  System.SysUtils, DateUtils;

var
  MinEffDate: TDateTime;
begin
  MinEffDate := Now - 30;
  q.SQL.Add('DECLARE @MinEffDate date = :dt');
  q.ParamByName('dt').AsDateTime := MinEffDate;
end;

Заключение

Исключение "ArgumentOutOfRange" при использовании DbExpress компонентов в Delphi 11 для подключения к базе данных может возникнуть при неправильном формировании SQL-запросов. В данной статье мы рассмотрели причины возникновения этой ошибки и предложили несколько способов её устранения. Использование пробела перед префиксом -, умножение на -1 или передача параметра с положительным значением — это основные подходы для решения проблемы. Также можно рассмотреть использование строковых параметров или встроенных функций Delphi для вычисления дат и времени.

Надеемся, что данная статья поможет вам избежать проблем с исключением "ArgumentOutOfRange" и эффективно работать с DbExpress компонентами в Delphi 11.

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

В данном контексте рассматривается проблема возникновения исключения "ArgumentOutOfRange" при работе с DbExpress компонентами в Delphi 11 из-за неправильного формирования SQL-запросов с функцией DATEADD и предлагаются решения для её устранения.

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

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

:: Главная :: Ошибки БД ::