deletar registros

[emerson burgato 0]

estou usando o access e o DAO e funciona da seguinte maneira : tenho 4 cxs. texto 1 list e 2 botões "inserir e remover" as cxs. texto me traz todos os produtos fazendo uma procura por codigo do prod. quando dou um click em inserir ele pega os conteudos das cxs. texto e coloca no list,. então e o seguinte : estou fazendo um controle de estoque qtdade vendida menos a qtdade em estoque o resultado estou colocando em uma tabela provisória junto com o codigo do produto e o conteudo do list e gostaria de quando der um click no remover ele deletasse o registro acima de acordo com o que eu deletasse no list.como posso fazer isso falow ........ valeu ......... um grande abraço

[Luizgrs 0]

Faz assim, o listbox tem uma propriedade chamada ItemData, que pode ser um número para cada item da listbox.

Na hora de adicionar na listbox faz assim:

list1.additem "nome_prod"list1.itemdata(list1.listcount-1) = codigo_produto

Assim você vai inserindo o código do produto junto com o nome, daí quando você for apagar você pega esse código procura por ele e apaga o registro encontrado:

cod = list1.itemdata(list1.listindex)

[emerson burgato 0]

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif Por Favor ñ entendi como devo proceder a respeito do codigo

se você tiver como ajudar estou mandando o codigo que estou

usando:

 

Private sub cmdinserir_click()

Dim Qest as integer

Dim Qvenda as integer

Dim Ptot as currency

Dim tot as integer

Dim Total as currency

 

‘ abre banco

‘ abre tabela ( Prov “Provisória”)

Qest = text3

Qvenda = text5

Total = Qest – Qvenda

 

‘ Carrego o List com o conteudo das cxs. texto

Nome1 = text1

Nome2 = text2

Nome4 = text4

Nome5 = text5

Nome6 = text6

‘ O text3 é Qtdade estoque ele ñ está sendo colocado no list

 

list1.additem nome1 & space(7 – len(nome1) & “| “

& nome2 & space (35 – len(nome2) & “| “

& nome4 & space (9 – len(nome4) & “| “

& nome5 & space (5 – len(nome5) & “| “

& nome6 & space (9 – len(nome6)

 

For i = 0 To list1.listcount – 1

Prov.Addnew

Prov!cod = txtcod ‘ txtcod é o nº autonumerado da ord. Serv.

Prov!Total = Total

Prov!desc = list1.list (i)

Prov!Soma = nome6 ‘ é para somar tudo do list e jogar numa cx. Texto para pgto

Prov.Update

Refresh

Next i

 

Depois que adiciono na tbl Prov e feito o pgto clico no botão gravar e automaticamente da um EDIT na tbl estoque e deleto a tabela Prov.

O botão remover está assim: List1.Removeitem(list1.listindex)

E ai que esta o problema, quando clico no botão remover gostaria de deletar tudo ligado a esse registro na tabela Prov.

+ ou -- entendi o que você quis me dizer mas ñ consegui colocar em

pratica .

 

Preciso muito desse codigo para terminar meu programa.

Se me ajudar agradeço.

Valeu T+

Burgato

[luiz humberto 0]

E o seguinte do jeito que ele fez qdo você carrega a ListView, ele irá também carregar o codigo dele na tabela e com este código que você irá usar para remover o seu registro selecionado de sua tabela.

Mas dê uma olhada neste link que pode te ajudar.

ListView

Bons Estudos !!

Obs: Lembrando que neste site tem outras referências deste componente.

[emerson burgato 0]

como posso adaptar o list itemdata no meu programa, ele esta dando erro na hora q eu busco desta maneira:cod='" &list1.itemdata(list1.listindex)& "'o erro esta dando na aspas simples (')erro d conversao de dados

[Luizgrs 0]

Esse campo é numérico ou seja ñ precisa de aspas simples, é igual quando você mexe com números no VB. No Vb em texto você usa aspas e com números ñ usa nada, em sql você usa aspas simples para texto e nada para números.