AJUDA LISTVIEW

Citação:

DEKINHO escreveu:
caros colegas, bom dia..
estou carregando a list dessa forma..

Public cnn As ADODB.Connection
Public rs As ADODB.Recordset, sql As String
[à']abre banco e faz 1a carga na list

[c]Sub main()
sql = [Ô]select * from membros order by nome desc[Ô]
Set cnn = New ADODB.Connection
    cnn.Open [Ô]dsn=icpb[Ô]

Set rs = New ADODB.Recordset
    rs.Open sql, cnn, adOpenDynamic, adLockBatchOptimistic

enche_list frmPesquisa.list1, rs
frmPesquisa.Show
End Sub

Sub tornaM(frm As Form)
For Each ctl In frm.Controls
    If TypeOf ctl Is TextBox Then
        ctl.Text = StrConv(ctl.Text, vbUpperCase)
        ctl.SelStart = Len(ctl.Text)
    End If
Next
End Sub

Sub enche_list(lst As ListView, rs As Recordset)
With lst
    Do While Not rs.EOF
        .ListItems.Add 1
        .ListItems(1).ListSubItems.Add 1, , Format$(rs!codigo, [Ô]00000[Ô])
        .ListItems(1).ListSubItems.Add 2, , Format$(rs!nome, [Ô]>[Ô])
        .ListItems(1).ListSubItems.Add 3, , Format$(IIf(IsNull(rs!situacao), [Ô]...[Ô], rs!situacao), [Ô]>[Ô])
        rs.MoveNext
    Loop
End With
rs.Close
End Sub

[à']aqui tento atualizar a list baseado na text1

Private Sub Text1_Change()
[à']limpa a list para novos valores
list1.ListItems(1).ListSubItems.Clear
[à']novo critério de pesquisa
sql = [Ô]select * from membros where nome like [à'][Ô] & UCase(Text1.Text) & [Ô]*[à'];[Ô]
rs.Open sql, cnn, adOpenStatic, adLockOptimistic
[à']enche com novos valores
enche_list list1, rs [à']não funciona

   

grato
[/c]