We help IT Professionals succeed at work.

CrystalDecisions.CrystalReports.Engine.LogOnException: Logon Failed

cwigley
cwigley asked
on
3,266 Views
Last Modified: 2012-06-21
I am attempting to refresh a crystal report and then export it to a new location via a console application. I can get everything to work fine except for my refresh. If I comment out myreport.refresh() it exports just fine. So, my problem is getting this exception when I try to refresh. I have blanked out my server name , user id, and passwords for this post. They are populated and work fine when logging into sql plus from the same machine this code is being run from. I am however leaving the databasename="" because this is not required when connecting to oracle.
  I have listed what I think is important for this error. Please let me know if you need additional information.

APP Type:
Console Application

DATABASE:
Oracle

EXCEPTION:
CrystalDecisions.CrystalReports.Engine.LogOnException:Logon Failed

CODE:
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Module Module1
    Private myreport As CrystalDecisions.CrystalReports.Engine.ReportDocument

    Sub Main()

        Dim crParameterValues As ParameterValues
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition


        myreport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        myreport.Load("c:\test1.rpt", OpenReportMethod.OpenReportByTempCopy)

        Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
        Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
        Try
            For Each tbCurrent In myreport.Database.Tables
                tliCurrent = tbCurrent.LogOnInfo
                With tliCurrent.ConnectionInfo
                    .ServerName = "xxxxx"
                    .UserID = "xxxxx"
                    .Password = "xxxxx#"
                    .DatabaseName = ""
                End With
                tbCurrent.ApplyLogOnInfo(tliCurrent)
            Next tbCurrent
        Catch Exp As LoadSaveReportException
            MsgBox("Incorrect path for loading report.", MsgBoxStyle.Critical, "Load Report Error")
        Catch Exp As Exception
            MsgBox(Exp.Message & "   in GetReportConnection Procedure", MsgBoxStyle.Critical, "General Error")
        End Try
        myreport.Refresh()


        Dim CrExportOptions As ExportOptions
        Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
        Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()

        CrDiskFileDestinationOptions.DiskFileName = "c:\test2.rpt"
        CrExportOptions = myreport.ExportOptions

        With CrExportOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportFormatType.CrystalReport
            .DestinationOptions = CrDiskFileDestinationOptions
            .FormatOptions = CrFormatTypeOptions
        End With


        Try
            '--- Export ---------------------------------------------
            ' Sets the current parameters and exports the report to
            ' specified format.
            '--------------------------------------------------------

            'Get the collection of parameters from the report
            crParameterFieldDefinitions = myreport.DataDefinition.ParameterFields

            'Access the specified parameter from the collection
            crParameterFieldDefinition = crParameterFieldDefinitions.Item("Dealer Number")

            'Get the current values from the parameter field. At this point there are zero values set.
            crParameterValues = crParameterFieldDefinition.CurrentValues

            'Set the current values for the numeric parameter field
            crParameterDiscreteValue = New ParameterDiscreteValue()
            crParameterDiscreteValue.Value = "80858"

            'Add the current value for the parameter field
            crParameterValues.Add(crParameterDiscreteValue)

            'The current parameter values must be applied for the parameter field.
            crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

            myreport.Export()
        Catch exc As CrystalDecisions.CrystalReports.Engine.InvalidArgumentException
            MsgBox(exc.Message)
        Catch exc As CrystalDecisions.CrystalReports.Engine.ParameterFieldCurrentValueException
            MsgBox(exc.Message)
        Catch exc As CrystalDecisions.CrystalReports.Engine.LogOnException
            MsgBox(exc.Message)
        Catch exc As Exception
            MsgBox(exc.ToString())
        End Try

    End Sub

End Module
Comment
Watch Question

Author

Commented:
I found that my problem was the fact I did not have an odbc setup on the machine I was running the code from. Please close this question.

 Thank you!
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Commented:
I am not sure why you accepted my comment as an answer. Did you post in the Community Support TA asking for a delete and refund? My comment should not be accepted as an answer since it was not intended to be one.

Cheers!
Karun.
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.