Bom estou com uma indagação que na verdade nem sei se é possível fazer... Tenho um form onde vinculo informações de outra tabela através de um listview, ao salvar este "lançamento" gostaria de fazer um select na tabela de onde os dados da listview provem e alterar uma determinada informação, bom fazer o select e alterar eu consegui através do código abaixo, mas o problema é que se a listview tiver mais de um item ele altera a informação apenas do ultimo, no caso ele teria que fazer um select em todos os itens e alterar todos. Creio que estou fazendo alguma coisa errada... agradeço se alguém puder dar uma olhada!
Código: Selecionar todos
Dim strSQL As String
Dim id As Integer
Dim produto As String
Dim classificacao As String
For i = 1 To Me.List_efetivacao.ListItems.Count
id = List_efetivacao.ListItems(i)
produto = List_efetivacao.ListItems(i).ListSubItems(1)
classificacao = List_efetivacao.ListItems(i).ListSubItems(2)
Next
strSQL = "select * from TbSimulacao where Codigo like '" & id & "' and Produto like '" & produto & "'and Classificacao like '" & classificacao & "'"
Call conexao
Set consulta = banco.OpenRecordset(strSQL)
consulta.Edit
consulta("Situacao") = "teste"
consulta.Update