(Resolvido) Palavras com acentos em Select

[João Paulo Taraciuk]

Boa tarde

Estou trabalhando em uma aplicação feita em Delphi com base de dados em Access e estou encontrando dificuldades no Select no que diz respeito a palavras acentuadas serem buscadas sem digitar o acento, ex: José e Jose, não e não.

Como eu poderia contornar esse problema no Delphi?

[Leandro Abbade]

Bom dia amigo,

veja se ajuda:

http://www.accessfaq.com.br/webroot/detalh...p;search=acento

Veja se ajuda este tópico:

http://www.expertaccess.com.br/forum/forum...6&KW=acento

[João Paulo Taraciuk]

Olá Leandro, cara, eu tente aqui, mas não consegui transformar essa funcao em pascal, algumas funcoes do VB não tenho no Delphi...

[MrMALJ]

Não posso nem ajudar porque de Delphi eu só sei que é baseada em Pascal e nada mas...

[João Paulo Taraciuk]

Olá pessoal

Consegui resolver o problema da pesquisa com ou sem acentos, vou colocar a função que criei, se alguém passar pelo mesmo problema:

Bom, crio a função:

Function TratarAcentos(txt: String): String;

function Tfrm_Clientes.TratarAcentos(txt: String): String;
var
i: Integer;
begin
if(Trim(txt))<>''then
begin
for i:=0 to Length(txt)do
  begin
  case txt[i] of
  'a', 'á', 'â', 'ã', 'à', 'ä', 'å', 'Á', 'Â', 'Ã', 'À', 'Ä', 'Å' : txt[i]:= '_';
  'e', 'é', 'ê', 'è', 'ë', 'É', 'Ê', 'È', 'Ë'                     : txt[i]:= '_';
  'í', 'î', 'ì', 'ï', 'Í', 'Î', 'Ì', 'Ï'                          : txt[i]:= '_';
  'ó', 'ô', 'õ', 'ò', 'ö', 'Ó', 'Ô', 'Õ', 'Ò', 'Ö'                : txt[i]:= '_';
  'ú', 'û', 'ù', 'ü', 'Ú', 'Û', 'Ù', 'Ü'                          : txt[i]:= '_';
  'ç', 'Ç'                                                        : txt[i]:= '_';
  end;
  Result:=txt;
  end;
end;
end;

Aí chamei ela assim no select:

procedure Tfrm_Clientes.Busca;
begin
with
  DataModule1.ADOQueryClientes do
  begin
  Active:=False;
  SQL.Clear;
  SQL.Add('Select * from Clientes where nome like :a');
  Parameters.ParamByName('a').Value:=TratarAcentos(edt_pesquisa.Text)+ '%';
  Active:=True;
  end;
end;

Assim, colocando na Public posso chamar ela em qualquer form, só colocando o nome do edit.

Mas, como nem tudo são rosas, a funcao do '_'(Underline) é ser um coringa, ou seja, ele substitui o caracter naquela posicao por qualquer um, e pode acontecer o seguinte, no caso de ter que pesquisar por exemplo cão e no banco tenha cão e Chow, por exemplo, vai vir as duas na busca quando digitar cao, devido ao fato de o 'a' virar qualquer letra, vai virar um h, nesse caso.

Mas isso resolve o meu problema por hora.

Abraço!!!

[MrMALJ]

João agradeço por ter retornado a sua solução, com certeza irá ajudar outros com dúvidas semelhantes!

Valeu!