Несоответствие типов Access с фиксированной точкой и VBA

[McConst]

Здравствуйте
Пытаюсь передать параметр @Size на VBA в запрос Access. Параметр в Access соответсвует типу: "Действительное, фиксированное, точность 2, шкала 1, число десятичных знаков 1".

Код: (vb)

Dim Size as Double
Dim TempParam as Variant

'Дальше идет кусок кода где в частности присваивается Size=1,9

    If Size = 0 Then
        TempParam = Null
    Else
        TempParam = Size
    End If
    Command2.Parameters.Append Command2.CreateParameter("@Size", 131, 1, 2) 'Создаем параметр  c фиксир. точностью, 2 байта
    With Command2.Parameters("@Size")
        .NumericScale = 1 '1 знак после запятой
        .Precision = 2 'Точность - два знака (1 до точки и 1 после точки)
        .Value = TempParam
    End With
    
    Command2.Execute 'Выполняем запрос, который должен занести Size в поле таблицы Access c фиксир. точкой

Команда Execute выдает ошибку "Несоответствие типов данных в выражении условии отбора"
Долго перебирал типы, искал  в Гугле, наконец сдался. Может кто поможет, как задать правильно параметр на VBA
Прикрепил файлы Access и Excel в архиве.
В модуле Excel DBWork процедура Main - создает соединение с базой данных и пытается сделать запись в таблицу через запрос Access. Проблема именно в типе переменной @Size, так как запрос без этой переменной работает корректно.

[McConst]

Ещё заметил. Если Size целое число, то ошибок никаких нет, всё передается в таблицу отлично, команда выполняется нормально. Если Size дробное - тогда вылезает ошибка несоответствия типов.

[McConst]

Так как никто не ответил, упростил себе жизнь, вместо adNumeric=131 (числовой с фиксированной точкой), поставил adSingle=4 (одинарное с плавающей точкой) и в таблице Access поставил на прием плавающую точку.
Убрал .NumericScale и .Precision
Всё заработало. Правда, подозреваю,  объем базы данных вырастет.
В Access похоже, adNumeric нет, используется только adDecimal=14. Если задавать в конструкторе запроса Тип параметра принудительно, то на "Действительное" в SQL-режиме подставляется Decimal
Но вариант с .CreateParameter("@Size", 14, 1) точно так же дает ошибку типа.


Только что проверил. Если передавать параметр как с плавающей точкой

Код: (vb)

.CreateParameter("@Size", 4, 1)

А в Access для поля задано "Действительное, фиксированное, точность 2..." - как мне и нужно было, то Access сам преобразует Single в нужный фиксированный формат без возвращения ошибки.
Т.е. вопрос можно сказать, решен.

[Дмитрий Щербаков(The_Prist)]

Правильнее заносить, наверное, так:

Код: (vb)

.Value = Str(TempParam)

потому что тип Double в VBA всегда содержит число с разделителем разрядов, установленным в системе, а для передачи в Access требоваться может иной разделитель. Функции Str приводит число в нужный для передачи формат.

[McConst]

Не получается.
Если вместо TempParam поставить явным образом "1,9" в кавычках, ошибка та же самая возвращается от Access, если поставить "1.9", то тут уже ADODB глючит и не хочит конвертить, пишет, ошибка преобразования типов. Что-то такое. Не получилось.

[Дмитрий Щербаков(The_Prist)]

Тут сложно что-то советовать было изначально, т.к. Вы не пишите ни откуда обращаетесь, ни как создаете объекты, ни какой провайдер используется.

[Дмитрий Щербаков(The_Prist)]

кстати, почему только 2 байта? Не маловато для Double? Даже Integer требует минимум 4
И почему именно adNumeric, а не конкретно adDouble?
131 = adNumeric
5 = adDouble

И неплохо бы понимать, откуда берется значения для Size. Объявлено как Double - значит уже может не подходить под тип adNumeric, т.к. "с плавающей запятой". Возможно, надо сначала округлить до нужного числа знаков.

[McConst]

Size - это объем автомобильных двигателей. Типа 2,0; 4,5. Там точность double не нужна, и этим экономится память в базе данных. Предполагается, что объем таблицы будет более 10 тыс записей. Я сайз передаю в метод пользовательского класса, который будет сохранять данные в Access. В метод класса величины попадают из ячеек Excel. С округлением пробовал, не помогало.

К топику темы прикреплены файл Excel и таблица Access - там можно поюзать. Все способы перепробовал, ничего не помогало, пока не заменил в параметрах на тип Single - константа 4. При такой передаче Access сам сконвертил в adDecimal. Меня это устроило. Просто пишу класс с перспективой переделать под SQL-сервер. С SQL-сервером я подобные задачи уже решал, там таких проблем не было.Это особенность Access