1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Фильтр Adoquery+combobox+edit

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

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

    vas Гость

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

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