LISTVIEW - COMO PREENCHER ATRAVÉS DE TEXTBOX

SANROMAN 24/03/2014 15:09:46
#436458
Caros amigos,

Estou tentando criar um controle de contas a receber. Bem, nosso formulário possui dois campos texto com o código e o nome dos clientes, um botão e um listview. Estes campos são preenchidos através de um botão que acessa uma lista de clientes, carrega o cliente selecionado e preenche o listview com as compras efetuadas a prazo. Bem , não acontece bem assim. Os campos de código e nome são preenchidos corretamente mas o listview não.
Estou usando o seguinte códígo para tentar preencher a list:

Para o botão

Private Sub btnSelecionaCliente_Click(sender As Object, e As EventArgs) Handles btnSelecionaCliente.Click

frmListaClientesPessoaFisica.btnNovo.Text = [Ô]OK - Receber[Ô]
frmListaClientesPessoaFisica.ShowDialog()
historicoVenda()

End Sub

Para o historico de compras do cliente

Private Sub historicoVenda()

sqlCon.Open()

Dim strCliente As String = txtCodCliente.Text
Dim strSQL As String = [Ô]Select * from TB_VendaBalcao where CodCliente = [ô][Ô] & strCliente & [Ô][ô][Ô]
Dim daClientes As New SqlDataAdapter(strSQL, con)

Try
daClientes.Fill(ds, [Ô]TB_VendaBalcao[Ô])
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlCon.Close()
End Try

listHistoricoVendas.Items.Clear()

Dim i As Integer

For i = 0 To ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows.Count - 1
listHistoricoVendas.Items.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]DataVenda[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]NomeProduto[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]PrecoUnitario[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]Quantidade[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]TotalItem[Ô]))
Next

ds.Tables([Ô]Tb_VendaBalcao[Ô]).Clear()

End Sub

Dá o seguinte erro: Valor não pode ser nulo. Nome do prÂmetro: Dataset.

Espero que possam me ajudar.
NILSONTRES 24/03/2014 15:18:40
#436459
Cade,
Dim ds As New DataSet ?
SANROMAN 24/03/2014 16:10:30
#436463
Olá NILSONTRES

Realmente lamentável kkk

Com o Dataset dá o seguinte erro.

Fill: Propriedade SelectCommand.Connection não foi inicializada
NILSONTRES 24/03/2014 17:55:05
#436466
[ô]Dim cmd As New MySqlCommand
[ô]Dim da As New MySqlDataAdapter
[ô]Dim ds As New DataSet
[ô]cmd.Connection = oCn_MYSQL
[ô]cmd.CommandText = [Ô]Select *FROM nag_cupom Where Num_Cupom=[Ô] & GRID_CONTROLES.Rows(e.RowIndex).Cells(1).Value & [Ô][Ô]
[ô]da.SelectCommand = cmd
[ô]da.Fill(ds, [Ô]nag_cupom[Ô])
[ô]If ds.Tables([Ô]nag_cupom[Ô]).Rows.Count = 0 Then
[ô]MsgBox([Ô]Não encontrado[Ô], MsgBoxStyle.Critical, [Ô]AVISO[Ô])
[ô]Exit Sub

SÓ TROCA PARA SQL, AI ESTA MYSQL
SANROMAN 24/03/2014 18:50:05
#436475
Olá NILSONTRES

Montei assim o código:

Private Sub historicoVenda()

sqlCon.Open()

Try
Dim strCliente As String = txtCodCliente.ToString
Dim daClientes As New SqlDataAdapter(sqlCmd)
Dim ds As New DataSet

sqlCmd.Connection.Open()
sqlCmd.CommandText = [Ô]Select * from TB_VendaBalcao where CodCliente = [ô][Ô] & strCliente & [Ô][ô][Ô]
daClientes.SelectCommand = sqlCmd

daClientes.Fill(ds, [Ô]TB_VendaBalcao[Ô])

Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlCon.Close()
End Try

listHistoricoVendas.Items.Clear()

Dim i As Integer

For i = 0 To ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows.Count - 1
listHistoricoVendas.Items.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]DataVenda[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]NomeProduto[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]PrecoUnitario[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]Quantidade[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]TotalItem[Ô]))
Next

ds.Tables([Ô]Tb_VendaBalcao[Ô]).Clear()

End Sub

Agora o erro 'pe o seguinte: Referência de objeto não definida para uma instância de um objeto.

Será que o erro não está em:

Dim strCliente As String = txtCodCliente.ToString

Um abraço
OMAR2011 25/03/2014 00:47:22
#436487 Resposta escolhida
Dim strCliente As String = txtCodCliente.Text

Dim sqlCon As New SqlConnection([Ô]SuaConexão[Ô])
Dim strSql As String = [Ô]Select * from TB_VendaBalcao where Cod = [ô][Ô] & strCliente & [Ô][ô][Ô]
Dim sqlCmd As New SqlCommand(strSql, sqlCon)

Dim daClientes As New SqlDataAdapter(sqlCmd)
Dim ds = New DataSet

sqlCmd.Connection.Open()

daClientes.SelectCommand = sqlCmd

daClientes.Fill(ds, [Ô]TB_VendaBalcao[Ô])

listHistoricoVendas.Items.Clear()

Dim i As Integer

For i = 0 To ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows.Count - 1
listHistoricoVendas.Items.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]DataVenda[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]NomeProduto[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]PrecoUnitario[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]Quantidade[Ô]))
listHistoricoVendas.Items(i).SubItems.Add(ds.Tables([Ô]TB_VendaBalcao[Ô]).Rows(i)([Ô]TotalItem[Ô]))
Next

ds.Tables([Ô]Tb_VendaBalcao[Ô]).Clear()
Tópico encerrado , respostas não são mais permitidas
Voltar