Поиск в таблице БД

[xxbesoxx]

Мне просто интересно как

procedure TForm1.Button1Click(Sender: TObject);
begin
   with ADOQuery1 do
   begin
     SQL.Text := 'Select Код, Naimenovanie, Proizvoditel, kolvo '+
                 ' from tab1 where 1=1 ';
   if edtNaimenovanie.Text<>'' then SQL.Append('and Naimenovanie='+ Trim(edtNaimenovanie.Text)) ;
   Open;
   end;

end;

После этого edtNaimenovanie.Text определяет как параметр . интересно как у вас работает

[Stilet]

Ха! Так ты ковычки забыл )))

 if edtNaimenovanie.Text<>'' then SQL.Append('and Naimenovanie='+ Quoted(Trim(edtNaimenovanie.Text))) ;

Или если с параметрами

 if edtNaimenovanie.Text<>'' then begin
  SQL.Append('and Naimenovanie=:'+ edtNaimenovanie.name) ;
  ParamByName(edtNaimenovanie.name).Value:=Trim(edtNaimenovanie.Text);
 end

[xxbesoxx]

Stilet Огромное вам человечески спасибо ... Да, вот это профессиональный подход ....

procedure TForm1.Button1Click(Sender: TObject);
begin
   with ADOQuery1 do
   begin
     SQL.Text := 'Select Код, Naimenovanie, Proizvoditel, kolvo '+
                 ' from tab1 where 1=1 ';
    if edtNaimenovanie.Text<>'' then
    begin
     SQL.Append('and Naimenovanie=:'+ edtNaimenovanie.Name) ;
     Parameters.ParamByName(edtNaimenovanie.Name).Value:=Trim(edtNaimenovanie.Text);
    end;
    if edtProizvoditel.Text<>'' then
    begin
     SQL.Append('and Proizvoditel=:'+ edtProizvoditel.Name) ;
     Parameters.ParamByName(edtProizvoditel.Name).Value:=Trim(edtProizvoditel.Text);
    end;
    Open;
   end;
end;

end.

Работает хорошо . Код читается хорошо ....... Огромное вам спасибо

[Аватар]

В таких случаях запросы хорошо упаковывать в хранимые процедуры

Не вижу преимуществ. В том же сиквеле это выльется в процедуре или в exec (@Text) или в запрос с кучей заглушек

[Stilet]

В том же сиквеле это выльется в процедуре или в exec (@Text) или в запрос с кучей заглушек

Ну не факт. Наши делали запрос в временную таблицу, из которой потом дозапрашивали согласно новым условиям. КПД очень даже неплохое показало.