sql запросы

[Mr.Steroid]

Я создал бд в делфи спомощью TQuery и DBGrid! Реализую поиск по баз данных спомощью sql запроса используя Edit и RadioGroup!
Вот процедура поиска:

procedure TForm3.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;

Этот поиск работает для текстовых полей! Как только дело доходит до чисел появляется ошибка! Помогите написать запрос для поиска по числам!

[Stilet]

Как только дело доходит до чисел появляется ошибка!

Все потому что #39 - это ковычка одинарная, используется только для описания текста. Для чисел ковычки в запросы не ставятся, но!
Есть маленькое но...
Тебе нужно проверять поле. Если RadioGroup1.Items.Strings[RadioGroup1.itemindex] указывает на числовое поле то не ставить, если на строковое то ставить, так что я бы на твоем месте описав case проверял что выбрано в RadioGroup1.itemindex, в зависимости от этого уже формировал правильный запрос

[Mr.Steroid]

Stilet что то я не совсем понял про ковычки! Поясни, пожалуйста!

Как я понял если организовать поиск по числам то #39 писать не нужно?!

[Stilet]

Поясню.
Код

S:='Select * From Таблица1 Where '+RadioGroup1.Items.Strings[RadioGroup1.itemindex]+' like '+#39+Edit1.Text+'%'+#39+'Order By №';

Сформирует строку
Select * From Таблица1 Where поле like '%значение' Order By №
Это сработает если поле строкового типа.
Для числовых нужен (пардон: желателен) запрос
Select * From Таблица1 Where поле=значение Order By №
Без like (поскольку он только для текстовых полей дает свой эффект) и без одинарной ковычки, ибо она только для текстовых полей нужна. Иногда СУБД сама преобразует строку в число, думая за нерадивого программиста, но надеяться на это все равно что авось.
код #39 как раз указывает что тут должна быть одинарная ковычка.
поняв?

[artemavd]

Для текстовых:

procedure TForm3.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 '+QuotedStr(Edit1.Text)+'% Order By №';
  ADOQuery1.SQL.Add(S);
  ADOQuery1.Open;
end;

Для чисел:

procedure TForm3.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 поле =  '+QuotedStr(StrToInt(Edit1.Text))+ ' Order By №';
  ADOQuery1.SQL.Add(S);
  ADOQuery1.Open;
end;

Писал на память, мог что-то напутать.

[Mr.Steroid]

Да, сапасибо большое!)) Но есть вопрос в догонку! Ты говорил про проверку спомощью case! А могу ли я реализовать проверку спомощью if! Буду проверять значение RADIOGROUP! и в зависимость от результата выполнять определённый запрос! Или не получится??

artemavd Спасибо тебе!

[artemavd]

Проверяйте выбран радиогрупп или нет. Например так:

if Form1.Radiogroup1.Checked then
begin
 ///траляляля
end;

[Stilet]

Или не получится??

Получится. Чего же нет? просто с case красивее смотрится.

И кстати:

Order By №

Поаккуратнее с такими именами полей...

[Mr.Steroid]

Нет, artemavd! Я имею ввиду проверка на то, что на РадиоГроуп выбрано текстовое или числовое поле!

[Stilet]

Я имею ввиду проверка на то, что на РадиоГроуп выбрано текстовое или числовое поле!

Весь вопрос в том как ты описал что у тебя в каком поле. Я имел ввиду проверку RadioGroup1.itemindex