Доброго времени суток, уважаемые программеры.

Работаю с таблицами данных dBase IV. Есть одна таблица весом в 20 мегабайт, в которой 160000 записей.
В таблице содержатся цены на модели шмоток. Необходимо отобрать актуальные цены на определенный перечень моделей (перечень этот часто меняется, но это не столь важно). Моделей около 500, немного.

Опишу некоторые поля таблицы, которые участвуют в отборе цен:
 НАИМЕНОВАНИЕ ПОЛЯ (ТИП ПОЛЯ, ШИРИНА)
 TER (CHARACTER, 1)      - код территории.
 POL (NUMERIC, 4)         - код получателя.
 MOD (CHARACTER, 10)  - собственно модель шмотки.
 KODV (NUMERIC, 1)       - код валюты.
 DAT (DATE, 8)                - дата цены.

Значит, изначально у нас есть модель, код территории, код получателя и код валюты. Нужно по этим критериям выбрать самую свежую цену (поскольку в таблице может хранится несколько цен разных дат)

Сперва просто использовал компонент TQuery и запросом отбирал нужную информацию, но на это тратится очень много времени.

В итоге стал использовать Halcyon, а точнее THalcyonDataSet.
Динамически цепляю индекс.

Дальше проблема, из-за которой я вообще создал этот топик: хочу найти цену по четырем заданным критериям (все, кроме даты)

В итоге выбирается не то, что нужно

Если убрать DESCEND(DTOS(DAT)) из строки индекса, то результат поиска оправдывает ожидания, но необходимость поиска свежей цены по дате убивает смысл этого самого поиска.

Помогите разобраться.

Это сообщение отредактировал(а) 14SatanA88 - 21.9.2012, 14:29

160000 записей - и .dbf размером всего 20 метров?   

1. Переписать прогу на ФоксПро.
2. Использовать другую СУБД - тот же Access.

Уважаемый Данкинг,


Переписать прогу либо использовать другую СУБД не выйдет, предприятие.

А если использовать Tdbf и, соответственно, locate?

Данкинг, надо бы попробовать.
Если можно, запилите ссылок сразу.

Ну, в поиске Tdbf, какие тут ещё ссылки.  Таблицу любого размера открывает моментально, т.е. как если бы таблица открывалась непосредственно FoxPro.

Поставил tDBF, создал индекс.

MOD + TER + STR(KODV,1) + STR(POL,4) + DESCEND(DTOS(DAT)) - вот такой не съел, потому что не знает о DESCEND.

MOD + TER + STR(KODV,1) + STR(POL,4) + DTOS(DAT) - вот этот съел, но сортировка нужна по ДАТЕ в обратную сторону.

DTOS(DAT) + MOD + TER + STR(KODV,1) + STR(POL,4), [ixDescending] - попробовал вот так, но, видимо, из-за даты долго работает Locate, хотя находит то что нужно найти.

Может, я делаю что-то не так?

Это сообщение отредактировал(а) 14SatanA88 - 21.9.2012, 16:31

А если после  DTOS(DAT) tag descend добавить?

пробовал, ругается что не знает таких слов движок этот...

Проблема решилась написанием скрипта на clipper и запуск его собсна из программы на Delphi в нужный момент.

В смысле, скрипта - программы .exe, что ли?

да, просто фоновая прожка на клиппере. у них там просто колоссальный выигрыш в скорости по сравнению с Halcyon или Apollo. (я о работе с индексами NTX)

Ну понятно, я таких случаях на фоксе пишу .fxp и запускаю его из проги на Дельфи.