Gerar relatorio no reportview via codigo vbnet

[Ivair Martins 0]

Boa noite estou tentado gerar relatorio no reportvew via codigo mas nao estou conseguindo, estou usando o vbnet2013.

Se alguem puder me ajudar, agradeço.

Abraços e Obrigado...

[KhaosDoctor 242]

Podemos te ajudar, mas você tem que falar com o que...

[Ivair Martins 0]

Boa noite estou usando esse codigo abaixo que um membro postou.

Claro adaptando ao meu projeto, o relatorio carregar mas não aparece os dados da tabela, aparece somente o cabeçalho, desculpe sou iniciante de VB.net.

Obrigado.

Dim StrConn As New SqlConnection
Dim StrConexao As String = "Data Source=PC" & _
";Initial Catalog=MeuBanco" & _
";Persist Security Info=True" & _
";User ID=sa" & _
";Password=123"

Dim DTable As New DataTable()
Dim Cmd As SqlCommand = Nothing


Try
1° passo, carregar o relatorio
Dim StrPath As String
StrPath = Replace(Application.StartupPath, "\bin\Debug", "")


rvPrintPreview.LocalReport.ReportPath = StrPath & "\RptClientes.rdlc"

2° passo, passar os dados para o relatorio, abrindo a conexao com o banco de dados
StrConn.ConnectionString = StrConexao
StrConn.Open()

3° passo, definindo o SQL do relatorio
Dim sqlClientes As String = "Select * From Clientes"

4° passo, executando o objeto command
Cmd = New SqlCommand(sqlClientes, StrConn)
Cmd.CommandText = sqlClientes
Cmd.CommandType = CommandType.Text

5° passo, executando a instruçao SQL atraves de um DataReader
Dim DReader As SqlDataReader = Cmd.ExecuteReader(CommandBehavior.CloseConnection)

6° passo, convertendo o DataReader em DataTable
DTable.Load(DReader)

7° passo, definindo uma nova instancia do DataSource do Report, informando o DataSet e o DataTable.
Dim MyReportDataSource As ReportDataSource = New ReportDataSource("CadClientes", DTable)
rvPrintPreview.LocalReport.DataSources.Add(MyReportDataSource)

8° passo, dando um Refresh no relatorio.
rvPrintPreview.RefreshReport()

Catch ex As Exception

MessageBox.Show(ex.ToString)
Finally


StrConn.Dispose()
DTable.Dispose()
StrConn = Nothing
DTable = Nothing
End Try