Solved

CrystalDecisions.CrystalReports.Engine.LogOnException: Logon Failed

Posted on 2004-04-02
3
3,149 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
0
Comment
Question by:cwigley
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 

Author Comment

by:cwigley
ID: 10741456
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!
0
 
LVL 6

Accepted Solution

by:
KarunSK earned 500 total points
ID: 10744455
You need to post in the Community Support TA and ask for delete + refund, adding a link to this question.
0
 
LVL 6

Expert Comment

by:KarunSK
ID: 10930748
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.
0

Featured Post

Learn by Doing. Anytime. Anywhere.

Do you like to learn by doing?
Our labs and exercises give you the chance to do just that: Learn by performing actions on real environments.

Hands-on, scenario-based labs give you experience on real environments provided by us so you don't have to worry about breaking anything.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The object model of .Net can be overwhelming at times – so overwhelming that quite trivial tasks often take hours of research. In this case, the task at hand was to populate the datagrid from SQL Server database in Visual Studio 2008 Windows applica…
Recently while returning home from work my wife (another .NET developer) was murmuring something. On further poking she said that she has been assigned a task where she has to serialize and deserialize objects and she is afraid of serialization. Wha…
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar. Int…

695 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question