CADASTRAR DADOS EM LISTBOX EM VB.NET

COQUITO 08/10/2015 16:32:44
#452328
galera

preciso de ajuda de vocês como cadastrar dados no listbox.
estou nesta janela e estou utilizando listbox porem nao consigo registrar uma venda.
alguma ideia?
KERPLUNK 08/10/2015 16:44:42
#452329
Deixa eu ver se eu entendi. Você fez 5 listas separadas, é isso mesmo? Porque pra mim parece o caso de uso de um grid...

O que você tem de código até agora?
COQUITO 08/10/2015 17:18:18
#452330
Citação:

:
Deixa eu ver se eu entendi. Você fez 5 listas separadas, é isso mesmo? Porque pra mim parece o caso de uso de um grid...

O que você tem de código até agora?




isso, mesmo que cada campo seja preenchido em cada listbox, pensei em utilizar o grid mas ao memento de preencher ele iria a me apresentar todos os registros qe consta no banco de dados

ainda estou trabalhando na parte do código pensando como fazer.

veja

[ô]tabela de vendas
Public Sub salvar_clientes()

Using cn As OleDbConnection = conectarbancodados()
Try
cn.Open()

Dim sql As String
sql = [Ô]Insert Into vendas(data_venda,cod_cliente,cod_vendedor) Values (?,?,?);Select Scope_Identity()[Ô]
Dim cmd As OleDbCommand = New OleDbCommand(sql, cn)
cmd.Parameters.Add(New OleDbParameter([Ô]@data_venda[Ô], frm_MenuPrincipal.StatusLabel_data.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@cod_cliente[Ô], txt_codigocliente.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@cod_vendedor[Ô], frm_MenuPrincipal.StatusLabel_matricula.Text))

Catch ex As Exception

End Try
End Using
End Sub

[ô] tabela itens de venda
Public Sub salvar_itens()
Using cn As OleDbConnection = conectarbancodados()
Try
cn.Open()

Dim sql As String
sql = [Ô]Insert Into vendas(cod_venda,cod_produto,precovenda, qtd_itens) Values (?,?,?)[Ô]
Dim cmd As OleDbCommand = New OleDbCommand(sql, cn)
cmd.Parameters.Add(New OleDbParameter([Ô]@cod_venda[Ô], lbl_codigovenda.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@cod_produto[Ô], txt_codigoproduto.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@precovenda[Ô], lbl_precovenda.Text))
cmd.Parameters.Add(New OleDbParameter([Ô]@qtd_itens[Ô], txt_quantidade.Text))

Me.Listcodigo.Items.Add(CStr(Me.txt_codigoproduto.Text))
Me.Listproduto.Items.Add(txt_nomeproduto.Text)
Me.Listprecounitario.Items.Add(Me.lbl_precovenda.Text)
Me.Listqtde.Items.Add(Me.txt_quantidade.Text)
Me.ListSubtotal.Items.Add(Me.lbl_subtotal.Text)
Catch ex As Exception

End Try
End Using


End Sub
KERPLUNK 08/10/2015 17:37:18
#452331
Olha, com esse código aí, não vai apresentar é nada. O que você deve usar é o grid mesmo. Da maneira que está querendo vai ficar muito mais difícil e muito mais suscetível à erros. Sinceramente acho melhor você repensar sua lógica hein. Além disso, esse código aí, está muito confuso e nem sequer vai gravar algo no banco de dados...
COQUITO 08/10/2015 18:07:43
#452332
Citação:

:
Olha, com esse código aí, não vai apresentar é nada. O que você deve usar é o grid mesmo. Da maneira que está querendo vai ficar muito mais difícil e muito mais suscetível à erros. Sinceramente acho melhor você repensar sua lógica hein. Além disso, esse código aí, está muito confuso e nem sequer vai gravar algo no banco de dados...



rsrsrs.

tudo bem

vc tem algum exemplo ai de trabalhar com datagrid?
KERPLUNK 08/10/2015 18:15:16
#452333
Procure bem aqui no VBMania mesmo tem dezenas de exemplos disso. Pelo que pude notar, você é iniciante em programação, o melhor caso para começar a usar Orientação à Objeto, sugiro que comece a usar o quanto antes para evitar vícios que futuramente são difíceis de serem perdidos.
NICKOSOFT 08/10/2015 18:51:12
#452335 Resposta escolhida
pra vc criar dinamicamente uma fonte de dados pro grid sem ser trazendo o banco todo.....e nem usar esse limpar q uso ai, pq isso esta so a parte q interessa do código...
fazer com list do jeito q esta tem como, mas não é o melhor, a chance de erro como citada é enorme....
  
            Dim dtLivros As New DataTable()
            Dim drLivros As DataRow

            dtLivros.Columns.Add([Ô]Parcela[Ô])
            dtLivros.Columns.Add([Ô]Vencimento[Ô])
            dtLivros.Columns.Add([Ô]Valor[Ô])

            dgvLivrosDid.DataSource = [Ô][Ô]
            dgvLivrosDid.ClearSelection()

            drLivros = dtLivros.NewRow()
            drLivros.Item([Ô]parcela[Ô]) = [Ô]1/1[Ô]
            drLivros.Item([Ô]vencimento[Ô]) = now.date()
            drLivros.Item([Ô]valor[Ô]) = CDbl(txtValorLivro.Text)
            dtLivros.Rows.Add(drLivros)
            dgvLivrosDid.DataSource = dtLivros
COQUITO 08/10/2015 19:15:26
#452337
Citação:

:
pra vc criar dinamicamente uma fonte de dados pro grid sem ser trazendo o banco todo.....e nem usar esse limpar q uso ai, pq isso esta so a parte q interessa do código...
fazer com list do jeito q esta tem como, mas não é o melhor, a chance de erro como citada é enorme....

  
            Dim dtLivros As New DataTable()
            Dim drLivros As DataRow

            dtLivros.Columns.Add([Ô]Parcela[Ô])
            dtLivros.Columns.Add([Ô]Vencimento[Ô])
            dtLivros.Columns.Add([Ô]Valor[Ô])

            dgvLivrosDid.DataSource = [Ô][Ô]
            dgvLivrosDid.ClearSelection()

            drLivros = dtLivros.NewRow()
            drLivros.Item([Ô]parcela[Ô]) = [Ô]1/1[Ô]
            drLivros.Item([Ô]vencimento[Ô]) = now.date()
            drLivros.Item([Ô]valor[Ô]) = CDbl(txtValorLivro.Text)
            dtLivros.Rows.Add(drLivros)
            dgvLivrosDid.DataSource = dtLivros




Valeu Amigo, vc me abriu minha mente que estava precisando
Tópico encerrado , respostas não são mais permitidas
Voltar