none
RELATORIO NÃO ABRE OS DADOS RRS feed

  • Pergunta

  • 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
    
    sexta-feira, 26 de fevereiro de 2010 17:28

Respostas

Todas as Respostas