[Rus_lan]

Здравствуйте господа знающие.... Подскажите пожалуйста почему когда я выбираю тип параметра adoquery data type currency, автоматом ставиться тип float.
Просто мне надо параметру значение переменной типа currency присвоить...?

[lmikle]

Ну, видимо, так сделано.
С другой стороны, эти типы совместимы, так что особой проблемы я тут не вижу. А присваивать можешь спокойно через AsCurrency - он прекрасно это "съест".

[Rus_lan]

Просто у меня есть база access(mdb), при попытке добавить запись в таблицу через adoquery выскакивает ошибка "Несоответствие типов данных в выражении условия отбора".

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

SQL.Text:=' insert into  Platej ( Nom_dogovor,'+' date_platejaReal, Summa_Ostatok, Summa_plateja,'+'Penya, Prosrochka, date_platejaOsn,'+' Summa_Procent, Kolvo_platejei,'+' Summ_Osndolg, Sum_KonPlat)'+#13+                     'values (:ParNomDog,:ParDateplatejei,:ParSummOst,'+':ParSummPlateja,:ParPenya,'+ ':ParProsrochka,:ParDatePlatOsn,:ParSummProc,:ParKolPlatej,:ParSummOsnDolg, :ParSummKonPlat )';     Parameters.ParamByName('ParNomDog').Value :=StrToInt(ComboBoxNomDog.Text);  Parameters.ParamByName('ParDateplatejei').Value:=DatePlatej.DateTime; Parameters.ParamByName('ParSummOst').Value:=SummaOst; Parameters.ParamByName('ParSummPlateja').Value:=StrToCurr(SummaPlateja.Text); Parameters.ParamByName('ParPenya').Value:=0; Parameters.ParamByName('ParProsrochka').Value:=0; Parameters.ParamByName('ParDatePlatOsn').Value:=DatePlatOsn; Parameters.ParamByName('ParSummProc').Value:=0; Parameters.ParamByName('ParKolPlatej').Value:=KolPlatejei; Parameters.ParamByName('ParSummOsnDolg').Value:=StrToCurr(SummaPlateja.Text); Parameters.ParamByName('ParSummKonPlat').Value:=PerPlat1(SummaOst,KolPlatejei);        ExecSQL;

В последнем параметре PerPlat1-функция типа currency. С типами данных самой базы вроде бы все совпадает.... может есть какие различия в вещественных числах, ну там количество цифр после запятой. Хотя, как мне кажется это не должно влиять. Так что прошу помощи?
Кстати преобразование ascurrency не выскакивает в подсказке только value.

[Black Raider]

С чего вывод о том что именно из-за этого параметра ошибка?

[Rus_lan]

Так из-за какого именно?

[lmikle]

1. Станно, что не выскакивает.
2. Не надо присваивать значения через Value. используй соотв. AsDATATYPE.
3. Не надо этот запрос пихать в компонент в рантайме - сделай отдельный компонент с этим запросом, забитым статически.
4. Вообще, впечатление, что ошибку ты получаешь в другом запросе, т.к. в этом запросе нет "условия отбора". Смотри внимательнее.

[Rus_lan]

Все нашел ошибку, одному из параметров я присваиваю значение Tdate, а в базе соответствующее поле имеет тип Дата\Время, поменял TDate на TdateTime. Сейчас запись проходит. Не хочется присваивать значения через value, поэтому можно поподробнее про AsDATATYPE.