[Mr.Steroid]

Код:

procedure TForm5.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var s : string;
  begin
       datasource1.DataSet:=ADOQuery1;
      if ADOQuery1.Active then ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
  S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' like '+#39+Edit1.Text+'%'+#39+'Order By Фамилия';
  ADOQuery1.SQL.Add(S);
  ADOQuery1.Open;
  end;
 

Код организует поиск по БД! Искомое вводится в Edit, а в RadioGroup выбираем столбец(поле) по которому будем искать!
По некоторым столбцам поиск работает, а по некоторым нет! Пишет ошибку:
'ошибка синтаксиса(пропущен оператор) в выражении запроса 'Название кирпича like'1%'''

[lmikle]

Код:

...+#39+' Order By Фамилия';

Пробел перед Order By.