Фильтрация в ADOQuery

[Janger]

В общем, проблема в следующем ...
Написал программу, с базой данных магазина.
И сделал так, что если данные о товаре введены не полностью, то в базе имя товара с тремя звёздочками в начале названия товара. (Пример: "***кастрюля")
Вот, я на форму кинул checkbox, что бы по нажатию на него либо отображались все товары, либо только те, которые полностью заполнены (т.е. без звёздочек)
Пишу так:

ADOQuery1.Filter:='NameTovar not like ' + QuotedSTR('***%');
ADOQuery1.Filtered:=true;

Но когда я запускаю данный фильтр, АДОшка мне выдаёт следующее сообщение: " Аргументы имеют неверный тип, выходят за пределы допустимого диапозона или вступают в конфликт друг с другом"
Если же,я убираю из условия "not" то фильтр работает хорошо, правда выдаёт мне все данные со звёздочками. Ну это понятно почему.
Новый запрос, я не хочу для фильтрации писать, т.к. программа уже вся написана, и осталось только это доделать, а во вторых, данных очень много, и пока запрос выполняется, программа висит в режиме погрузки весьма долго ... Секунд 8 , засекал ...
===========================
В общем, дайте совет, как поступить в данной ситуации.
Спасибо.

[Аватар]

Если NOT NameTovar like ... не прокатит, тогда событие OnFilterRecord и в нем проверка

Секунд 8 , засекал

В базе сотни тысяч записей и все одновременно в память загружаются? Даже в этом случае 8 секунд очень много

[Janger]

Сообщение от Аватар

Если NOT NameTovar like ... не прокатит, тогда событие OnFilterRecord и в нем проверка
В базе сотни тысяч записей и все одновременно в память загружаются? Даже в этом случае 8 секунд очень много

1) условие с not в начале не помогла
2) собыие, onFilterRecord не могу написать правильно ...
Пишу так:

accept := ansipos ('***', adoquery1.fieldbyname('nametovar').asstring)=o;

но не срабатывает ...
3) да, записей очень много ... А то что по времени много, так это ещё то, что у меня напо каждой строке 'калкулейт' происходит ... Т.е. он на каждой строке делает запрос, ещё в одну базу и там делает подсчёты, а потом выводит результат

[Аватар]

accept := Copy(adoquery1.fieldbyname('nametovar').asstring),1,3)<>'***';

Ну и Filtered:=True. И внимательно по индексам в базах пройдись. Сделаешь правильно - запрос будет летать. Да и *** не удачное решение, лучше поле специальное с признаком для этого

[Janger]

Сообщение от Аватар

accept := Copy(adoquery1.fieldbyname('nametovar').asstring),1,3)<>'***';

Ну и Filtered:=True. И внимательно по индексам в базах пройдись. Сделаешь правильно - запрос будет летать. Да и *** не удачное решение, лучше поле специальное с признаком для этого

В событие входит, проверил showmessage, но ничего не фильтрует ...
Все как было, так и осталось ...

Правда вот что мне не понятно ... Это событие, не по всем строкам проходит ... Только до 42 записи, и дольше не идёт .... Тоже не пойму почему

[Аватар]

Свойство Filter очистил?

[Janger]

Сообщение от Аватар

Свойство Filter очистил?

Фильтр пока пустойпустой, я хочу проверить что бы он просто работал

Аааа... Я понял как это событие работает, тогда вопрос, как мне обновить данные в DBGrid-e?

ВСЁ!!!
Проблему решил, это моя невнимательности... Простите....
Просто, в конце моей процедуры, значение Фильтред назначался false ... Из за этого не срабатывает
Аватар, спасибо большое!! Выручил
==≠=========================
Возникла проблема...
ADOQuery1.RecordCount не меняется, если проводить фильтрацию через это событие ... Что делать?