FILTRO
Olá, a Todos
Como faço para filtrar os filmes de uma tabela através do gênero do filme
selecipnando o genero em um combo e os filmes com aquele genero são filtrados em um listbox
ex: Ação = Maquina Mortifera, Exterminador.....
Como faço para filtrar os filmes de uma tabela através do gênero do filme
selecipnando o genero em um combo e os filmes com aquele genero são filtrados em um listbox
ex: Ação = Maquina Mortifera, Exterminador.....
'seleciona os dados
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM tabela;"
Adodc1.Refresh
'carrega valores no combo
For i = 1 To Adodc1.Recordset.RecordCount
Adodc1.Recordset.AbsolutePosition = i
Combo1.AddItem Adodc1.Recordset("campo")
Next i
'faz o filtro.
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * from tabela where campo = '" & Combo1.Text & "' and campo2 = '" & Combo3.Text & " '"
Adodc1.Refresh
So que neste exemplo eu utilizei um, se vc não poder listar em um grid faça a adapatação para o seu projeto acho que é um bom começo.
No caso coloquei duas condições so para que vc podesse ter uma ideia, caso não seja nescessario é so tirar a condição end.
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM tabela;"
Adodc1.Refresh
'carrega valores no combo
For i = 1 To Adodc1.Recordset.RecordCount
Adodc1.Recordset.AbsolutePosition = i
Combo1.AddItem Adodc1.Recordset("campo")
Next i
'faz o filtro.
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * from tabela where campo = '" & Combo1.Text & "' and campo2 = '" & Combo3.Text & " '"
Adodc1.Refresh
So que neste exemplo eu utilizei um, se vc não poder listar em um grid faça a adapatação para o seu projeto acho que é um bom começo.
No caso coloquei duas condições so para que vc podesse ter uma ideia, caso não seja nescessario é so tirar a condição end.
Tópico encerrado , respostas não são mais permitidas