Acentuação

[rmanelici 0]

Eu utilizo um banco de dados em access que contêm dados desde o ano de 2003. Infelizmente não há um padrão de inserção de dados, há dados de palavras com acento e outras sem acento (por exemplo: João e Joao). Eu gostaria de Fazër uma pesquisa na qual eu pudesse ter como retorno tanto o "João como o "Joao", sem precisar fazer duas vezes a mesma pesquisa. Fui Claro?Obrigado.

[rOcKLoCo 0]

você pode criar uma funcao para remover os acentos...ai no SQL você pode colocar as 2 opcoes... 1 com acento e outro sem...

[rmanelici 0]

Como?

[Alessancost 0]

Eu fiz assim, mas não funcionou

 

ASP

[*] <% function preparaPalavra(str)

 

[*]preparaPalavra = replace(str,"á","a")

 

[*]preparaPalavra = replace(preparaPalavra,"à","a")

 

[*]preparaPalavra = replace(preparaPalavra,"â","a")

 

[*]preparaPalavra = replace(preparaPalavra,"ä","a")

 

[*]preparaPalavra = replace(preparaPalavra,"ã","a")

 

[*]preparaPalavra = replace(preparaPalavra,"a","[a,á,à,ã,â,ä]")

 

[*]

 

[*]preparaPalavra = replace(preparaPalavra,"é","e")

 

[*]preparaPalavra = replace(preparaPalavra,"è","e")

 

[*]preparaPalavra = replace(preparaPalavra,"ê","e")

 

[*]preparaPalavra = replace(preparaPalavra,"ë","e")

 

[*]preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]")

 

[*]

 

[*]preparaPalavra = replace(preparaPalavra,"í","i")

 

[*]preparaPalavra = replace(preparaPalavra,"í","i")

 

[*]preparaPalavra = replace(preparaPalavra,"î","i")

 

[*]preparaPalavra = replace(preparaPalavra,"ï","i")

 

[*]preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]")

 

[*]

 

[*]preparaPalavra = replace(preparaPalavra,"ó","o")

 

[*]preparaPalavra = replace(preparaPalavra,"ò","o")

 

[*]preparaPalavra = replace(preparaPalavra,"ô","o")

 

[*]preparaPalavra = replace(preparaPalavra,"ö","o")

 

[*]preparaPalavra = replace(preparaPalavra,"õ","o")

 

[*]preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,ô,õ,ö]")

 

[*]

 

[*]preparaPalavra = replace(preparaPalavra,"ú","u")

 

[*]preparaPalavra = replace(preparaPalavra,"ù","u")

 

[*]preparaPalavra = replace(preparaPalavra,"û","u")

 

[*]preparaPalavra = replace(preparaPalavra,"ü","u")

 

[*]preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")

 

[*]

 

[*]'preparaPalavra = replace(preparaPalavra, "ç",c")

 

[*]end function

 

[*]

 

[*]if (request.QueryString("titulo") <> "") then

 

[*]auxsql = "Select * from Tabela where post like '%" + preparaPalavra(request.QueryString("titulo")) + "%'"

 

[*]end if

 

[*]%>

 

[*] <%

 

[*] '-------------------------------------------------- 

 

[*] ' RESULTADO DA PESQUISA

 

[*] '-------------------------------------------------- 

 

[*] busca = request("txtBusca")

 

[*] SQL = "Select * From posts Where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC"

 

[*] Set RS = ConnDB.Execute(SQL) 

 

[*] do until RS.EOF

 

[*] titulo = Replace((rs("titpost")), (Request.Form("txtBusca")),"<font style=""background-color: #FFFF00"">"& (Request.Form("txtBusca"))&"</font>")

 

[*] xnegrito = Request.Form("txtBusca")

 

[*] response.write "<a href=""popposts.asp?id="&RS("id")&"&negrito="&xnegrito&""">"& titulo &"</a><div class=""fonte01""></div>"

 

[*] RS.MoveNext