(Resolvido) Acentuação em Busca

[Vagner Nunes]

Prezados,

Boa tarde.

Preciso da ajuda dos senhores.

A situação é a seguinte, tenho uma página onde é feito uma busca de municípios, porém quando o visitante digita um determinado Municipio que contém acento, o sistema não retorna resultados.

Ex.: No banco de dados no campo locais, está cadastrado Vitória, daí se o visitante digitar Vitoria (sem acento) o sistema não retorna resultados, porém se eu cadastrar o municipio sem acento, ele busca normalmente.

Tem como configurar a busca para retornar resultados independentemente se estiver ou não com acentuação?

Obrigado.

Sds,

Vagner Nunes

[Clauido José]

ei pessoal eu vou tb tava com esse problema por exemplo se eu foce cadastrar no banco CLAUDIO JOSE não poderia ter CLAUDIO JOSÉ ou ainda CLAUDIO JOSÉ MARTINEZ ou AINDA CLAUDIO JOSE MARTINEZ assim sucessivamente então aindei dando umas pesquisas por ai nos foruns da vida e encontrei uma função bem legal e funciona vou postar para quem precisar ok.

Essa é a função que remove os acentos

Function RemoveAcentos(ByVal Texto)

Dim ComAcentos

Dim SemAcentos

Dim Resultado

Dim Cont

'Conjunto de Caracteres com acentos

ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"

'Conjunto de Caracteres sem acentos

SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"

Cont = 0

Resultado = Texto

Do While Cont < Len(ComAcentos)

Cont = Cont + 1

Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))

Loop

RemoveAcentos = Resultado

End Function

Esse o select que faz a busca no banco lembrando é bom gravar as palavras com acentos só a busca que você retira ok

palavrasemacento=RemoveAcentos(Nome)

strSql = "Select * from tabTecnicoAlmox where Nome like '%" & palavrasemacento & "%' "

strSql = strSql & "or Nome like '%" & Nome & "%' "

strSql = strSql & "and CPF like '%" & replace(sRe,"'","´") & "' "

Espero que tenha ajudado um abraço valeu.

[Vagner Nunes]

Estava chamando a função erroneamente:

Modo errado:

Municipios__SemAcentos = Request.QueryString("cidade")

Modo Correto:

Municipios__SemAcentos = RemoveAcentos(Request.QueryString("cidade"))

Agora funcionou beleza.

Valeu pela ajuda.

Sds,

Vagner Nunes