FILTRO

DEFAVERO 27/08/2009 16:02:33
#321141
Srs,


Tenho uma coluna com varios nomes, dentre esses nomes necessito filtrar certos, porém não estou conseguindo...

Tenho o seguinte

Nomes IDADE
André 10
Gustavo 13
Pedro 15
antonio 21
thiago 33

O que necessito é fazer um filtro para que quando eu digite em uma txt o nome Thiago, André, Gustavo me mostre somente esses 3 nomes... Mas não estou conseguindo...

Uso VB6, e base access...


Att,

ROBIU 27/08/2009 16:18:50
#321143
Se estiver usando Sql, é só usar a clausula IN:

 Sql = [Ô]Select * From Tabela Where Campo in ([ô][Ô] & Text1.Text & [Ô][ô])[Ô]


Onde Tabela é o nome de Sua tabela e Campo é o nome do campo que tem os registros que deseja filtrar
ASHKATCHUP 27/08/2009 17:23:52
#321152
Corrigindo o Robiu:


Sql = [Ô]Select * From Tabela Where Campo in ([ô]André[ô],[ô]Thiago[ô],[ô]Gustavo[ô])[Ô]


Você tem que fechar aspas a cada item, pois o nome é uma string.


Private Sub Command1_Click()
MsgBox func_Lista(Text1.Text)
End Sub

Private Function func_Lista(sLista As String) As String
Dim sRetorno As String
Dim iIndice As Integer
[ô]
sRetorno = [Ô][Ô]
For iIndice = 0 To UBound(Split(sLista, [Ô],[Ô]))
If Trim(Split(sLista, [Ô],[Ô])(iIndice)) <> [Ô][Ô] Then
If sRetorno <> [Ô][Ô] Then sRetorno = sRetorno & [Ô],[Ô]
sRetorno = sRetorno & [Ô][ô][Ô] & Split(sLista, [Ô],[Ô])(iIndice) & [Ô][ô][Ô]
End If
Next
[ô]
func_Lista = sRetorno
[ô]
End Function
DEFAVERO 28/08/2009 09:11:17
#321205
Cara, não to usando SQL, uso ADO.
MARCELO.TREZE 28/08/2009 11:43:39
#321219
Bom você ainda tem muito a aprender, vamos lá ADO usa querys SQL.

isto é uma query SQL:
Sql = [Ô]Select * From Tabela Where Campo in ([ô]André[ô],[ô]Thiago[ô],[ô]Gustavo[ô])[Ô]


Mas ainda existe uma duvida, você gostaria de digitar no textbox [Ô]André, Gustavo, Thiago[Ô] exatamente como coloquei, ou seja, separados por virgula e filtrar somente estes nomes, seria isto ou gostaria de digitar um de cada vez, para fazer o filtro, então seja mais especifico.
Tópico encerrado , respostas não são mais permitidas