listview

[marcia232865 0]

gente, tenho o seguinte listview:Public Sub Preenche()pcalista.ListItems.Clear 'limpar o listviewDo Until rs.EOFSet lst = pcalista.ListItems.Add(, , rs("pca_cod"))lst.SubItems(1) = rs("pca_des")rs.MoveNextLoop rs.CloseEnd Subbeleza, este listview é multiselect, ou seja, posso selecionar varios registros.SE NÃO FOSSE, eu faria assim:rs.Open "select * from pca where pca_cod= " & pcalista.SelectedItem.Text, cnngaragem,mas como faço para usar varios registros????????????? valeu, marcia

[marcia232865 0]

oi, faz assim:

 

j = pcalista.ListItems.Count

For i = j To 1 Step -1

If pcalista.ListItems(i).Selected = True Then

 

Verifica_RS

rs.Open "(select 'ENTRADA' as tipo, * from tabelas

where pca.pca_cod = '" & pcalista.ListItems.Item(i) & "' and etc.... )

union

(select 'SAIDA' as tipo, * from tabelas

where pca.pca_cod = '" & pcalista.ListItems.Item(i) & "' and etc... )", cnnconexao

 

End If

Next i