TODAS LINHAS DO LISTVIEW

ALANTB 05/05/2015 08:25:30
#446358
Olá, tenho dois listview em um form(vb6). O primeiro lista os funcionários e com duplo clique exibe informações deste, selecionado, no segundo listview. Os funcionarios cadastrados tem dados relativos à eles em uma tabela chamada tbCertificado, que trás o campo codStatus igual a 1. Preciso que os dados carregados no listview2 e que tem seu chekbox marcado tenha seu codStatus alterado para 2. Sendo assim montei a rotina abaixo, mas ela somente altera os dados de uma linha do listview de cada vez. Como fazer para pegar todas as linhas de uma vez e que também estejam marcadas?

Private Sub btnMover_Click()
MoveHistorico
End Sub

Sub MoveHistorico()

For i = 1 To ListView2.ListItems.Count
If ListView2.ListItems(i).Checked = True Then
frmEditaCertificado.txtCodStatus.Text = 2
conn.Execute [Ô]UPDATE tbCertificado set [Ô] & _
[Ô]codStatus =[ô][Ô] & frmEditaCertificado.txtCodStatus.Text & [Ô][ô][Ô] & _
[Ô]WHERE codCertificado =[Ô] & ListView2.SelectedItem.Text
MsgBox [Ô]Alteração efetuada com sucesso.[Ô]
End If

[ô]ListaFuncionarios
Next i

ListView2.ColumnHeaders.Clear
ListView2.ListItems.Clear


End Sub
OMAR2011 05/05/2015 09:23:58
#446363 Resposta escolhida
O que é isto.
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446255&pagina=1
ALANTB 05/05/2015 09:54:30
#446367
Conforme comentei no outro tópico, tive problemas e não estava conseguindo visualisar o tópico que já havia aberto. Mas conforme resposta anterior, funcionou a rotina do OMAR2011. Sendo assim vou encerrar e pontuar...valeu pela atenção!!
Tópico encerrado , respostas não são mais permitidas
Voltar