none
ajuda para montar relatorio RRS feed

  • Pergunta

  • Estou tentando gerar um relatorio no VS.NET usando crystal.
    Só que na hora de montar a rotina para chamar o relatorio não estou conseguindo entender o que fazer, a situação é a seguinte. Na CamadaDeApresentacao adicionei o "CrystalReport1.rpt", na CamadaDeNegocios montei uma rotina que carrega um DataSet já com os dados, e em frmPrincipal onde esta o menu que irá acionar o relatorio coloquei um componente "CrystalReportViewer1".

    Metodo que carrega dsetRel_geral...

    Dim cmd_rel_geral As OleDbCommand = var_conectaDB.CreateCommand
     Dim daRel_geral As New OleDbDataAdapter
     Dim sqlrelgeral As String = "SELECT Codigo, Nome, Endereco, Fone FROM ClientesTB"

            Conecta_Smadb() 'função para conectar

            With cmd_rel_geral
                .CommandText = sqlrelgeral
                .CommandTimeout = 0
                .CommandType = CommandType.Text
                .Connection = var_conectaDB
            End With
            dsetRel_Geral.Clear()
            Try
                var_conectaDB.Open()

                With daRel_geral
                    .SelectCommand = cmd_rel_geral
                    .Fill(dsetRel_Geral)
                End With
                var_conectaDB.Close()
                daRel_geral.Dispose()
                dsetRel_Geral.Dispose()
            Finally
                If var_conectaDB.State.Open Then
                    var_conectaDB.Close()
                End If
            End Try
    End Sub


    Evento click do item do menu

    With Me
                Try
                    objInicio.Relatorio_Geral() 'chamar metodo
    ...daqui em diante estou perdida...

                Catch ex As Exception
                    MessageBox.Show("Erro no relatorio!", "Aviso!", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End Try
    End With

    segunda-feira, 12 de junho de 2006 18:13

Todas as Respostas