FILTRO
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,
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,
Se estiver usando Sql, é só usar a clausula IN:
Onde Tabela é o nome de Sua tabela e Campo é o nome do campo que tem os registros que deseja filtrar
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
Corrigindo o Robiu:
Você tem que fechar aspas a cada item, pois o nome é uma string.
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
Cara, não to usando SQL, uso ADO.
Bom você ainda tem muito a aprender, vamos lá ADO usa querys SQL.
isto é uma query SQL:
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.
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