atualizar registro no listview

[rafa-martin 2]

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

[Rafael Portal 0]

Opa! Faz o seguinte:

 

Private Sub LvwAtualizaProduto_ItemCheck(ByVal Item As MSComctlLib.ListItem)       SQL = " UPDATE Produtos " & _                 " SET Nome = '"& LvwAtualizaProduto.SelectedItem.Text &"' " & _                 " WHERE CodProduto = "& LvwAtualizaProduto.SelectedItem(2)  &" "       Cnn.Execute SQLEnd Sub

 

Bom, só fiz uma instrução Update só pra ver como é .... Neste caso estou atualizando o nome do Produto que está na primeira coluna do ListView e na terceira coluna (q tem index nº 2), estou pegando o código do produto para criar a clausula Where. Espero ter ajudado.

 

Oks,

Rafael Portal

[rafa-martin 2]

cara, fiz o update que você me passou e está dando erro nessa linha:" WHERE codigo_produto = " & lstMostra.SelectedItem(1) & " "para ser mais exato está dando erro no lstMostra.SelectedItem(1) & " ". O erro é no SelectedItem.lembramdo que quando eu selecionar o código do produto, no banco aparrcerá no campo situcao um checkbox selecionado.o que pode ser esse erro?a mensagem de erro é essa:wrong number of arguments or invalid property assignment.

[Rafael Portal 0]

Desculpa amigo, o código fica assim:

 

"WHERE codigo_produto = " & lstMostra.SelectedItem.ListSubItems(1) & " "

 

Pra você q está com muitos problemas com o List View... Isso daqui ajuda bastante...

 

List View 1

List View 2

List View 3

List View 4

 

 

Oks,

Rafael Portal

[rafa-martin 2]

cara, entrei nesses link's e não ajudou muito. para o que preciso não adianta.

[Rafael Portal 0]

Cara... você leu tudo tão rápido assim ???? Enfim.. conseguiu resolver o problema com os SubItems ? Abraço.Oks,Rafael Portal

[rafa-martin 2]

cara, seu o update que você me passou está com pau.dá erro.index ou pf bounds

[rafa-martin 2]

esses links, já vi faz tempo.porque esse listview está me dando dor de cabeça.

[Rafael Portal 0]

Fala Xará !!! Seguinte cara.. Eu não tenho a menor idéia de qual o índice q fica o seu Código de Cliente.. Tipo quando você carregou o ListView você deve ter atribuido o Rs!CodCliente para alguma coluna/SubItem tipo assim:

 

SQL = " SELECT * FROM Clientes"Conn.Execute SQLDo While Not Rs.EOF     Set Lvw = Me.LvwClientes.ListItems.Add     Lvw.Text = Rs!NomeCliente     Lvw.SubItems(1) = Rs!CodCliente     Rs.MoveNextLoop

Logo, o código do cliente está na coluna número 2 (que é o SubItem número 1), quando você for utilizar o CodCliente você tem q usar desta forma:

 

Dim CodCli as LongCodCli = LvwClientes.SelectedItem.ListSubItems(1)MsgBox CodCli, vbInformation + vbOkOnly, "Aviso"

A idéia é, o erro foi "Indice fora do limite", pq a comparação que você estava fazendo estava fora do índice. Digamos q você só tenha o Item 1 e 2, e você tentou pegar dados do número 3 que não existe. É isso. Abraço.

 

Oks,

Rafael Portal

[Luizgrs 0]

A ação itemchek ela funciona cada vez que você clica na checkbox então primeiro você tem que verificar se o checkbox está marcado ou ñ.

Depois invés de usar "nome_listview.selecteditem..." é mais facil usar a variavel item que já vem como paramêtro que é o item em que foi clicado.

 

Private Sub lstarquivos_ItemCheck(ByVal Item As MSComctlLib.ListItem)    If Item.Checked Then        sql_update = "update tabela set campo1='" & item.subitems(1)....        'executa a sql    End IfEnd Sub

Agora é só você montar sua sql.

[Screech 0]

" WHERE CodProduto = "& LvwAtualizaProduto.SelectedItem(2)

Se o CodProduto for do Tipo Inteiro não precisa de "então: ... WHERE CodProduto = " & LvwAtualizaProduto.SelectedItem(2)