pessoal eu tenho uma tela que existe um listbox com checkbox.
quando eu digito o código do pedido e clico em consultar vai trazer todos os códigos de produtos pertencente aquele pedido. Então cada código de produto terá um checkbox ao lado.
Então se seleciono dois ou três códigos de produto e clico em alterar, no banco vai ficar checado esse campo no banco, já que está definido como sim/não.
Isto estava funcionado até um tempo atrás.
Aí hoje fui rodar o sistema para verificar alguns códigos de produto e deu o erro de type mismatch. E não mexi em nada, nem no banco.

Uso esse intrução para atualizar:
For i = 0 To lstcodigopedido.ListCount - 1
    If lstcodigopedido.Selected(i) Then
        sql = "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)) & _
              ",condicao = " & CInt(lstcondicao.List(i)) & _
              ",situacao = " & CInt(lstcodigopedido.List(i)) & _
              "' where codigo_produto = " & CInt(lstcodigopedido.List(i)) & ""
        db.Execute sql
    End If
Next i
Exit Sub

Estava funcionando perfeitamente.
Lembrando estou usando LISTBOX  e não listview.

O que pode ser?
Me ajudem.

Vc tem um list para cada campo, certo??? isso parece estranho, mas tudo bem, nao está ai o erro...

 

Vc nao disse qual linha tá o erro... Assim vai ficar dificil...

 

Verifica seus valores e cuidado com o CInt, pq vai dar erro de Type Mismatch sempre que o valor string nao possuir a forma de um Int...

 

Se o erro nao for esse, fala pra gente qual a linha que está dando erro...

 

Ah, na linha For i = 0 To lstcodigopedido.ListCount - 1 vai dar erro se o listCount for igual a 0...

cara ele dá erro em toda instrução update:

sql = "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)) & _
              ",condicao = " & CInt(lstcondicao.List(i)) & _
              ",situacao = " & CInt(lstcodigopedido.List(i)) & _
              "' where codigo_produto = " & CInt(lstcodigopedido.List(i)) & ""

porque será?

-  "' where codigo_produto = " & CInt(lstcodigopedido.List(i)) & ""

 

O erro não esta nesta linha? verifique ela !!!

 

sem mais,

 

caras, valeu pela ajuda. consegui arrumar.

provavelmente eu devia estar trocando valores inteiros por string e vice-versa. coisas do tipo.