Доброго времени суток!
Пытаюсь реализовать поиск по БД в Delphi, только вот неправильный результат всё время выскакивает
var
s1,s2,s3,s4,s5,s6,s7:string;
str1,str2,str3,str4,str5,str6,str7:string;
begin
str1:='Город';
str2:='Улица';
str3:='Дом';
str4:='Этаж'; //в таблице Access определен, как численный тип
str5:='Количество комнат';//в таблице Access определен, как численный тип
str6:='Метраж (кв м)';//в таблице Access определен, как численный тип
str7:='Вид заявки (продажа, обмен)';
FDM.ADOQuery1.Active:=false;
FDM.ADOQuery1.SQL.Clear;
FDM.ADOQuery1.SQL.Add('Select * From Table1');
FDM.ADOQuery1.SQL.Add('where ((' + str1 + ' = ' + '"'+s1+'") AND ('+ str5+
' = ' + '"'+s5+'") AND ('+str7+' = ' + s7 +')) OR (' + str2 + ' = ' + '"'+s2+'") OR (' + str3 +
' = ' + '"'+s3+'") OR (' + str4 +
' = ' + '"'+s4+'") OR (' + str6 + ' = ' + '"'+s6+'")');
end;
Пишет, то неправильно введен запрос (пропущен оператор), то не выдаёт ответа, хотя он явно есть.
Помогите пожалуйста.