ERRO: ABRIR RELATORIO EM CRYSTAL REPORTS

MAXGUIMEL 21/04/2012 10:45:22
#400417
Amigos estou com um problema para abrir o relatório em Crystal Reports, pra falar a verdade nunca trabalhei com o Crystal, usava o data Reports no velho e bom VB6. Abaixo posto o codigo para vcs me falarem onde estou errando, mas antes de me ajudarem neste tópico não existe um componente free que tipo DataReports para .Net? Uso a versão 2010.

Private Sub BtOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOk.Click

[ô]Fechando o Banco
FechaBanco()

[ô]Abrindo o Banco
AbreMySqlPrincipal()

[ô]cria um objeto command e traz registro do banco
Dim sql As String = [Ô]Select * from CAIXA Where DATA = [Ô] & MaskData.Text

OleP = New MySqlCommand(sql, AbreBanco)

[ô]define um data adapter
AdapterP = New MySqlDataAdapter()
AdapterP.SelectCommand = OleP
TbP = New DataTable()
AdapterP.Fill(TbP)
Dim Ds As New DataSet()
AdapterP.Fill(Ds)

Dim cr As New RelatorioCaixa
cr.SetDataSource(Ds)
FrmVisualizaCaixa.CRVCaixa.ReportSource = cr
FrmVisualizaCaixa.CRVCaixa.Show()

End Sub

Na imagem é o erro que aparece.
ALTAIR148 21/04/2012 10:54:16
#400418 Resposta escolhida
Bom dia,

Pelo que dá para olhar ai é algum erro ao carregar os dados, revise o preenchimento do Dataset.
MAXGUIMEL 21/04/2012 12:31:01
#400427
No preview aparece normalmente não é problema do dataset o erro esta na chamado do relatório. Veja a imagem.
ALTAIR148 21/04/2012 13:34:44
#400431
Coloque esse trecho e tente.

  Dim Cr As New CrystalReport1
        Cr.SetDataSource(Ds.Tables(0))
        FrmVisualizarCaixa.CrystalReportViewer1.ReportSource = Cr
        FrmVisualizarCaixa.Show()
MAXGUIMEL 21/04/2012 13:58:10
#400433
Não funcionou, esta dando o mesmo erro de antes.
ALTAIR148 21/04/2012 14:09:44
#400434
Posta ai o seu código como ficou.
ALTAIR148 21/04/2012 14:11:33
#400435
me add ai no msn... ruadapaia@hotmail.com
MAXGUIMEL 22/04/2012 13:24:23
#400469
Meu codigo ficou assim:

Private Sub BtOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOk.Click

[ô]Fechando o Banco
FechaBanco()

[ô]Abrindo o Banco
AbreMySqlPrincipal()

[ô]cria um objeto command e traz registro do banco
Dim sql As String = [Ô]Select * from CAIXA Where DATA = [Ô] & MaskData.Text

OleP = New MySqlCommand(sql, AbreBanco)

[ô]define um data adapter
AdapterP = New MySqlDataAdapter()
AdapterP.SelectCommand = OleP
TbP = New DataTable()
AdapterP.Fill(TbP)
Dim Ds As New DataSet()
AdapterP.Fill(Ds)

Dim cr As New RelatorioCaixa
cr.SetDataSource(Ds.Tables(0))
FrmVisualizaCaixa.CRVCaixa.ReportSource = cr
FrmVisualizaCaixa.CRVCaixa.Show()

End Sub

Blz ja te add aqui
ALTAIR148 22/04/2012 13:31:51
#400471
Veja se assim funciona.

  [ô]Fechando o Banco
        FechaBanco()

        [ô]Abrindo o Banco
        AbreMySqlPrincipal()

        [ô]cria um objeto command e traz registro do banco
        Dim sql As String = [Ô]Select * from CAIXA Where DATA = [Ô] & MaskData.Text

        OleP = New MySqlCommand(sql, AbreBanco)

        [ô]define um data adapter
        AdapterP = New MySqlDataAdapter()
        AdapterP.SelectCommand = OleP
        TbP = New DataTable()
        AdapterP.Fill(TbP)
        Dim Ds As New DataSet()
        AdapterP.Fill(Ds)

        Dim cr As New RelatorioCaixa
        cr.SetDataSource(Ds.Tables(0))
        FrmVisualizaCaixa.CRVCaixa.ReportSource = cr
        FrmVisualizaCaixa.Show()
MAXGUIMEL 23/04/2012 16:31:04
#400548
Altair, o codigo funcionou no windows xp, no Windows 7 não roda mesmo, como vc previu, mas acho que o meu crystal Reports esta com problemas, quando vai executar o relatório, sai do executável do sistema.
Problemas em cima de problemas.
ALTAIR148 23/04/2012 16:36:52
#400550
Ele encerra o programa?
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar