Retorno de consulta no Report View

Question

Bom Dia Pessoal,

Estou fazendo um relatorio pelo visual studio, esse relatorio vai ser de um retorno de uma consulta entre datas, o codigo para a consulta esta funcionando beleza, mas quando eu faço a consulta esse codigo retorna os dados em um novo datatable, ai que não estou conseguindo pegar esses dados para colocar no relatorio, o relatorio retorna todos os dados do banco de dados, acho que isso acontece porque a consulta retorna certa no datagrid mas não consegui colocar no relatorio os dados que retorna da consulta.

Segue abaixo o codigo da consulta entre as datas.

Private Sub TitulosBaixados()
        Dim DtaInicial As String
        Dim DtaFinal As String
        Dim tabela As New DataTable
        Dim strsql As String

        DtaInicial = dtainicialCR.Value.ToString
        DtaFinal = dtafinalCR.Value.ToString

        strsql = "Select * from TbTitulosPagos Where Vencimento between @DtaInicial And @DtaFinal order by Vencimento"

        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Try
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Central-BancoDados\BdContaReceber.accdb"
            con.Open()
            cmd.Connection = con
            cmd.Parameters.AddWithValue("@DtaInicial", DtaInicial)
            cmd.Parameters.AddWithValue("@DtaFinal", DtaFinal)

            cmd.CommandText = strsql

            Using reader As OleDbDataReader = cmd.ExecuteReader()
                tabela.Load(reader)
                dgvbaixarCR.DataSource = tabela
            End Using

        Catch ex As Exception
            MessageBox.Show("Erro : " & ex.Message, "Dados Não Existe, Favor verificar Datas!!!")
        Finally
            con.Close()
        End Try
        Me.ReportViewer2ContasReceberTitulosBaixados.RefreshReport()
    End Sub

Então como falei acima tabela e onde retorna os dados da consulta e coloca no datagrid, como fazer para que oi relatoria pegue esse retorno da consulta, será que e possivel???

Se tiver alguem que possa me ajudar a resolver esse problema, agradeço.

Desde já muito obrigado.

Pablo Sousa

---

PabloSousa

Answer 1

Olá Pessoal Boa Noite,

Já consegui fazer funcionar, foi só trocar essa linha,

 dgvbaixarCR.DataSource = tabela

por essa linha,

 TbContaReceberBindingSource.DataSource = tabela

Tudo resolvido,

Pablo Sousa

---

PabloSousa