COMO GRAVAR DADOS NO ACESS APARTIR DE UM LISTVIEW?
Ola tudo bemm ?
Precisava do exemplo de um codigo para gravar no acess os dados que estao num listview, mas tinha quer ser um por vez e precisava de uma condicao que ele pega os dados do listview e procura no bd acess para ver se tem igual se tiver igual ele atualiza a tabela addcionando mais um no campo quantidade se naum tiver ainda ele apenas adicionar normalmente..
Gostaria apenas de uma pequeno so pra me ajudar
Obrigadooo
Precisava do exemplo de um codigo para gravar no acess os dados que estao num listview, mas tinha quer ser um por vez e precisava de uma condicao que ele pega os dados do listview e procura no bd acess para ver se tem igual se tiver igual ele atualiza a tabela addcionando mais um no campo quantidade se naum tiver ainda ele apenas adicionar normalmente..
Gostaria apenas de uma pequeno so pra me ajudar
Obrigadooo
No alto desta página tem um botão PESQUISAR, pois bem...
Ao lado do botão tem um COMBO, selecione FÓRUM e digite a palavra [Ô]LISTVIEW[Ô] no campo ao lado.
O resultado desta pesquisa é uma infinidade de exemplos desta categoria.
Qualquer dúvida, posta aÃ.
Ao lado do botão tem um COMBO, selecione FÓRUM e digite a palavra [Ô]LISTVIEW[Ô] no campo ao lado.
O resultado desta pesquisa é uma infinidade de exemplos desta categoria.
Qualquer dúvida, posta aÃ.
jah procurei meu querido e naum axei, por isso perguntei
se puder me ajudar
se puder me ajudar
para conseguir alcançar seu objetivo,
1º - aprenda a usar o listview
2º - aprenda a conectar ao banco de dados utilizado
3º - integre essas tecnologias.
existem vários exemplos de cada no site, é só ter vontade de aprender...
1º - aprenda a usar o listview
2º - aprenda a conectar ao banco de dados utilizado
3º - integre essas tecnologias.
existem vários exemplos de cada no site, é só ter vontade de aprender...
STEWART
Suponha que você tenha um BD chamado [Ô]BancoDeDados[Ô] com uma tabela chamada [Ô]tabela[Ô] e com os campos [Ô]nome[Ô], [Ô]endereço[Ô] e [Ô]telefone[Ô].
Abri a seguinte conexão, no módulo:
[txt-color=#0000f0]Public[/txt-color] CCADODB [txt-color=#0000f0]As New [/txt-color]ADODB.Connection
[txt-color=#0000f0]Public Sub [/txt-color]Conectar()
[txt-color=#0000f0]With[/txt-color] CCADODB
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
[txt-color=#007100] [ô]Lembre-se de que aqui, na linha de baixo, depois do sinal de iqual,
[ô]você deve colocar o caminho e o nome do seu banco de dados[/txt-color]
.ConnectionString = [Ô]C:\Documents and Settings\Busca certo\Meus documentos\BancoDeDados.mdb[Ô]
.Open
[txt-color=#0000f0]End With
End Sub[/txt-color]
Coloquei esta Sub [Ô]Conectar[Ô] no Load do formulário.
Agora estou partindo do princÃpio de que o programa já fez a conexão com o BD e que os dados já foram inseridos no ListView:
[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] ObjetoTB [txt-color=#0000f0]As New [/txt-color]Recordset
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] ListView1.ListItems.Count
[txt-color=#0000f0]Set[/txt-color] ObjetoTB = CCADODB.Execute([Ô]insert into tabela (nome, endereço,telefone) values ([ô][Ô] & ListView1.ListItems(i) & [Ô][ô],[ô][Ô] & ListView1.ListItems(i).ListSubItems(1) & [Ô][ô],[ô][Ô] & ListView1.ListItems(i).ListSubItems(2) & [Ô][ô])[Ô])
[txt-color=#0000f0] Next[/txt-color]
MsgBox [Ô]Dados gravados com sucesso[Ô], vbInformation, [Ô]Banco de dados[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
Suponha que você tenha um BD chamado [Ô]BancoDeDados[Ô] com uma tabela chamada [Ô]tabela[Ô] e com os campos [Ô]nome[Ô], [Ô]endereço[Ô] e [Ô]telefone[Ô].
Abri a seguinte conexão, no módulo:
[txt-color=#0000f0]Public[/txt-color] CCADODB [txt-color=#0000f0]As New [/txt-color]ADODB.Connection
[txt-color=#0000f0]Public Sub [/txt-color]Conectar()
[txt-color=#0000f0]With[/txt-color] CCADODB
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
[txt-color=#007100] [ô]Lembre-se de que aqui, na linha de baixo, depois do sinal de iqual,
[ô]você deve colocar o caminho e o nome do seu banco de dados[/txt-color]
.ConnectionString = [Ô]C:\Documents and Settings\Busca certo\Meus documentos\BancoDeDados.mdb[Ô]
.Open
[txt-color=#0000f0]End With
End Sub[/txt-color]
Coloquei esta Sub [Ô]Conectar[Ô] no Load do formulário.
Agora estou partindo do princÃpio de que o programa já fez a conexão com o BD e que os dados já foram inseridos no ListView:
[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] ObjetoTB [txt-color=#0000f0]As New [/txt-color]Recordset
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] ListView1.ListItems.Count
[txt-color=#0000f0]Set[/txt-color] ObjetoTB = CCADODB.Execute([Ô]insert into tabela (nome, endereço,telefone) values ([ô][Ô] & ListView1.ListItems(i) & [Ô][ô],[ô][Ô] & ListView1.ListItems(i).ListSubItems(1) & [Ô][ô],[ô][Ô] & ListView1.ListItems(i).ListSubItems(2) & [Ô][ô])[Ô])
[txt-color=#0000f0] Next[/txt-color]
MsgBox [Ô]Dados gravados com sucesso[Ô], vbInformation, [Ô]Banco de dados[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
http://www.macoratti.net/lstv_vb.htm
http://www.macoratti.net/lstview2.htm
http://www.macoratti.net/vb_tdl1.htm
http://www.macoratti.net/dica57.htm
Aih está vários exemplos.
[]'s
http://www.macoratti.net/lstview2.htm
http://www.macoratti.net/vb_tdl1.htm
http://www.macoratti.net/dica57.htm
Aih está vários exemplos.
[]'s
VALEW PEGUDOOO
OBRIGADO PELA DICA
AXO QUE AS PESSOAS QUE SABEM MAIS DEVERIAM AJUDAS OS QUE ESTAO AINDA APRENDENDO E NAUM VIR COM MAL RESPOSTA, SE ESTOU PERGUNTANDO E PORQUE NAUM SEI COMO FAZER
SE NAUM PODE AJUDAR NEM REPONDA AO TOPICO POR FAVOR
AGRADECO A PEGUDO E NLSOLUCOES
OBRIGADO PELA DICA
AXO QUE AS PESSOAS QUE SABEM MAIS DEVERIAM AJUDAS OS QUE ESTAO AINDA APRENDENDO E NAUM VIR COM MAL RESPOSTA, SE ESTOU PERGUNTANDO E PORQUE NAUM SEI COMO FAZER
SE NAUM PODE AJUDAR NEM REPONDA AO TOPICO POR FAVOR
AGRADECO A PEGUDO E NLSOLUCOES
Tópico encerrado , respostas não são mais permitidas