[RESOLVED] Crystal 9 VS 2008

[Pasvorto]

I have a viewer (crViewer) set up in my program. the program imports CrystalDecisions.CrystalReports.Engine & CrystalDecisions.Shared.

I am getting an error (on the last line of the following code). "An error occurred. The data necessary to complete this operation is not yet available. (Exception from HRESULT: 0x8000000A)"

Private Sub SetDBLogonForReport(ByVal myConnecionInfo As ConnectionInfo)
        Try
            Dim myTableLogoninfos As New TableLogOnInfos
            Dim myTableLogoninfo As New TableLogOnInfo
            Dim crTables As Tables
            Dim crTable As Table
            Dim crReportDocument As New ReportDocument()
            crReportDocument.Load(glbReportname)


            crTables = crReportDocument.Database.Tables

            For Each crTable In crTables
                myTableLogoninfo = crTable.LogOnInfo
                myTableLogoninfo.ConnectionInfo = myConnecionInfo
                crTable.ApplyLogOnInfo(myTableLogoninfo)
            Next
            CRViewer1.ReportSource = crReportDocument
        Catch ex As Exception
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            MsgBox("An error occurred: " & Err.Description & " - Source: (CRViewer)SetDBLogonForReport")
        End Try

    End Sub

[jggtz]

The next code is working ok-->

Dim CRReport As CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CRTable As CrystalDecisions.CrystalReports.Engine.Table
Dim CRTLI As CrystalDecisions.Shared.TableLogOnInfo

    CRReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument
    CRReport.Load("MyReport.rpt", CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)
    
    For Each CRTable In CRReport.Database.Tables
        CRTLI = CRTable.LogOnInfo

        With CRTLI.ConnectionInfo
            .ServerName = "ServerX"
            .UserID = "sa"
            .Password = "xxxxxx"
            .DatabaseName = "DataBaseX"
        End With

        CRTable.ApplyLogOnInfo(CRTLI)

    Next CRTable

Check the content of your variable 'myConnecionInfo'
JG