| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не могу сохранить int64 в поле bigint [D6, MSSQL]
Lbvf1 © (2004-02-09 14:51:00)
Не могу сохранить значение int64 в поле bigint
var i:int64;
....
// сохранение
q.ParamByName("p1").Value := i;
q.ExecSQL;
// записываю 1152921504606846976 (2^60)
// а там оказывается 1152921504606850000
// а чтение работает корректно
i := VarAsType(q.FieldByName("f1").AsVariant, varInt64);
записывать так вообще не получается, если значение больше 2^32
q.ParamByName("p1").Value :=
VarAsType(Variant(i), varInt64);
что делать?
Lbvf1 (2004-02-09 16:48:00) [1]
q.ParamByName("p1").Value := inttostr(i);
- СРАБОТАЛО!
ZrenBy (2004-02-09 15:27:00) [2]
Ну не умеют TADOxxx 6-ой версии работать с bigint.
Спасибо большое Borlandy
Извратиться можно так.
var i : Int64;
j : Integer;
v : Variant;
begin
i := -1234567890987654321;
v := VarArrayCreate([0,7],varByte);
for j:=0 to 7 do v[j] := PByte( Integer(@i)+7-j )^;
ADOQuery2.Parameters.ParamByName("A").Value := 3;
ADOQuery2.Parameters.ParamByName("M").Value := v;
ADOQuery2.ExecSQL;
M - DataType = ftBytes
Size = 8
Anatoly Podgoretsky (2004-02-09 15:03:00) [3]
Чистый double 15 значащих цифр
VLAD-MAL (2004-02-09 15:00:00) [4]
А какие компоненты доступа к данным? BDE не умеет, кажись... Что-то настраивать нужно...
| |
