Автоматический поиск в DBGrid при вводе символа в Edit

[Irina_87]

Здравствуйте, кто-нибудь может подсказать, как это осуществить??? Я пишу такой код -

var S: string;
begin
S:=Edit6.text+'%';
with ADOQuery2 do begin
close;
SQL.Add('select DISTINCT ID_pokup,Name_pokup,Adres,Telefon,F IO_directora from Pokupatel');
SQL.Add('where Name_pokup LIKE' +quotedstr(s));
SQL.Add('ORDER BY Name_pokup');
Open;

Но когда я пытаюсь изменить значение в Edit этот запрос уже не осуществляется(((
Как сделать, чтобы поиск осуществлялся правильно?????

У нас принято оформлять код специальным тэгом - кнопочка "#".
Никак не получается понять такую простую вещь?
Модератор

[soleil@mmc]

во-первых, надо бы добавить такую строчку

close;
SQL.clear;

во-вторых, неплохо бы всех к одному регистру привести

SQL.Add('where upper(Name_pokup) LIKE' +quotedstr(AnsiUpperCase(s)));

а в-третьих, может быть по вновь введенному тексту в эдит действительно нет никаких вариантов в таблице?!

[Toky]

Шо-то я не пойму: сделал все что советовали здесь и тоже ниче не получается - в чем может быть ошибка?

begin
S:=Edit1.text+'%';
with Query1 do
begin
close;
SQL.clear;
SQL.Add('SELECT DISTINCT Fam FROM ":MyDB:DataSource.DB" ');
SQL.Add('where upper(Fam) LIKE' +quotedstr(AnsiUpperCase(s)));
SQL.Add('ORDER BY Fam');
Open;
form2.Table1.UpdateStatus;
end;

[soleil@mmc]

в зависимости от субд функа upper() может по-другому называться

[Toky]

Сообщение от soleil@mmc

в зависимости от субд функа upper() может по-другому называться

а как эта функция называется в парадоксе?

[mihali4]

Так и называется.

[Toky]

Сообщение от mihali4

Так и называется.

тем не менее и увы, пишу: нажимаю кнопку поиск и никаких изменений, ничего не выберает

[mihali4]

Не знаю, не знаю...
Я ваш запрос (ну не ваш, а применительно к базе DEMO) попробовал, все работает.
Просто в квэрик написал:

SELECT DISTINCT lastname FROM employee where upper(lastname) like 'N%'
ORDER BY lastname

А-а-а, ну да... Вы забыли про %...

[Toky]

а может быть так что компонент Тэйбэл как-нить блочит запрос, т.е. выпонляется он без ошибок но не выбирает ничего? Не знаю что и гадать уже перепробовал разные способы написания допустим такой

begin
 Query1.Close;                              
 Query1.SQL.Clear;                
 Query1.SQL.Add('Select * from DataSource where '+'Fam'+' LIKE "'+Edit1.Text+'%"');
 Query1.Open;
end;

[mihali4]

SQL:='SELECT DISTINCT Fam FROM ":MyDB:DataSource.DB" where upper(Fam) LIKE ' +quotedstr(AnsiUpperCase(s+'%'))+' ORDER BY Fam';
Единственное, насчет чего не уверен - это насчет конструкции ":MyDB:DataSource.DB"...
Как-то не приходилось такими "извращениями" пользоваться, все чаще просто имя таблицы...