PESQUISA

[dreamsoft_PR]

ola pessoal 

estou com seguinte situação 

eu sei que tem o LIKE  '% agulha %

 

para trazer todos os produtos que contem o nome agulha nao importa a posição blz

 

mas agora tem outra coisa  o nome do produto por exemplo  AFASTADOR DE INCISÃO MEDIO

a pessoa que digitar 

 

"AFASTADOR MEDIO "    para trazer na busca , eu tentei usando o like mas nao da certo 

 

[Sérgio Assunção]

18 minutos atrás, dreamsoft_PR disse:

ola pessoal 

estou com seguinte situação 

eu sei que tem o LIKE  '% agulha %

para trazer todos os produtos que contem o nome agulha nao importa a posição blz

mas agora tem outra coisa  o nome do produto por exemplo  AFASTADOR DE INCISÃO MEDIO

a pessoa que digitar 

"AFASTADOR MEDIO "    para trazer na busca , eu tentei usando o like mas nao da certo 

 

Você vai ter que fazer uma consulta separando as strings pelo espaço (' ').

[dreamsoft_PR]

mas o cliente digita isso em unico edite ai teria que criar dois campos de busca ?

[Sérgio Assunção]

Eu faço dessa forma ... talvez ajude
 

if Key=13 then begin
   ListBox.Items := Separar(eConsulta.Text,' ');
   qProdutos.Close;
   qProdutos.SQL.Text := 'select * from PRODUTOS where DESCRICAO like :vD1';
   qProdutos.ParamByName('vD1').AsString := '%'+ListBox.Items.Strings[0]+'%';

   if Listbox.Items.Count >= 2 then begin
      qProdutos.SQL.Add('and DESCRICAO like :vD2');
      qProdutos.ParamByName('vD2').AsString := '%'+ListBox.Items.Strings[1]+'%';
   end;

   if Listbox.Items.Count >= 3 then begin
      qProdutos.SQL.Add('and DESCRICAO like :vD3');
      qProdutos.ParamByName('vD3').AsString := '%'+ListBox.Items.Strings[2]+'%';
   end;

   if Listbox.Items.Count >= 4 then begin
      qProdutos.SQL.Add('and DESCRICAO like :vD4');
      qProdutos.ParamByName('vD4').AsString := '%'+ListBox.Items.Strings[3]+'%';
   end;

   qProdutos.SQL.Add('order by DESCRICAO');
   qProdutos.Open;
end;

function Separar(Text: String; Break: Char): TStringList;
var I: Integer; Pal: String;
begin
Result := TStringList.Create;
if (Length(Text) = 0) or (Break = '') then
  Result.Add(Text)
else
for I := 1 to Length(Text) do
  if Text[I] = break then begin
    Result.Add(Pal);
    Pal := '';
   end else Pal := Pal+Text[I];
if Pal <> '' then
  Result.Add(Pal);
end;

 

[dreamsoft_PR]

certo, obrigado!

[Sérgio Assunção]

1 minuto atrás, dreamsoft_PR disse:

certo, obrigado!

Com isso eu consigo fazer uma consulta com até 4 palavras em um mesmo edit.

[leandroaoa]

qual banco de dados esta usando ?

se for mysql/mariadb tem o indice fulltext. que funciona como a pesquisa do google.

[dreamsoft_PR]

uso firebird

[Reinaldo Silveira]

Observe que se você fazer a consulta assim: LIKE '%AFASTADOR%MEDIO%' você obterá resultado. Ou seja, substituindo o caractere espaço por porcentagem, sua pesquisa ficará mais flexível.

Tente algo assim:

qry.Close;
qry.SQL.Add('SELECT * FROM TB_PRODUTO WHERE DESCRICAO LIKE :pesquisa');
qry.Params[0].Value := '%'+ StringReplace(edtPesquisa.Text, ' ', '%', [rfReplaceAll]) +'%';
qry.Open;

Eu uso desta forma e nunca tive problemas.

[dreamsoft_PR]

1 hora atrás, Reinaldo Silveira disse:

Observe que se você fazer a consulta assim: LIKE '%AFASTADOR%MEDIO%' você obterá resultado. Ou seja, substituindo o caractere espaço por porcentagem, sua pesquisa ficará mais flexível.

Tente algo assim:

qry.Close;
qry.SQL.Add('SELECT * FROM TB_PRODUTO WHERE DESCRICAO LIKE :pesquisa');
qry.Params[0].Value := '%'+ StringReplace(edtPesquisa.Text, ' ', '%', [rfReplaceAll]) +'%';
qry.Open;

Eu uso desta forma e nunca tive problemas.

OBRIGADO simples e pratico , resolveu o problema!!