ATUALIZAR REGISTRO NO LISTVIEW
pessoal, possuo dentro do meu listview alguns registros do banco. entre esses registros está o codigo do produto.
ao lado de todos os codigos de produtos apare um checkbox.
e quando o usuário selecionar um checkbox de um determinado codigocde produto ele deve atualizar toda linha pertecente a arquele produto.
como eu faço uma atualização com a instrução update?
obrigado
ao lado de todos os codigos de produtos apare um checkbox.
e quando o usuário selecionar um checkbox de um determinado codigocde produto ele deve atualizar toda linha pertecente a arquele produto.
como eu faço uma atualização com a instrução update?
obrigado
UPDATE PRODUTOS SET PRODUTOS.IDPRODUTO = 123, PRODUTOS.DESCRICAO = "aabb", PRODUTOS.REF = "ref";
WHERE ID= 1
ou seja UPDATE NOME_TABELA SET NOMECAMPO1=VALOR, NOMECAMPO2=VALOR ...
WHERE NOMECAMPO = 1
WHERE ID= 1
ou seja UPDATE NOME_TABELA SET NOMECAMPO1=VALOR, NOMECAMPO2=VALOR ...
WHERE NOMECAMPO = 1
cara estou fazendo esse código para fazer a atualização:
For i = 0 To lstMostra.ListItems.Count - 1
'strsql = "DELETE FROM Produtos WHERE CódigoDoProduto = " & CLng(Me.Tag)
strsql = "update itens_pedido2 set desconto = '" & lstdesc.List(i) & "', qtde = " & CInt(lstqtdepedido.List(i)) & ", valor = '" & lstpreco.List(i) & "', valor_bruto_i = " & CInt(lstvlrbruto.List(i)) & ", valor_desconto_total_i = " & CInt(lstvlrdesctotal.List(i)) & ", valor_liquido_i = " & CInt(lstvlrliq.List(i)) & ", situacao = '" & lstMostra.ListItems.Item(i) & "' where codigo_produto = 1 " '& CLng(Me.Tag)
If MsgBox("confirma a alteração referente ao produto? => " _
& lstMostra.SelectedItem.SubItems(1), vbYesNo, "Alterar") = vbYes Then
Conexao.Execute strsql
End If
Next
sendo que o código do produto éstá dentro do listview e o campo situacao é o checkbox quando for selecionado.
quando seleciono e clico em alterar ele dá uma mensagem: index out o bounds.
mais continua na telado sistema para continuar trabalhando, porém não altera.
o que pode estar errado?
dá uma luz.
valeu
For i = 0 To lstMostra.ListItems.Count - 1
'strsql = "DELETE FROM Produtos WHERE CódigoDoProduto = " & CLng(Me.Tag)
strsql = "update itens_pedido2 set desconto = '" & lstdesc.List(i) & "', qtde = " & CInt(lstqtdepedido.List(i)) & ", valor = '" & lstpreco.List(i) & "', valor_bruto_i = " & CInt(lstvlrbruto.List(i)) & ", valor_desconto_total_i = " & CInt(lstvlrdesctotal.List(i)) & ", valor_liquido_i = " & CInt(lstvlrliq.List(i)) & ", situacao = '" & lstMostra.ListItems.Item(i) & "' where codigo_produto = 1 " '& CLng(Me.Tag)
If MsgBox("confirma a alteração referente ao produto? => " _
& lstMostra.SelectedItem.SubItems(1), vbYesNo, "Alterar") = vbYes Then
Conexao.Execute strsql
End If
Next
sendo que o código do produto éstá dentro do listview e o campo situacao é o checkbox quando for selecionado.
quando seleciono e clico em alterar ele dá uma mensagem: index out o bounds.
mais continua na telado sistema para continuar trabalhando, porém não altera.
o que pode estar errado?
dá uma luz.
valeu
o listview não comeca a numerar o index por zero e sim por 1
entao altere de
para
entao altere de
For i = 0 To lstMostra.ListItems.Count - 1para
For i = 1 To lstMostra.ListItems.Count
cara já fiz isso.
como eu faço para saber qual o item selecionado pelo usuário no listview?
como eu faço para saber qual o item selecionado pelo usuário no listview?
list.selectitem.text
Tópico encerrado , respostas não são mais permitidas