Проблема с SQL запросом

[Аватар]

xxbesoxx, сарказм не помешает научиться понимать и злиться не надо - нервные клетки не восстанавливаются. На счет уважения - самому не помешает чуть прибавить

[xxbesoxx]

Аватар Я перед вамы извиняюсь что не выдержал всё я спакойно .

[x_X-x3]

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

советую параметризированный запрос .! смотрите на эту тему http://programmersforum.ru/showthread.php?t=277392

Если я правильно понял,ток код должен иметь такой вид?

procedure TForm5.Button3Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
 SQL.Text := 'Select Код, Код оборудования для ПТ, Оборудование, Наименование , Назначение, Габариты,Масса,Температура срабатывания,Площадь действия,Цена'+ ' from Водяное пожаротушение where 1=1 ';
    if Edit5.Text<>'' then
    begin
     ADOQuery1.SQL.Append('and Температура срабатывания=:'+ Edit5.Name) ;
     Parameters.ParamByName(Edit5.Name).Value:=Trim(Edit5.Text);
    end;
end;
end;

[Serge_Bliznykov]

Если я правильно понял,ток код должен иметь такой вид?

А зачем так сложно? Edit5.Name содержит имя контрола, там "Edit5", так почему бы его прямо и не указать?!
Или дать параметру "говорящее" имя, например:

     ADOQuery1.SQL.Append('and Температура срабатывания=:temperature_start') ;
     Parameters.ParamByName('temperature_start').Value:=Trim(Edit5.Text);

и ещё большая ошибка - в именах полей пробелы не допускаются.
А если Вы их используете, нужно такие имена экранировать.
Это зависит от СУБД. В MS Access и MS SQL для этого используются квадратные скобки ([Температура срабатывания]=)
в MySQL обратные кавычки ( `Температура срабатывания` ) и т.д.

ну и ещё. Если у Вас поле "Температура срабатывания" числовое, то и передаваемый параметр должен быть числовым:

     Parameters.ParamByName('temperature_start').Value:=StrToInt(Trim(Edit5.Text));

[x_X-x3]

Снова здравствуйте.Опять я с этим поиском вожусь.Нужно сделать поиск по 2 критериям,вот пример кода

procedure TForm5.Button3Click(Sender: TObject);
 begin

  with ADOQuery1 do
  begin
   SQL.Add('SELECT * FROM [Водяное пожаротушение]');
   SQL.Clear;

   if Trim(Edit4.Text)<>'' then
    begin

    SQL.Append('SELECT * FROM [Водяное пожаротушение] '+
            'WHERE [Температура срабатывания] >= :temp ');
    Parameters.ParamByName('temp').Value := StrToInt(Trim(Edit4.Text));
     end;

      if Trim(Edit3.Text)<>'' then
    begin
     SQL.Append('SELECT * FROM [Водяное пожаротушение] '+
            'WHERE [Площадь действия] >= :plosh ');
    Parameters.ParamByName('plosh').Value := StrToInt(Trim(Edit3.Text));
    end;
    Open;
  end;
  end;

Простите за мою тупость...но ни как не могу допереть в чем проблема.
Вылезает ошибка "" 'Ошибка синтаксиса в выражении запроса [Температура срабатывания] >= ?
SELECT * FROM [Водяное пожаротушение] '+
'WHERE [Площадь действия] >=? ""

[Serge_Bliznykov]

так нельзя делать. SQL.Append дописывает строки к уже имеющимся.
Вы бы перед Open вывели куда-нибудь (в Memo, например), содержимое SQL.Text и увидели, что там невалидный запрос!

я бы рекомендовал примерно такой вариант:

  with ADOQuery1 do
  begin
   Close;
   SQL.Clear;

   SQL.Add('SELECT * FROM [Водяное пожаротушение] WHERE 1=1');

   if Trim(Edit4.Text)<>'' then
    begin
       SQL.Append(' and [Температура срабатывания] >= :temp ');
       Parameters.ParamByName('temp').Value := StrToInt(Trim(Edit4.Text));
     end;

   if Trim(Edit3.Text)<>'' then
    begin
       SQL.Append(' and [Площадь действия] >= :plosh ');
       Parameters.ParamByName('plosh').Value := StrToInt(Trim(Edit3.Text));
    end;

    Open;
  end;

[x_X-x3]

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

так нельзя делать. SQL.Append дописывает строки к уже имеющимся.
Вы бы перед Open вывели куда-нибудь (в Memo, например), содержимое SQL.Text и увидели, что там невалидный запрос!

я бы рекомендовал примерно такой вариант:

  with ADOQuery1 do
  begin
   Close;
   SQL.Clear;

   SQL.Add('SELECT * FROM [Водяное пожаротушение] WHERE 1=1');

   if Trim(Edit4.Text)<>'' then
    begin
       SQL.Append(' and [Температура срабатывания] >= :temp ');
       Parameters.ParamByName('temp').Value := StrToInt(Trim(Edit4.Text));
     end;

   if Trim(Edit3.Text)<>'' then
    begin
       SQL.Append(' and [Площадь действия] >= :plosh ');
       Parameters.ParamByName('plosh').Value := StrToInt(Trim(Edit3.Text));
    end;

    Open;
  end;

Огромное вам спасибо,все отлично работает!

[Serge_Bliznykov]

Всегда пожалуйста!

рекомендую ещё добавить проверки на то, что в Edit3 и Edit4 находится именно целочисленное значение, иначе на StrToInt() выскочит неприятный Exception "xxxx is not valid integer value"...