none
Crystal pedindo login e senha quando exibe o relatorio. RRS feed

  • Pergunta

  • Olá Pessoal! Preciso de uma ajuda!

    Criei vários relatórios simples no Crystal internamente ao VS2005. Dentro de um form coloquei um componente CrystalReportVisualizer. Executo o seguinte código para exibir o relatório que desejo:

    Dim rpt As New relClientes

    Dim func as New clsCliente()

    Dim dts As New dtsClientes = func.TodosOsClientes()

    rpt.SetDataSource(dts)     'Passo o dataTable preenchido, rpt é o nome do meu objeto relatorio

    frmRelatorios.crvVisualizador.ReportSource = rpt

    frmRelatorios.Show()

    Mas está acontecendo o seguinte, alguns dos relatórios antes da exibição apresentam uma janela Pedindo Login e Senha. Estou usando SQL Server 2000 com segurança integrada do Windows. E datasets tipados para preencher o dataset e buscas no relatório. Quero sumir com essa janela, como faço?

    Se alguém estiver disposto a ajudar, pode responder aqui ou me contatar pelo email ciniro@gmail.com, meu msn é ciniro@hotmail.com, Posso mandar as telas e etc.

    Obrigado desde já a todos!

     

    quinta-feira, 21 de dezembro de 2006 11:59

Respostas

  • Olá..

    Seguinte, faça mais ou menos assim, que funciona...

    Partial Class WebForm1
        Inherits System.Web.UI.Page


        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Isso é um teste de relatório, não vai ser no load
            LogOn(crReportViewer.ReportDocument)

            crReportViewer.DataBind()
        End Sub

        Private Sub LogOn(ByVal pRelatorio As CrystalDecisions.CrystalReports.Engine.ReportDocument)

            Dim pMetodo As String = System.Reflection.MethodBase.GetCurrentMethod().Name

            Dim pConexaoInfo As New CrystalDecisions.Shared.ConnectionInfo


            pConexaoInfo.ServerName = "Server"
            pConexaoInfo.DatabaseName = "COQUEIRO"
            pConexaoInfo.UserID = "######"
            pConexaoInfo.Password = "########"

            Dim pTabelas As CrystalDecisions.CrystalReports.Engine.Tables
            Dim pTabela As CrystalDecisions.CrystalReports.Engine.Table
            Dim pInformacaoLogonTabela As CrystalDecisions.Shared.TableLogOnInfo


            pTabelas = pRelatorio.Database.Tables
            For Each pTabela In pTabelas
                pInformacaoLogonTabela = pTabela.LogOnInfo
                pInformacaoLogonTabela.ConnectionInfo = pConexaoInfo
                pTabela.ApplyLogOnInfo(pInformacaoLogonTabela)
            Next
        End Sub
    End Class


    Espero ter ajudado! Se caso sim, marque-a como tal!

    Iter Vinícius!
    quinta-feira, 21 de dezembro de 2006 16:48