Устранение ошибки "Arithmetic overflow" при вставке данных в MSSQL через Delphi и правильное маппинг типов данных

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

Вопрос, поднятый в данном запросе, касается возникновения ошибки "Arithmetic overflow" при попытке вставки данных в таблицу MSSQL через компонент TFDQuery в среде Delphi, когда активны правила маппинга для типов данных BCD. Ошибка возникает из-за несоответствия типов данных в параметрах запроса и в самой таблице базы данных.

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

В базе данных MSSQL создана таблица TESTPAR с двумя полями: ID типа INTEGER и YR типа VARCHAR(50). При использовании компонента TFDQuery с текстом команды для вставки данных происходит попытка приведения параметра YR к типу VARCHAR(4), что приводит к ошибке "Arithmetic overflow" при активных правилах маппинга для типов dtBCD и dtFmtBCD.

Пример кода

procedure TFrmCastAsVarchar.BtnTestInsertClick(Sender: TObject);
begin
   Inc(FLastID);
   FDQuery2.Params[0].AsInteger := FLastID;
   FDQuery2.Params[1].AsInteger := 2018; // Здесь проблема, так как значение 2018 не является строкой
   try
      FDQuery2.ExecSQL;
   except
      on E:Exception do ShowMessage(E.Message);
   end;
end;

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

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

Шаги по устранению ошибки:

1. Использовать правильный тип данных в таблице базы данных.
2. Отключить правила маппинга, если они не нужны.
3. Использовать правильный тип данных параметра и передавать значение в том виде, в каком оно есть на самом деле (например, как строка, а не как целое число).
4. Преобразовать параметр в целое число с последующим преобразованием в строку, например, CAST(CAST(:YR AS INTEGER) AS VARCHAR(4)), но это решение не рекомендуется, так как исходное значение теряется.

Альтернативный способ решения: Исправление правил маппинга

procedure TDM.SetBCDMapRules;
begin
   with FDConnection.FormatOptions.MapRules.Add do
   begin
      // Правильное преобразование типов данных
      SourceDataType := dtUnknown; // Отмена всех правил маппинга для BCD типов
      TargetDataType := dtUnknown;
   end;
end;

Исправленный код вставки данных

FDQuery2.Params[1].AsString := '2018'; // Значение 2018 приведено к строковому типу

Используя этот подход, вы избежите конфликтов типов данных и ошибок преобразования при вставке данных в таблицу TESTPAR.

Заключение

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

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

Вопрос связан с устранением ошибки 'Arithmetic overflow' при выполнении вставки данных в базу данных MSSQL через Delphi, вызванной неправильным маппингом типов данных.

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

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

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