Busca em asp

[celinho_macaense 0]

Boa noite, gostaria de saber se algum poderia quebrar essa árvore! Em meu pequeno sisteminha em asp, tenho uma busca de noticias, daí se eu digitar: "É amanhã" ele não acha a noticia, mas se eu digitar "E amanha" aí sim ele acha a noticia. O que fazer para ele achar tanto com acento quanto sem o mesmo?! Agradeço a atenção de todos...

[Patrique 0]

aqui mano

 

http://imasters.com.br/artigo/683/busca_indiferente_da_acentuacao

http://imasters.com.br/artigo/14477/bancodedados/a_busca_com_e_sem_acentuacao_definitiva/

[xanburzum 169]

você pode colocar tb

 

<% Response.Charset="ISO-8859-1" %

 

olha este exemplo

função para remover acentos:

 

Function RemoverAcentos(ByVal Texto)
	Dim Com_Acentos
	Dim Sem_Acentos
	Dim Resultado
	Dim Cont
	'Conjunto de Caracteres com acentos
	Com_Acentos= "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
	'Conjunto de Caracteres sem acentos
	Sem_Acentos= "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
	Cont = 0
	Resultado = Texto
	Do While Cont < Len(Com_Acentos)
	Cont = Cont + 1
	Resultado = Replace(Resultado, Mid(Com_Acentos, Cont, 1), Mid(Sem_Acentos, Cont, 1))
	Loop
	RemoverAcentos = Resultado
End Function

[Patrique 0]

E ai mano, deu uma lida nos liks que eu te passei, resolveu?

[xanburzum 169]

lembrando k dependendo da cituacaun você pode remover os acentos direto da string SQL...

[Patrique 0]

Dependendo, mais tome cuidado com as gambiarras celinho, faça apenas o que for de necessidade do sistema, pois encher o sistema de chulas não leva a nada.

[xanburzum 169]

heheh, é o POG(programação Orientada a Gambiarras)

[celinho_macaense 0]

E ai mano, deu uma lida nos liks que eu te passei, resolveu?

 

olhei sim, mas como sou novato na área não consegui resolver ainda! Mais vou conseguir!

[xanburzum 169]

isso mesmo, vai estudando k consegue, kker coisa posta ae...

[hargon 64]

Qual banco de dados está utilizando?

[xanburzum 169]

esta função SQL faz a busca de todos caracteres que contém acentos e faz a sua substituição por caracteres sem acentos, retornando uma string, sem caracteres acentuados.

 

muitas vezes fica mais rápido

 

CREATE FUNCTION FREMOVE_ACENTOS (@TEXTO VARCHAR (5000))RETURNS VARCHAR (5000)  AS
BEGIN
DECLARE @COMACENTOS VARCHAR(50),
@SEMACENTOS VARCHAR (50),
@QTD_TEXTO INT,
@CONTADOR INT,
@QTD INT,
@CONT INT,
@CONT_C INT,
@LETRA_T VARCHAR(1),
@LETRA_C VARCHAR(1),
@RESULTADO VARCHAR (5000),
@TEXTE VARCHAR (30)

SET @COMACENTOS = "ÀÂÊÔÎÛÃÕÁÉÍÓÚÇÜ"
SET @SEMACENTOS =  "AAEOIUAOAEIOUCU"
SET @QTD_TEXTO = (SELECT LEN(@TEXTO))
SET @CONTADOR = 0
SET @RESULTADO = 
INICIO:
WHILE @CONTADOR < @QTD_TEXTO 
BEGIN
 SET @CONTADOR = @CONTADOR+1
 SET @LETRA_T = (SELECT SUBSTRING(@TEXTO,@CONTADOR,1))
 SET @CONT = (SELECT LEN(@COMACENTOS))  
 SET @QTD = 0      
  WHILE @QTD < @CONT
BEGIN
 SET @QTD = @QTD + 1
 SET @LETRA_C = (SELECT SUBSTRING(@COMACENTOS,@QTD,1)) 
 IF @LETRA_C = @LETRA_T 
  BEGIN
          SET @RESULTADO = @RESULTADO + (SELECT SUBSTRING(@SEMACENTOS,@QTD,1))
          GOTO INICIO
   END
    ELSE
       BEGIN  
                 IF @QTD = @CONT 
      SET @RESULTADO =  @RESULTADO + @LETRA_T    

              END
END 

END
RETURN  @RESULTADO
END

[Patrique 0]

A melhor forma de se aprender é essa, quebrando a cabeça mesmo, basta seguir os passos prestar atenção que tu ira conseguir, tenho certeza que certamente você nunca mais ira esquecer pelo menos este esquema de busca rsrsrs.

[xanburzum 169]

só complementando, para estudar bem, nunca deixe de frequentar o forum, sempre terá muitas opcoes,ideias, etc...

[Patrique 0]

Isso isso isso, o fórum é de vital importância pois com eles seus conhecimentos multiplicam!

[celinho_macaense 0]

Qual banco de dados está utilizando?

 

Uso ASP = ACCESS.

[xanburzum 169]

você conseguiu resolver ...

[celinho_macaense 0]

Realmente ta um pouquinho complicado, enfim... não consegui.

[xanburzum 169]

qual o problema...

[celinho_macaense 0]

Eu estou tentando fazer o que foi me passado nesse código:

 

<% @Language = VBScript %><%session.LCID=1046%>
<%strBusca = Request.QueryString("busca")
if strBusca <> "" then
stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("dados/dados.mdb")
Set RsConexao = Server.CreateObject("ADODB.Connection")
RsConexao.Open stringConexao
strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& strBusca &"%'"
Set RS = RsConexao.Execute(strSQL) %>
<title>Buscar Notícia</title><body bgcolor="white" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table align="center" cellpadding="0" cellspacing="0" width="635">
    <tr>
        <td width="125" valign="top" height="39">      
<p align="center"> </p>
</td>
        <td width="510" valign="top" height="39">            <p align="center"> 
      <p> <font face="Arial"><span style="font-size:10pt;">
        <%While not RS.EOF
response.write "" & RS("Classe") & "<BR>"
response.write ("<a href=""ver.asp?noticias=" & RS("ID") & "&classe=" 	& RS("Classe1") & """>" & RS("Topico") & "</a>") & "<BR><BR>"
RS.MoveNext
Wend
end if
 %>
    </td>
    </tr>
</table>

Mas da um erro.

[BrunoHP 0]

Da uma olhada no tópico Clique aqui

 

E veja um exemplo que eu deixei lá

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif