• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

PJM

SQL

6 mensagens neste tópico

Pessoal é o seguinte eu quero mostrar todos os produtos adquiridos de um cliente, mas até agora só consegui mostrar o primeiro :S

Aqui fica o código actual:

Private Sub CarregaVendas(ByVal Cod_Cliente As Integer)


        Dim strConn As String = My.Settings.BaseDadosConnectionString.ToString()

        Dim strSQL As String = "Select * from Vendas Where Cod_Cliente = " & Cod_Cliente

        Dim dr As SqlClient.SqlDataReader

        'define objeto connection e command

        Dim con As New SqlClient.SqlConnection(strConn)

        Dim cmd As New SqlClient.SqlCommand(strSQL, con)

        Try

            con.Open()

            dr = cmd.ExecuteReader
            If (dr.HasRows) Then

                dr.Read()

                lst_produtos.Items.Add(dr("Cod_Cliente").ToString)
                lst_qtd.Items.Add(dr("Qtd").ToString)

            End If
        Catch ex As Exception

            MsgBox("Erro ao obter dados dos clientes. Erro : " & ex.Message)

        Finally

            con.Close()

        End Try

    End Sub

Alguém sabe como mostrar todos os produtos adquiridos pelo cliente Cod_Cliente?

Cumprimentos.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Funcionou, obrigado.

Porém dá um erro: "Erro: Tentativa de leitura inválida quando não estão presentes dados."

De resto mostra tudo e muito bem, sabes como poderei arranjar este erro?

Cumps.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes manter o If mas tens que ter um

While(dr.Read())
lst_produtos.Items.Add(dr("Cod_Cliente").ToString)                
lst_qtd.Items.Add(dr("Qtd").ToString)
End While

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado Tiago, agora funciona bem e não dá erros  :biggrin:

Cumps.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora