Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ivair Martins

Gerar relatorio no reportview via codigo vbnet

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.