filtragem

[Andrea Dahmer 0]

Alguem pode m,e dar uma luz???????????tenho que fazer uma filtragem em um ListView que esta ligado a um banco, usando um combo.mas nao me lembro da estrutura direito. se alguem puder me ajudar ficarei muito grata. Andrea Dahmer

[pazdzicki 0]

Private Sub mostra1(letra As String)

Set BD = New ADODB.Connection

BD.CursorLocation = adUseClient

BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PADO\BdPaula.mdb;Persist Security Info=False"

Set TB = New ADOR.Recordset

TB.Open "Select Cliente, NomeDoProjeto FROM Projeto order BY Cliente", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PADO\BdPaula.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic

 

TB.Filter = "Cliente Like '" & letra & "%'" 'Filtro para selecionar Projetos de determinado cliente

 

Combo5.Clear

Do While Not TB.EOF

Combo5.AddItem TB.Fields("NomeDoProjeto") '& ", " & TB.Fields("Atividade")

TB.MoveNext

Loop

 

End Sub

 

Neste caso usei uma combo para filtrar em uma combo tb, mais você pode mudar pata list.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Andrea Dahmer 0]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif MUito obrigada. Ajudo muuuuuuuuito mesmo

VAleu. Andrea