pesquisa sem acento

Question

boa tardeTem com fazer uma pesquisa que possa identifica se o nome tem acento ou n�o por exemplo seu eu digito na edit o nome joao me de com resultadojoaojo�ojos� jo�o oujos� joaotodos os joao com ace...

Bertocco · Answer

// use essa fun��ofunction RemoveAcento(Str:String): String; Const ComAcento = ����������������������������ܴ; SemAcento = �aaeouaoaeioucuAAEOUAOAEIOUCU�; Var x : Integer; Begin For x := 1 to Length(Str) do if Pos(Str[x],ComAcento)<>0 Then Str[x] := SemAcento[Pos(Str[x],ComAcento)]; Result := Str; end; Como usaredit1.Text:=RemoveAcento(edit.Text);Boa Sorte...

Matrix0101 · Answer

descupe a minha falta de conhecimento mais essa fun��o faria uma pesquisa no banco de dados mesmo que estej� gravado o nome com acento ou sem acento....

Bertocco · Answer

Sim, usando at� mesmo o dbedit1, Exemloquery.ParambyName.(�NOME�).Astring:=RemoveAcento(dbedit1.Text);...

Mkoch · Answer

Eu utiliso o Firebird 1.5, e criei uma UDF para remover os acentos no momento da pesquisa dentro do SQL que � o que voc� deve querer. Infelizmente n�o sei se isso � poss�vel no access....

Geomicro · Answer

amigo estou tendo usa esse comando que vc me deu no adoquery e n�o consigo

Sim, usando at� mesmo o dbedit1,
Exemlo

query.ParambyName.(�NOME�).Astring:=RemoveAcento(dbedit1.Text);

teria oura forma so para fazer o teste

F�rum pesquisa sem acento #297274