Фильтрация данных по нескольким combobox и checkbox

[korolkotov]

Фильтрация данных по нескольким combobox и checkbox

здравствуйте, у меня такая проблема мне надо сделалать фильтрацию по комбобокс и чеккбоксам, работаю в Delphi, с копонентами ADO.
я написал такой код, но выходит ошибка

procedure TForm1.Button1Click(Sender: TObject);
begin
with datamodule3 do
begin
adoquery1.Close;
adoQuery1.SQL.clear;
if checkbox1.Checked=True then
begin adoquery1.SQL.add('select * from Недвижимость where (Недвижимость.Район) like "'+ combobox1.text+'%"'); adoquery1.SQL.Add('and Недвижимость.Кол_во_комнат like "'+combobox2.Text+'%"'); adoquery1.SQL.Add('and Недвижимость.Планировка like "'+combobox3.Text+'%"'); adoquery1.SQL.Add('and Недвижимость.Тип_дома like "'+combobox4.Text+'%"') ; adoquery1.SQL.Add('and select from Недвижимость.Мебель like'+'%да%'); end else adoquery1.SQL.add('select * from Недвижимость where (Недвижимость.Район) like "'+ combobox1.text+'%"'); adoquery1.SQL.Add('and Недвижимость.Кол_во_комнат like "'+combobox2.Text+'%"'); adoquery1.SQL.Add('and Недвижимость.Планировка like "'+combobox3.Text+'%"'); adoquery1.SQL.Add('and Недвижимость.Тип_дома like "'+combobox4.Text+'%"'); adoquery1.SQL.Add('and select from Недвижимость.Мебель like'+'%нет%') ; adoquery1.Open;
подскажите что делать?

 

[Gruvi]

Подправил немного тебе сообщение, что бы текст был хоть как-то читабелен.

А если по существу, то в IF у тебя ошибка, неправильно заполнил условие. В условии не должно быть знака ;
вместо ; поставь просто + заключив просто в кавычки все, что тебе надо.

 

[AlexZir]

Количество end в процедуре равно количеству begin? Судя по приведенному листингу, не хватает по крайней мере трех end