Как составить запрос по нескольким полям

[lysyuk1]

Здраствуйте!Помогите пожалуйста с запросом у меня есть запрос который ищет если заполненые все поля для поиска,а мне нужно его переделать, что б искал.даже если заполненое одно поле из трех полей,которые надо вводить или два поля из трех которые нужно вводить!Как ето сделать?

Пример моего запроса:

procedure TForm16.Button1Click(Sender: TObject);
var
Facul, stat: String;
k:integer;
begin
Facul:=edit1.Text;
Stat:=edit2.Text;
Form16.Query1.Close;
Form16.Query1.SQL.Clear;
Form16.Query1.SQL.Add('Select PIP,Etaj,Etajnist');
Form16.Query1.SQL.Add('From ":Rieltor:info.db"');
Form16.Query1.SQL.Add('Where');
Form16.Query1.SQL.Add('(Byd="'+Facul+'" AND KV="'+Stat+'")');
Form16.Query1.SQL.Add('Order by PIP');
Form16.Query1.Open;
If Form16.Query1.RecordCount <>0 Then
begin
DataSource1.DataSet.Active:=true;
DataSource1.DataSet := Query1;
k:=Query1.RecordCount;
Label1.Caption:=floatTostr(k);
end
Else
begin
ShowMessage('У базі даних немає записів, які задовільняють умовам');
DataSource1.DataSet := Table1;
end;
end;

Помогите пожалуйста!

Что за название "Запросом Delphi !" ???
Переделал. Читайте правила раздела, там есть примеры, как давать правильные названия своим темам.
А такие названия наказуемы...

[evg_m]

что б искал.даже если заполненое одно поле из трех полей,которые надо вводить или два поля из трех которые нужно вводить!Как ето сделать?

pref:='';
if Facul<>'' then begin
  Form16.Query1.SQL.Add(' Byd="'+Facul+'"');
  pref:='AND  '; //пробелы в конце нужны чтобы быть уверенным что этот оператор не сольется со следующим условием.
end;
if Stat<>'' then begin
 Form16.Query1.SQL.Add(pref +' KV="'+Stat+'")');
 pref:='AND'; //на случай если потом появится третье поле поиска 
end;

то же но с использованием параметров запроса.

if Facul<>'' then begin
  Form16.Query1.SQL.Add(' Byd=:Facul');
  Form16.Query1.Parama.Parambyname('Facul').value:=Facul;
  pref:='AND';
end;
if Stat<>'' then begin
 Form16.Query1.SQL.Add(pref +' KV=:Stat');
 Form16.Query1.Parama.Parambyname('Stat').value:=Stat;
 pref:='AND'; //на случай если потом появится третье поле поиска 
end;

k:=Query1.RecordCount;
Label1.Caption:=floatTostr(k);

Для перевода ЦЕЛЫХ есть IntTostr

[lysyuk1]

17:04
Извините, за вопрос, но не могли б вы полностю код вставить, а то я так и не понял после чего его вставлять!

17:24
ЧТо-то нифига не работает((((

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
У нас есть кнопка "Правка".
Читаем правила раздела.
По правилам это приравнивается к флуду.

[evg_m]

Извините, за вопрос, но не могли б вы полностю код вставить, а то я так и не понял после чего его вставлять!

Ваш код

Form16.Query1.SQL.Add('(Byd="'+Facu l+'" AND KV="'+Stat+'")');

заменяем на мой код (вариант 1) и добавляем нужные переменные

pref: string;

ЧТо-то нифига не работает((((

1. читаем комментарии и анализируем скопированный код
2. приведено слишком расплывчатое определение неработы.