consulta em vb

[matrix444 0]

Tenho um form que contem os campos data, valor e descrição do produto. e os boto~es incluir, excuir, consultar, alterar e end.

os dados são inseridos por text box e apresentados por uma listview. como faço uma rotina que altere os valores já lançados. meu código que está dando erro é este:

 

Private Sub Command4_Click()

If MsgBox("Confirma a alteração do cliente?", vbYesNo + vbQuestion, "Alterar") = vbYes Then

strSql = "UPDATE DES_DIA_LAN SET DATA=#" & Format(txtdata.DatabaseName, "mm/dd/yyyy") & "#,DESCRICAO='" & txtdes & "', VALOR='" & txtval & "' WHERE DATA =#" & Format(txtdata.DatabaseName, "mm/dd/yyyy") & "#"

cnn.Execute strSql

 

 

 

End If

 

 

End Sub

[Nilson Cl. 0]

Matrixx444 Boa tarde

 

se você puder posta o projeto zipado ai dou uma olhada.

E retorno o mesmo com o codigo modificado e explicando o que esta acontecendo.

 

t+

[Claudio Neto 3]

Olá Matrix444.

 

Repita o código que está usando para preencher o listview após fazer as alterações no banco. Não existe uma forma dele alterar automaticamente, então precisa limpar e popular de novo.