[lenuxoid]

Добрый день!
Делаю запрос через ADOQuery. В инспекторе объектов следующее.
Connection - ADO Connection1
SQl - SELECT * FROM Справочник
Вывожу в отдельную форму результат запроса (Dbgid+DataSource), запрос выполняется.
В главной форме пишу код:

Код:

Datamodule1.FindQuery.Active:=false;
Datamodule1.FindQuery.SQL.Clear;
Datamodule1.Findquery.SQL.ADD ('SELECT *');
Datamodule1.FindQuery.SQL.ADD ('FROM Справочник');
Datamodule1.FindQuery.SQL.Add ('Where Телефон LIKE   ' ' '+Edit1.txt+' ' ' ');
Datamodule1.FindQuery.SQL.Active:=true;
Form4.showmodal;

Admin: Польземся тегами!
Программа запускается, но ничего не выводит. В свойствах FindQuery, мой старый запрос (SELECT * FROM Справочник ).
Не пойму в чем дело.

[lenuxoid]

В новом проете практически тоже самое.
Одно, хорошо поиск осуществляется. Но теперь после завершения работы программы.
в свойствах adoquery - active - false;
sql - Select * from Справочник.
Думаю, что если программно меняется SQL запрос, то в свойствах он тоже должен меняться.
Не пойму.

[Страдалецъ]

А с чего вдруг Edit1.txt ? У вас нестандартный контрол?

[lenuxoid]

нет,edit1.Text.
если программно меняется SQL запрос, то в свойствах adoquery он тоже должен меняться!?

[Страдалецъ]

Меняться то он должен, только исправьте тогда строку

Код:

Datamodule1.FindQuery.SQL.Add ('Where Телефон LIKE ' ' '+Edit1.txt+' ' ' ');

на

Код:

Datamodule1.FindQuery.SQL.Add ('Where Телефон LIKE ' ' '+Edit1.text+' ' ' ');

А еще лучше сделайте с параметром:

Код:

Datamodule1.FindQuery.SQL.Add ('Where Телефон LIKE :Телефон');
Datamodule1.FindQuery.Parameters.ParamValue['Телефон'] := Edit1.text;

И еще, у вас точно связаны друг с другом ADOConnection1,FindQuery,DataSource,Dbgid?

[lenuxoid]

Вы гений! Все работает. Спасибо