Хитрости: ускорение поиска аналогов

[VVitafresh]

Есть у меня такая задача: при перемещении по датагриду с наименованиями товаров необходимо, чтобы во втором гриде на этой же форме отображался перечень аналогов для данного товара. Аналогов обычно не более десятка (или вообще нет). База в mdb.

Как сейчас все организовано:
Есть таблица с наименованиями товаров ITEMS (~250 тыс. записей) такого вида:

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

Kod  | Name
AAA  | Name1
BBB  | Name2
CCC  | Name3
...  | ...

Вторая таблица - аналоги этих товаров ANALOGS (~130 тыс. записей). Для товара 'AAA' столько строк, сколько у него есть аналогов:

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

Kod  | Kod_analog
AAA  | AN1
AAA  | BBB
CCC  | AN3
...  | ...

Запрос поиска аналогов (для вывода во второй грид):

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

select * from ITEMS
WHERE Kod in
(SELECT Kod_analog FROM ANALOGS WHERE Kod='AAA')

И все устраивало бы, если б не скорость... Поиск аналогов длится ~1 сек. Т.е. "бегать" курсором по основной табличке (гриду) не получается (на следующую строчку не попасть, пока не найдутся аналоги для текущей).
А у аналогичной программы (писанной на Delphi), которую директор фирмы дал как образец, таких тормозов не наблюдается при точно такой же организации структуры таблиц и примерно том же объеме данных.

В общем какие методы, хитрости и прочее посоветуете, чтобы повысить скорость работы. Пока никаких идей в голову не приходит

P.S. А не может быть, что у Delphi компоненты доступа к данным реально быстрее, чем доступ в VB через ADO?

[GSerg]

Попробуй

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

SELECT i.kod, i.name
FROM ITEMS AS i
INNER JOIN ANALOGS AS a ON i.kod = a.kod
WHERE i.kod = 'AAA'

И индексы висят на обеих полях ANALOGS?

[alibek]

Можно попробовать вторую табличку загрузить целиком (в память) и при перемещении по гриду менять ей Filter.

[VVitafresh]

Попробуй

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

SELECT i.kod, i.name
FROM ITEMS AS i
INNER JOIN ANALOGS AS a ON i.kod = a.kod
WHERE i.kod = 'AAA'

GSerg, ты гений! Решение простое и очевидное для всех, кроме меня

Alibek, тоже спасибо. Твой вариант мне со временем может пригодиться (в другой ситуации).