6 replies to this topic

[alessancost]

Pessoal hoje estou muito chato mesmo Acho que este é o meu terceiro tópico hoje. Pois bem, vamos lá, Eu tenho um código de busca... por exemplo se eu digitar Alessandro no campo o resultado é:

Alessandro Costa
Alessandro Andrade
Alessandro Natto

Até ai tubo bem! Mas se eu digitar alessandro costa.... o resultado será

Alessandro Costa

Mas estou querendo que fique assim

Alessandro Costa
Alessandro Andrade
Alessandro Natto
Thiago Costa
Marta da Costa Lima

O meu código ta assim:

   
  If strconsulta <> "" Then
  SQL = "SELECT palavra, registro "
  SQL = SQL + "FROM dicionario_latim "
  IF strbusca = 1 then
  SQL = SQL + "WHERE palavra LIKE '" & TiraAcento(Replace(strconsulta, "'", "''")) & "' "
  end if
  IF strbusca = 2 then
  SQL = SQL + "WHERE PALAVRA LIKE '%" & TiraAcento(Replace(strconsulta, "'", "''")) & "%' "
  end if   
  SQL = SQL + "ORDER BY palavra;"

[Generation]

use a função Split para separar o texto e acrescente depois a % para fazer a busca por todas as palavras.

[]'s

[alessancost]

Generation, eu fiz assim:

  consulta2 = split(strconsulta," ")
  SQL = SQL + "WHERE PALAVRA LIKE '%" & TiraAcento(Replace(consulta2(1), "'", "''")) & "%' "
      n=0
      i=2
      Do While n = 0
      if NOT consulta2(i) = null or NOT consulta2(i) = "" then
  SQL = SQL + "'%" & TiraAcento(Replace(consulta2(1), "'", "''")) & "%' "
      i = i + 1
      else
      n = 1
      end if
      loop 

E ocorre esse erro:

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: 'i' 

Como posso descobrir em quantas partes ele quebrou uma frase? Já que eu não sei quantas palavras o usuário poderá colocar numa pesquisa.
Obrigado e um bom final de semana

[Humberto - S.O.S.]

http://forum.wmonlin...howtopic=143028

[alessancost]

Obrigado Humberto - S.O.S.

[Humberto - S.O.S.]

De nada, resolvido?

[alessancost]

Resolvido Humberto - S.O.S.

<%    Rs3.MoveNext
  Loop
  end if
   
  If strconsulta <> "" Then
  SQL = "SELECT palavra, registro "
  SQL = SQL + "FROM arquivo "
  IF strbusca = 1 then
  SQL = SQL + "WHERE palavra LIKE '" & TiraAcento(Replace(strconsulta, "'", "''")) & "' "
  end if
  IF strbusca = 2 then
      palavra2=split(strconsulta," ")
  SQL = SQL + "WHERE palavra LIKE '%" & TiraAcento(Replace(palavra2(0), "'", "''")) & "%' "
      for x = 1 to Ubound(palavra2)
  pesq=palavra2(x)
  SQL = SQL + "OR palavra LIKE '%" & TiraAcento(Replace(palavra2(x), "'", "''")) & "%' "
      next
  end if   
  SQL = SQL + "ORDER BY palavra;"

      Rs2.open sql
  intContador = Rs2.RecordCount %>

Agora estou tetanto resolver esse problema...
Quando digito casa no campo o resultado é

casa
casamento
casarão

no caso tenho que fazer com que o resultado seja casa... se consequir posto aqui o resultado