• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

Фильтр Adoquery+combobox+edit

  • Автор темы vas
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V
#1
Доброго времени суток. Столкнулся со следующим вопросом. Delphi7,Access. На форме есть ADOQuery, Edit,Label. Делаю фильтрацию:

Код:
procedure TForm1.Label1Click(Sender:TObject);
begin
//выборка по городу
Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT *');
Query1.SQL.Add('FROM Contragents');
Query1.SQL.Add('WHERE Gorod LIKE '''+Edit1.Text+'''');
Query1.Active:=true;
end;
Все ОК.
Появилась необходимость добавления ComboBox, чтобы внести в него кроме города еще менеджера и т.п. и уже производить фильтрацию по другим критериям.

Код:
procedure TForm1.Label1Click(Sender:TObject);
begin
//выборка по городу
Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT *');
Query1.SQL.Add('FROM Contragents');
Query1.SQL.Add('WHERE ''+ComboBox1.Text+'' LIKE '''+Edit1.Text+'''');
Query1.Active:=true;
end;
Вот тут и начались проблемы,ничего не могу сделать.
Подскажите,пожалуйста, в чем я ошибся? Спасибо
 
Статус
Закрыто для дальнейших ответов.
Вверх Снизу