[Resolvido] Busca com, e sem acento

[celi 0]

Outro dia fiz esta pergunta Clique aqui, me ajudaram, porém na hora que busco alguma noticia ele pega tudo que esta cadastrado no bd. Seria possivel buscar somente o que foi digitado exemplo: José ou Jose? Entenderam? Quero fazer busca indiferente do acento repetindo a pessoa digita jose daí o sistema acha José. Seria possível quebrar essa pra mim? Obrigado!

[xanburzum 169]

olha este exemplo:

 

palavra="sua palavra âöùei"
CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ" 
        SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN" 
        Texto = "" 
        if Palavra <> "" then 
        For X = 1 to Len(Palavra) 
        Letra = mid(Palavra,X,1) 
        Pos_Acento = inStr(CAcento,Letra) 
        if Pos_Acento > 0 then 
        Letra = mid(SAcento,Pos_Acento,1) 
        end if 
        Texto = Texto & Letra 
        next 
        TiraAcento = Texto 
        end if 
                response.write(tiraacento)

[celi 0]

Mas num da certo veja como coloquei

<% @Language = VBScript %><%session.LCID=1046%>

<%strBusca = Request.QueryString("busca")

if strBusca <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("celi.mdb")

Set RsConexao = Server.CreateObject("ADODB.Connection")

RsConexao.Open stringConexao

strSQL = "SELECT * FROM Noticias WHERE Titulo LIKE '%"& StrBusca &"%'"

Set RS = RsConexao.Execute(strSQL) %>

<%

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "a","á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "e","é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "i","í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "o","ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "ñ"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

end function

%>

[xanburzum 169]

você precisa passar o texto que quer no StrAcento

[celi 0]

por gentileza xanburzum, você poderia me mostrar no código como eu foço isso? Descula-me a minha "lentidão", mas é que estou aprendendo.

[xanburzum 169]

<% @Language = VBScript %><%session.LCID=1046%>

<%StrAcento= Request.QueryString("busca")

if StrAcento<> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("celi.mdb")

Set RsConexao = Server.CreateObject("ADODB.Connection")

RsConexao.Open stringConexao

strSQL = "SELECT * FROM Noticias WHERE Titulo LIKE '%"& StrAcento &"%'"

Set RS = RsConexao.Execute(strSQL) %>

<%

 

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "a","á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "e","é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "i","í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "o","ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "ñ"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

 

%>

[celi 0]

xanburzum, veja bem agora funcionou, mas só tem mais um probleminha o sistema exibe todas as noticias cadastradas no bd. É possível buscar somente o q foi digitado? Tipo: jose ai ele pegase Carlos José nasceu ontem. Atualmente você digita José e o sistema traz: a, b, c, d, e... todas entendeu?

[xanburzum 169]

sim, use o operaor LIKE da SQL

 

"SELECT * FROM TABELA WHERE NOME LIKE '%" & variavel & "%'"

[celi 0]

Mais já esta deste jeito veja:

strSQL = "SELECT * FROM Titulo WHERE Noticia LIKE '%"& StrBusca &"%'" 

e continua buscando todas as noticias gravadas no bd.

[Mário Monteiro 179]

StrBusca não está vazio?

[celi 0]

Se eu colocar assim resolve?

strSQL = "SELECT * FROM Titulo WHERE Noticia LIKE '%"& StrBusca &"%'id;"

[Mário Monteiro 179]

se a variável estiver vindo com valor sim senão pegará tudo mesmo

[celi 0]

De qualquer forma aparece este erro: Microsoft JET Database Engine error '80040e14'

 

Syntax error (missing operator) in query expression 'Noticia LIKE '%%'id'.

 

/2010/noticias/buscar.asp, line 8

[xanburzum 169]

dá um response.write na sua string SQL para ver o que esta sendo passado

 

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada.

[celi 0]

False

Microsoft JET Database Engine error '80040e0c'

 

Command text was not set for the command object.

 

buscar.asp, line 8

[Mário Monteiro 179]

o id está boiando ali

 

seria para ordenar por id?

 

se for ponha um ORDER BY

[celi 0]

olha agora coloquei assim:

strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& StrBusca &"%'order by id asc;"

mais ainda busca todas noticias.

[Mário Monteiro 179]

me tira uma duvida

 

logo apos esta linha que postou agora ponha exatamente

 

Response.write(strSQL)

Response.end

 

o que aparecer na tela post aqui

[celi 0]

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

buscar.asp, line 7

 

strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& StrBusca &"%'order by id asc;" Response.write(strSQL)

----------------------------------------------------------------------------------------^

[Mário Monteiro 179]

como colocou seu código? pois passou a dar erro que antes não dava e não era para ter acontecido