Не получается сохранить в базе значение типа Currency

← →
Moiseev-KN © (2004-11-17 16:05) [0]

Процедура сохранения выглядит следующим образом:
begin IBDataSet2.Insert; IBDataSet2OLD_COST.AsCurrency := StrToCurr(LabeledEdit7.Text); IBDataSet2.Post; IBTransaction2.CommitRetaining; end;
в базу попадает нулевое значение, хотя в программе до поста значение присваивается верное...

← →
Johnmen © (2004-11-17 16:24) [1]

Пиши AsFloat.

← →
Rule © (2004-11-17 16:31) [2]

А ты почитай какие типы данных есть в интербейзе ...

← →
Moiseev-KN © (2004-11-17 16:32) [3]

> Johnmen © (17.11.04 16:24) [1]
> Пиши AsFloat.

Пробовал, та-же хрень, обошел это созданием хронимой процедуры которая и инсертит правильные значения...
Но все-же интересно почему не дает записать обычным способом.
Пробовал через IBX и через FIBPlus.
Надо будет на досуге (когда только он будет...) разобраться.

← →
Johnmen © (2004-11-17 16:35) [4]

>Moiseev-KN © (17.11.04 16:32) [3]
>та-же хрень

Не верю...:)

Как пробовал ? Код.

← →
Moiseev-KN © (2004-11-17 16:40) [5]

> Johnmen © (17.11.04 16:35) [4]
> >Moiseev-KN © (17.11.04 16:32) [3]
> >та-же хрень
>
> Не верю...:)
>
> Как пробовал ? Код.

begin IBDataSet2.Insert; IBDataSet2OLD_COST.AsFloat := StrToFloat(LabeledEdit7.Text); IBDataSet2.Post; IBTransaction2.CommitRetaining; end;
В базе тип поля ставим Float...

← →
Johnmen © (2004-11-17 16:45) [6]

А в наборе данных поле IBDataSet2OLD_COST какого типа ?

IBDataSet2OLD_COST: TFloatField;

Как выглядит InsertSQL ?

Johnmen © (17.11.04 16:47) [8]
вот тут автор осознал свою ошибку и наверное не захотел дальше продолжать ветку, а жаль :(

Не получается сохранить в базе значение типа Currency Найти похожие ветки