Olá pessoal, estou com o seguinte problema:

 

Em um Textbox possuo as palavras "laranja verde" escritas exatamente como estão, ou seja com os espaços. Quero localizar as duas palavras em um texto, independentemente uma da outra, ou seja a palavra "laranja" pode estar em uma posição do texto e a palavra "verde" em outra. Tem como?

 

T+

SELECT campo1,campo2 FROM TABELA WHERE descricao LIKE '%laranja%' OR descricao LIKE '%verde%'

 

Isso acha ou laranja ou verde ou as duas em qq posição... para ser uma E a outra só substitui OR por AND na SQL

 

At+

Legal ghost...

 

Agora preciso separar as palavras que estão em um mesmo textbox para fazer a busca. Tem como?

 

T+

se for separar por espaços tente isso:

 

Dim Matriz as Variant

 

Matriz = Split(TextBox1.Text," ")

 

Vc vai jogar cada palavra na 'Matriz'.

 

Pra dar uma ajeitada e contemplar erros de existir elementos vazios faça assim:

Exemplo:

 

S = "JOAO      ABC  DA    SILVA"
S = F_RetiraEspacosExcesso(S)
Matriz = Split(S, " ")

For i = 0 To UBound(Matriz)
    Debug.Print Matriz(i)
Next

 

Private Function F_RetiraEspacosExcesso(ByVal sExp As String) As String
Dim sExp2 As String
sExp2 = Replace(sExp, "  ", " ")

If StrComp(sExp2, sExp) = 0 Then
    F_RetiraEspacosExcesso = sExp2
Else
    F_RetiraEspacosExcesso = F_RetiraEspacosExcesso(sExp2)
End If
End Function

 

at+