Consulta Update para retirar acentos

Question

primeiramente gostaria de saber se � realmente aconselh�vel n�o utilizar acentos na hora de cadastrar.

tenho uma base de dados das cidades e bairros e s�o acentuadas. como fa�o uma consulta update para retirar estes acentos?

Thomaz_prg · Answer

� mais simples voc� fazer uma rotina no Delphi para avaliar isso. Eu permito que o usu�rio coloque acentos normalmente, por�m, na hora da pesquisa, substituo os caracteres com acentos por _ (underline). Isso faz com que, no lugar desses caracteres, sejam aceitos quaisquer outros caracteres.

Raserafim · Answer

thomaz, gostei da id�ia.vc pode postar a rotina q vc usa?...

Thomaz_prg · Answer

Uso uma query normal para pesquisa, mas antes de passar o par�metro para pesquisa, uso uma fun��o para tratamento:

with IBQuery1 do begin
  Close;
  SQL.Text := �select * from tabela where nome like :nome�;
  ParamByName(�NOME�).Value := TrataPesq( VarNome );
  Open;
end;

[b:e983207c7d]Fun��o TrataPesq[/b:e983207c7d]

uses StrUtils...;


function TrataPesq( C:string ):string;
var 
  i : integer;
const
  letras = ������������������������������������������������ܴ;
begin
  result := C;
  for i:=1 to length(letras) do 
    Result := AnsiReplaceStr( Result , Copy(letras,i,1) , �_� );
  Result := UpperCase( Result );
end;

Se por exemplo digit�ssemos o valor �Jos� para busca, a fun��o TrataPesq, traria para o SQL o valor �JOS_�, ou seja, pesquisaria tudo que tivesse �JOS�+Alguma Letra.

Emerson Nascimento · Answer

[quote:ba38b7a2a0=�raserafim�]gostaria de saber se � realmente aconselh�vel n�o utilizar acentos na hora de cadastrar[/quote:ba38b7a2a0]quanto ao cadastro em si n�o sei se h� problema ou algum motivo para o desencorajamento do uso. eu sei que, se voc� trabalha com arquivos de troca de dados (principalmente para o governo), os acentos n�o s�o permitidos (pelo menos n�o eram at� um dia desses)....

F�rum Consulta Update para retirar acentos #54937