Database Logon Error

Question

Good Afternoon
I'm facing a problem with a report developed in VS.Net 2008 using crystal inside of the development studio. The reason for this is it uses a class as a design data source  and then is populated at run time with a Generic List(List Of) of the class using the SetDataSource and then exported to Excel. All works swimmingly on my development pc however when we deploy this to a server it fails with the below error. We have the 2008 runtime installed correctly on the server so to some extent it should just work
Database logon failed.System.Runtime.InteropServices.COMException (0x8004100F): Database logon failed.ETC*
Below is a section of the VB.Net code, can you please advise how I get around this. There is effectively no connection to a database required but I am happy for anything that gets me past this.....
Thanks
Terry
Edited by: Don Williams on Apr 7, 2010 7:27 AM

Answer 1

Dim lstMagstat As New List(Of clsMagstatDets)
        Dim magstatHelper As New clsMagstatDetsHelper
        Dim strFileLoc As String = strDefaultOutputLocation & pubprof.PublisherName & " Magstat " & Format(Date.Now, "yyMMdd") & ".xls"
        lstMagstat = magstatHelper.FetchMagstat(pubprof, strConn)
        Try
            Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
            If pubprof.DetailOrSummary = "Summary" Then
                If magstatHelper.FetchMagazineLevel(pubprof.MasterLevel) = "Magazine" Then
                    rpt = New rptSummaryMagazineMagstat
                Else
                    rpt = New rptSummaryMasterMagstat
                End If
            ElseIf pubprof.DetailOrSummary = "Detail" Then
                If magstatHelper.FetchMagazineLevel(pubprof.MasterLevel) = "Magazine" Then
                    rpt = New rptDetailMagazineMagstat
                Else
                    rpt = New rptDetailMasterMagstat
                End If
            End If
            If rpt IsNot Nothing Then
                Dim dfDestOptions As New DiskFileDestinationOptions
                dfDestOptions.DiskFileName = strFileLoc
                Dim excelFormatOptions As New ExcelFormatOptions
                excelFormatOptions.ExportPageBreaksForEachPage = True
                excelFormatOptions.ExcelUseConstantColumnWidth = False
                'excelFormatOptions.ExcelAreaType=AreaSectionKind.GroupFooter
                Dim excelExportOptions As New ExportOptions
                excelExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
                excelExportOptions.ExportFormatType = ExportFormatType.Excel
                excelExportOptions.ExportFormatOptions = excelFormatOptions
                excelExportOptions.ExportDestinationOptions = dfDestOptions
                rpt.DataSourceConnections(0).SetLogon("Seymour\Helios", "kkb@reF4Tfr333")
                rpt.SetDataSource(lstMagstat)
                rpt.Export(excelExportOptions)
                'rpt.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.Excel, strFileLoc)
                Return strFileLoc
             Else
                Return ""
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message & ex.InnerException.ToString)
        End Try
Broke your post into parts for clarity