Acentuação em busca!

[Vagner Nunes 0]

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

[xanburzum 169]

usa uma função para retirar os acentos antes de fazer a busca:

 

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