Delphi+Titan+Pervasive nrec

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Delphi+Titan+Pervasive nrec

Сообщение Свои »

Привет Всем!
к Pervsive-у подключаюсь с компонентами Titan через Delphi5.
подскажите как решить проблему с числами Int64 (nrec).
Например как сделать поиск по nrec-у?
пробовал так: KatMC.Locate('nrec',4640000000000005899,[])
не компилируеть, выдаеть Incompatible types: 'Variant' and 'Int64'.
а если передать как строку, ничего не находит :(.
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

так пробовали

Код: Выделить всё

var
     V: Variant;

begin
        V :=4640000000000005899;
        KatMC.Locate('nrec',V,[]);
end;
Правда, сам не работал с компонентами, поэтому не могу определенно сказать что происходит при передаче данных типа Comp.
Жду выхода Вселенная 2.12!
san
Местный житель
Сообщения: 412
Зарегистрирован: 28 апр 2005, 11:34
Откуда: Галактика Млечный Путь

Сообщение san »

а мы пробовали Pervasive Data Access Component (PDAC) для Delphi и тоже не работает с comp, отсюда вывод - в галактике драйвер лучше :)
Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Сообщение Свои »

Max_Fin писал(а):так пробовали

Код: Выделить всё

var
     V: Variant;

begin
        V :=4640000000000005899;
        KatMC.Locate('nrec',V,[]);
end;
Правда, сам не работал с компонентами, поэтому не могу определенно сказать что происходит при передаче данных типа Comp.
Пробовал, выдает ту же ошибку...
Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Сообщение Свои »

Можеть какая то функция есть,
Int64ToVariant или еще что-то такое?
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

Я ж написал код, какая еще функциональность требуется
Жду выхода Вселенная 2.12!
Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Сообщение Свои »

Max_Fin писал(а):Я ж написал код, какая еще функциональность требуется
Я пробовал так написать, но
при присвоении
V :=4640000000000005899;

при компиляции выдает ту же ошибку:
Incompatible types: 'Variant' and 'Int64' .............
Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Сообщение Свои »

как же быть ааааа...............
Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Сообщение Свои »

Оказываеться в D5 -ом ругаеться на
V :=4640000000000005899
а в Д6 и Д7 -ом нормально присваивает :-)
теперь проблема в следующем, делаю:

V :=4640000000000005899;
KatMC.Locate('nrec',V,[]);

и тут выдаеть ошибку:
Cannot access field 'NREC' as type Variant.

кто нибудь сталкивался с таким?
AlexPK
Сообщения: 7
Зарегистрирован: 13 дек 2005, 11:33

Сообщение AlexPK »

Выкинте Titan. Два небольших патча модуля ADODB.pas из Delphi 6 или 7 и у вас практически полнофункцинальный доступ через ADO к Галактике. По крайней мере проблема nrec в TADODataset у меня решена. :cool:
Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Сообщение Свои »

а патча откуда взять?
AlexPK
Сообщения: 7
Зарегистрирован: 13 дек 2005, 11:33

Сообщение AlexPK »

Пропатчить самим. Я патчил сам. Могу поделиться
Свои
Сообщения: 8
Зарегистрирован: 16 ноя 2005, 09:05

Сообщение Свои »

буду благодарен если скинешь
aybeck@list.ru
AlexPK
Сообщения: 7
Зарегистрирован: 13 дек 2005, 11:33

Сообщение AlexPK »

отправил
nickmix
Постоянный обитатель
Сообщения: 171
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Иркутская обл
Контактная информация:

Сообщение nickmix »

AlexPK
Тоже буду рад distporg@mail.ru
Ответить