не работает поиск по бд Access на основе sql приложение написано в delphi

[Elizaveta007]

Есть БД компаний для которой надо организовать поиск по названию, предоставляемым услугам, адресу и телефону.
Сама база находиться в Access связана через BDE. Сам код имеет вид:
на главой форме

Код Delphi

function TMain.Poisk(Slovo: string): string;
var i:integer;
    NewSlovo:string;
begin
  NewSlovo:='%';
  for i:=1 to strlen(Pchar(slovo)) do
     begin
       if slovo[i]=' '
         then
            NewSlovo:=NewSlovo+'%'
         Else
            NewSlovo:=NewSlovo+slovo[i];
     end;
  Poisk:=NewSlovo+'%';   
end;

на форме где выводиться данные по поиску

Код Delphi

procedure TFirms.Rebuild;
begin
  dm1.Firma.close;
  dm1.Firma.sql.LoadFromFile('SelFirm.sql');
  dm1.Firma.Prepare;
  dm1.Firma.ParamByName('TekDate').value:=date;
  dm1.Firma.ParamByName('FirmaName').value:=Main.Poisk(Main.Edit2.text);
  dm1.Firma.ParamByName('UslugaName').value:=Main.Poisk(Main.Edit1.text);
  dm1.Firma.open;
  dm1.Information.close;
  dm1.Information.open;
  dm1.Uslugi.close;
  dm1.Uslugi.open;
end;

В SelFirm.sql :
Код SQL

SELECT DISTINCT Firma.FirmaName, Firma.FirmId
 
FROM ((((Firma INNER JOIN InfoFirm ON Firma.FirmId = InfoFirm.FirmId)
INNER JOIN ListUsl ON Firma.FirmId = ListUsl.FirmId
) INNER JOIN Usluga ON ListUsl.UslugaId = Usluga.UslugaID) 
INNER JOIN ZnachInfo ON InfoFirm.ZnachId = ZnachInfo.SZnachId) 
INNER JOIN Test ON ZnachInfo.SZnachId = Test.SZnachId
 
WHERE (((InfoFirm.Znachenie1 LIKE '%'+Test.Znachenie1+'%') 
AND (InfoFirm.Znachenie2 LIKE '%'+Test.Znachenie2+'%') 
AND (InfoFirm.Znachenie3 LIKE '%'+Test.Znachenie3+'%') 
AND (InfoFirm.Znach4 LIKE '%'+Test.Znach4+'%'))
AND (((Usluga.UslugaName LIKE :UslugaName) 
AND (Firma.FirmaName LIKE :FirmaName))
AND ((Firma.DateB <= :TekDate) 
AND (Firma.DateEn >= :TekDate))))
ORDER BY Firma.FirmaName

Вроде все правильно ошибок не выдает но и необходимые данные не находит, выдает лишь пустую форму. Подскажите пожалуйста где искать ошибку.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Slym]

проблема мне видится в стоках sql типа '%'+Test.Znachenie1+'%'

[D-mon]

Не придумывайте велосипед.

function TMain.Poisk(Slovo: string): string;
var i:integer;
    NewSlovo:string;
begin
  NewSlovo:='%';
  for i:=1 to strlen(Pchar(slovo)) do
     begin
       if slovo[i]=' '
         then
            NewSlovo:=NewSlovo+'%'
         Else
            NewSlovo:=NewSlovo+slovo[i];
     end;
  Poisk:=NewSlovo+'%';   
end;

Пишите проще.

function TMain.Poisk(Slovo: string): string;
begin
  Result := '''%' + StringReplace(s, ' ', '%', [rfReplaceAll]) + '%'''; 
end;

И тут так же:

SELECT DISTINCT Firma.FirmaName, Firma.FirmId
 
FROM ((((Firma INNER JOIN InfoFirm ON Firma.FirmId = InfoFirm.FirmId)
INNER JOIN ListUsl ON Firma.FirmId = ListUsl.FirmId
) INNER JOIN Usluga ON ListUsl.UslugaId = Usluga.UslugaID) 
INNER JOIN ZnachInfo ON InfoFirm.ZnachId = ZnachInfo.SZnachId) 
INNER JOIN Test ON ZnachInfo.SZnachId = Test.SZnachId
 
WHERE (((InfoFirm.Znachenie1 LIKE '''%'+Test.Znachenie1+'%''') 
AND (InfoFirm.Znachenie2 LIKE '''%'+Test.Znachenie2+'%''') 
AND (InfoFirm.Znachenie3 LIKE '''%'+Test.Znachenie3+'%''') 
AND (InfoFirm.Znach4 LIKE '''%'+Test.Znach4+'%'''))
AND (((Usluga.UslugaName LIKE :UslugaName) 
AND (Firma.FirmaName LIKE :FirmaName))
AND ((Firma.DateB <= :TekDate) 
AND (Firma.DateEn >= :TekDate))))
ORDER BY Firma.FirmaName

[Elizaveta007]

Всем спасибо за внимание, но упрощенный вариант тоже не дал результатов, буду пытаться делать дальше(((

[evg_m]

WHERE (((InfoFirm.Znachenie1 LIKE '%'+Test.Znachenie1+'%') 
AND (InfoFirm.Znachenie2 LIKE '%'+Test.Znachenie2+'%') 
AND (InfoFirm.Znachenie3 LIKE '%'+Test.Znachenie3+'%') 
AND (InfoFirm.Znach4 LIKE '%'+Test.Znach4+'%'))
AND (((Usluga.UslugaName LIKE :UslugaName) 
AND (Firma.FirmaName LIKE :FirmaName))
AND ((Firma.DateB <= :TekDate1) 
AND (Firma.DateEn >= :TekDate2))))

ADO (точнее компоненты его оболочки) насколько я заметил НЕ любит одинаковые параметры.
так что если несмотря на то вам надо использовать одно значение несколько раз, лучше все же задать его несколько раз.

  dm1.Firma.ParamByName('TekDate1').value:=date;
  dm1.Firma.ParamByName('TekDate2').value:=date;