Поиск данных в базе MSQL server через Delphi.

[Tony Hudson]

Добрый вечер.Подскажите пожалуйста, в чем может быть ошибка поиска данных?

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
DataModule2.StatyaADOQuery1.Active:=false;
DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya';
DataModule2.StatyaADOQuery1.Active:=true;
end else
begin
If ComboBox1.ItemIndex=1 then
begin
DataModule2.StatyaADOQuery1.Active:=false;
DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya where avtor like '''+'%'+edit1.text+'%'+'''';
DataModule2.StatyaADOQuery1.Active:=true;
end else
If ComboBox1.ItemIndex=2 then
begin
DataModule2.StatyaADOQuery1.Active:=false;
DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya where nomer_kategory like '''+'%'+edit1.text+'%'+'''';
DataModule2.StatyaADOQuery1.Active:=true;
end else
If ComboBox1.ItemIndex=3 then
begin
DataModule2.StatyaADOQuery1.Active:=false;
DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya where nazvanie_statyi like '''+'%'+edit1.text+'%'+''''; DataModule2.statyaADOQuery1.Active:=true;
DataModule2.StatyaADOQuery1.Active:=true;
end else
If ComboBox1.ItemIndex=4 then
begin
DataModule2.StatyaADOQuery1.Active:=false;
DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya where kluchivie_slova like '''+'%'+edit1.text+'%'+'''';
DataModule2.StatyaADOQuery1.Active:=true;
end else
  begin
DataModule2.StatyaADOQuery1.Active:=false;
DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya where (avtor like '''+'%'+edit1.text+'%'+''') or (nomer_kategory like '''+'%'+edit1.text+'%'+''') or (nazvanie_statyi '''+'%'+edit1.text+'%'+''') or (kluchivie_slova like '''+'%'+edit1.text+'%'+''')';
DataModule2.StatyaADOQuery1.Active:=true;
end;
end;
  end;


end.

[evg_m]

DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya where (avtor like '''+'%'+edit1.text+'%'+''') or (nomer_kategory like '''+'%'+edit1.text+'%'+''') or (nazvanie_statyi '''+'%'+edit1.text+'%'+''') or (kluchivie_slova like '''+'%'+edit1.text+'%'+''')';

[Tony Hudson]

Сообщение от evg_m

DataModule2.StatyaADOQuery1.SQL.Text:='select * from statya where (avtor like '''+'%'+edit1.text+'%'+''') or (nomer_kategory like '''+'%'+edit1.text+'%'+''') or (nazvanie_statyi '''+'%'+edit1.text+'%'+''') or (kluchivie_slova like '''+'%'+edit1.text+'%'+''')';

Красненьким это типо неправильно?

[Аватар]

Не видно, что ли? like пропущен

[Tony Hudson]

Сообщение от Аватар

Не видно, что ли? like пропущен

Спасибо большое!