Boa Tarde,
estou fazendo um relatório em Crystal no VB.NET, e quando mando executar o Relatório ele abre porem não aparece os Dados, eu o Carrego com um DataSet.
Imports MySql.Data.MySqlClient
Imports Dados
Public Class frmRelSolicitacao
Dim Conexao As New Conexao
'definir as variáveis de conexão
Sub GerarRelatorio(ByVal CODCLI As String, ByVal CODFABR As String, ByVal DESCPRO As String)
Dim dsPc As New RelSolicitacao
'Dim Codigo As String
'definir a string de conexão e as instruções sql para cada tabela
Dim sqlSolicitacao As String = "SELECT * FROM CADCLI_PROD" & _
" LEFT JOIN CADCLI ON CADCLI.CLI_CODIGO =CADCLI_PROD.REL_CODCLI" & _
" LEFT JOIN CADPRO ON CADCLI_PROD.REL_DESCPRO = CADPRO.PRO_DESC" & _
" LEFT JOIN CADFABRICANTE ON CADCLI_PROD.REL_CODFABR = CADFABRICANTE.FAB_CODIGO" & _
" WHERE REL_CODCLI = '" & CODCLI & "' AND REL_CODFABR = '" & CODFABR & "' AND REL_DESCPRO = '" & DESCPRO & "'"
Try
'Criar os objetos dataadatper
Conexao.Conectar()
Conexao.da = New MySqlDataAdapter(sqlSolicitacao, Conexao.Conexao)
'Preenche as tabelas do dataset usando o dataadapter
Conexao.da.Fill(dsPc, "cadcli_prod")
'Preencher o relatório e exibí-lo no visualizador
Dim rptSolicitacao As New RelxSolicitacao
rptSolicitacao.SetDataSource(dsPc)
CrystalReportViewer.ReportSource = rptSolicitacao
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class
