Acentos em Busca ASP - Access
Pessoal, estou usando o código abaixo para um sistema de buscas, mas se eu esqueço de digitar um acento ou cedilha, a palavra não é encontrada. Por exemplo, se escrevo "educacao", não encontra nada, mas se escrevo "educação", aí encontra. Como faço para a busca ignorar acentos e cedilha? Procurei pelo fórum mas não achei nenhum modelo que funcionasse no meu caso.
<%
Dim recBuscaLivros__MMColParam
recBuscaLivros__MMColParam = "1"
If (Request.Form("txtBusca") <> "") Then
recBuscaLivros__MMColParam = Request.Form("txtBusca")
End If
%>
<%
Dim recBuscaLivros
Dim recBuscaLivros_cmd
Dim recBuscaLivros_numRows
Set recBuscaLivros_cmd = Server.CreateObject ("ADODB.Command")
recBuscaLivros_cmd.ActiveConnection = MM_conAguilar_STRING
recBuscaLivros_cmd.CommandText = "SELECT titulo, autor, autor2, autor3, autor4, autor5, sinopse, codLivro FROM livro WHERE sinopse LIKE ? OR autor LIKE '%MMColParam%' OR autor2 LIKE '%MMColParam%' OR autor3 LIKE '%MMColParam%' OR autor4 LIKE '%MMColParam%' OR autor5 LIKE '%MMColParam%' OR titulo LIKE '%MMColParam%' ORDER BY titulo ASC"
recBuscaLivros_cmd.Prepared = true
recBuscaLivros_cmd.Parameters.Append recBuscaLivros_cmd.CreateParameter("param1", 200, 1, 255, "%" + recBuscaLivros__MMColParam + "%") ' adVarChar
Set recBuscaLivros = recBuscaLivros_cmd.Execute
recBuscaLivros_numRows = 0
%>
<%
Dim recAutor__MMColParam
recAutor__MMColParam = "1"
If (Request.Form("txtBusca") <> "") Then
recAutor__MMColParam = Request.Form("txtBusca")
End If
%>
Discussão (5)
Carregando comentários...