Фильтр Adoquery+combobox+edit

Тема в разделе "Delphi - Базы данных", создана пользователем vas, 19 авг 2010.

Статус темы:
Закрыта.
  1. vas

    vas Гость

    Доброго времени суток. Столкнулся со следующим вопросом. Delphi7,Access. На форме есть ADOQuery, Edit,Label. Делаю фильтрацию:

    Код (Delphi):
    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, чтобы внести в него кроме города еще менеджера и т.п. и уже производить фильтрацию по другим критериям.

    Код (Delphi):
    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;
    Вот тут и начались проблемы,ничего не могу сделать.
    Подскажите,пожалуйста, в чем я ошибся? Спасибо
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей