ATUALIZAR LISTVIEW

USUARIO.EXCLUIDOS 23/04/2007 11:46:53
#213332
é continua o mesmo erro.
DANIELCPAETE 23/04/2007 14:30:18
#213377
cara coloca uns dados falsos na sua base e cria um projeto so com este form para colocar aqui no topico pro pessoal dar uma olhada pra ver se te ajudam so não esquece de colocar as tabelas
USUARIO.EXCLUIDOS 23/04/2007 15:44:55
#213395
segue modelo anexo.
DANIELCPAETE 23/04/2007 16:32:30
#213403
cara faz assim coloca este codigo na função preenche_lista que vai funcionar pelo que eu vi ele esta ficando com a configuração de inicialização da conexao com o banco entra basta vc fechar e mandar abrir novamente o banco


cnnObjetivo.Close
cnnObjetivo.Open
DANIELCPAETE 23/04/2007 17:11:15
#213413
So pra completar ficaria assim

Private Sub preenche_lista()
LockWindowUpdate ListaVenda.hWnd
vValor1 = 0
Me.ListaVenda.ListItems.Clear
cnnObjetivo.Close
cnnObjetivo.Open
scnn = cnnObjetivo
Set rst = New Recordset
rst.Open "Select *from tblVenda Where Fechado = 0 ", scnn, adOpenStatic, adLockOptimistic
Do While Not rst.EOF
DoEvents
Set NewList = ListaVenda.ListItems.Add(, " Key " & rst("Codigo"), rst("Codigo"))
    NewList.SubItems(1) = "" & rst("CodigoCliente")
    NewList.SubItems(2) = "" & rst("CodigoProduto")
    NewList.SubItems(3) = "" & rst("Qtde")
    NewList.SubItems(4) = "" & rst("Preco")
    NewList.SubItems(5) = "" & rst("SubTotal")
    vValor1 = (vValor1 + rst!Subtotal)
Me.txtTotal.Text = Format(vValor1, "Currency")
Me.txtTotal.Enabled = False
rst.MoveNext
Loop
rst.Requery 1
rst.Close
Set rst = Nothing
LockWindowUpdate 0
End Sub
USUARIO.EXCLUIDOS 23/04/2007 17:12:31
#213416
Agora funcionou perfeitamente, agradeço a todos pelo tempo disponibilizado.

grande abraço.
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar