SALVAR DADOS DO LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

SALVAR DADOS DO LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#276805 - 12/08/2008 15:26:22

USUARIO.EXCLUIDOS

Cadast. em:


Boa Tarde

Bom estou fazendo um Form para venda e no estou conseguindo salvar os itens no BD, eu Uso Acces2003

eu abro o BD  deste modo

set BD as database
set TVenda as recordset

e tbm tem um detalhe, quando adicono os itens no listview a primeira coluna nao entra o item...

ex:
Produto   Bolha    Pea    Strass
          Produto  Bolha    Pea

ListView1.ListItems.Add
ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = cmbproduto
ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = cmbbolha
ListView1.ListItems(ListView1.ListItems.Count).SubItems(3) = cmbpeca
ListView1.ListItems(ListView1.ListItems.Count).SubItems(4) = txtstrass

onde teria qe ir o produto esta ficando vazio e onde teria qe ir a bolha vai o Produto se tento inserir
ListView1.ListItems(ListView1.ListItems.Count).SubItems(0) = cmbproduto

no vai

Desde ja Obrigado!!






#276813 - 12/08/2008 15:58:44

ALEXANDREMOTA
SAO JOAO DE MERITI
Cadast. em:Dezembro/2006


Última edição em Editado em 12/08/2008 16:01:09 por ALEXANDREMOTA por

Para preencher a primeira coluna, voc deve colocar na linha ListView1.ListItems.Add assim:

ListView1.ListItems.Add ListView1.ListItems.Count + 1, , cmdproduto

Para salvar no BD:

TVenda![Produto] = ListView1.ListItems(ListView1.ListItems.Count).Text [´]pega o valor da primeira coluna
TVenda![Bolha] = ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) [´]pega o valor da segunda coluna

E assim vai...




#276816 - 12/08/2008 15:59:27

ANGELO
SAO PAULO
Cadast. em:Janeiro/2004


Cara d uma olhada nesse tpico do frum.
Um companheiro estava com dificuldades e eu enviei a ele um exemplo de umas funes que eu uso pra listview

ver aqui  


Angelo


#276817 - 12/08/2008 16:09:32

USUARIO.EXCLUIDOS

Cadast. em:


vou testar e trago a resposta obrigado




#276834 - 12/08/2008 17:31:41

USUARIO.EXCLUIDOS

Cadast. em:


ALEXANDREMOTA

Seu exemplo so esta salvando a 1 linha do listview


Angelo

este exemplo nao esta dando certo aqui

nao entendi muito bem tbm
tem como ser + claro?

obrigado




Resposta escolhida #276841 - 12/08/2008 18:39:20

ALEXANDREMOTA
SAO JOAO DE MERITI
Cadast. em:Dezembro/2006


Última edição em Editado em 13/08/2008 17:47:31 por ALEXANDREMOTA por

TVenda![Produto] = ListView1.ListItems(Nºmero da Linha).Text [´]pega o valor da primeira coluna
TVenda![Bolha] = ListView1.ListItems(Nºmero da linha).SubItems(1) [´]pega o valor da segunda coluna

Dentro do parnteses do ListItems voc coloca o nºmero da linha que voc quer salvar.

Se quiser salvar todas as linhas:

For i = 1 to ListView1.ListItems.Count
TVenda.AddNew
TVenda![Produto] = ListView1.ListItems(i).Text [´]pega o valor da primeira coluna
TVenda![Bolha] = ListView1.ListItems(i).SubItems(1) [´]pega o valor da segunda coluna
[´]Coloque as outras colunas e os respectivos campos
TVenda.Update
Next i



#276991 - 13/08/2008 14:07:19

USUARIO.EXCLUIDOS

Cadast. em:


Última edição em Editado em 13/08/2008 14:22:49 por CKBLOS por


ALEXANDREMOTA

Ae Nao deu certo salva todas as linhas

esta salvando apenas uma linha

tipo

Produto    descrio

porca      !!!!!
Parafuso   !!!!!


esta salvando

Produto

porca
porca

oqe acontece?

obrigado!







#277072 - 13/08/2008 17:48:38

ALEXANDREMOTA
SAO JOAO DE MERITI
Cadast. em:Dezembro/2006


Tinha um erro no cdigo. Agora deve funcionar.

For i = 1 to ListView1.ListItems.Count
TVenda.AddNew
TVenda![Produto] = ListView1.ListItems(i).Text [´]pega o valor da primeira coluna
TVenda![Bolha] = ListView1.ListItems(i).SubItems(1) [´]pega o valor da segunda coluna
[´]Coloque as outras colunas e os respectivos campos
TVenda.Update
Next i





#277179 - 14/08/2008 12:25:28

USUARIO.EXCLUIDOS

Cadast. em:


Obrigado!

obrigado a todos!

Pode fecha o Topico vlew!!!




#277215 - 14/08/2008 14:43:31

ALEXANDREMOTA
SAO JOAO DE MERITI
Cadast. em:Dezembro/2006


Voc quem deve fechar. L no topo da pgina, embaixo do banner azul escuro de propaganda, tem alguns links e um pouquinho acima do link Prximo tpico, tem uma combo. Voc deve selecionar Encerrar tpico e clicar em executar. Vai abrir outra pgina em que voc deve escolher na lista, o nome de quem deu a resposta para a sua dºvida (nesse caso fui eu) ou escolher Nenhuma das Respostas caso ningum tenha dado a resposta certa e clicar no boto Encerrar.




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45