sql запросы

[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;
  if inttostr(RadioGroup1.ItemIndex)='3' then
    S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' =  '+QuotedStr(StrToInt(Edit1.Text))+' Order By №'
 else

  S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' like '+#39+Edit1.Text+'%'+#39+'Order By Фамилия';
  ADOQuery1.SQL.Add(S);
  ADOQuery1.Open;
  end;

Значение RadioGroap'3' это числовое поле!
Выдаёт ошибку:
[Error] Unit5.pas(117): Incompatible types: 'String' and 'Integer'

[artemavd]

А так:

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;
  if RadioGroup1.ItemIndex=3 then
    S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' =  '+QuotedStr(StrToInt(Edit1.Text))+' Order By №'
 else

  S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' like '+#39+Edit1.Text+'%'+#39+'Order By Фамилия';
  ADOQuery1.SQL.Add(S);
  ADOQuery1.Open;
  end;

[Mr.Steroid]

Погоди, попробую

Опять та же ошибка в том же месте
[Error] Unit5.pas(117): Incompatible types: 'String' and 'Integer'

Может быть это из-за того, что когда я создавал БД в Acess я поставил сначение поля 'текстовое'??

Не надо плодить посты. Есть кнопка "Правка".

[artemavd]

Покажи полностью код и выдели ту строку, где ошибка выдается.

[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;
   if RadioGroup1.ItemIndex=3 then

   В ЭТОЙ СТРОКЕ ОШИБКА// S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' = '+QuotedStr(StrToInt(Edit1.Text))+' Order By №'
 else

  S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' like '+#39+Edit1.Text+'%'+#39+'Order By Фамилия';
  ADOQuery1.SQL.Add(S);
  ADOQuery1.Open;
  end;

[Error] Unit5.pas(117): Incompatible types: 'String' and 'Integer'

[artemavd]

А если так:

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

Дайте еще раз точную формулировку задачи.

[Mr.Steroid]

Вобщем есть поля строковые а есть числовые! Я организую по ним поиск! If-ом проверяю значение radiogroup, зарание зная какой itemindex указывает на числовое поле и выполняю запрос!

[artemavd]

Сделайте все числовые поля текстовыми и попробуйте мой код.

[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;

То щшибка:
'ошибка синтаксиса(пропущен оператор) в выражении запроса 'Кол-во кирпича like'1%'''

эта ошибка возникает когда я в RadioGroup выбираю поле с числами и начинаю вводить в Edit цифры!

[Stilet]

'Order By Фамилия'

А пробел?

' Order By Фамилия'

Пробелы важная штука.