Logon Error when SetTableLocation with RAS SDK

Question

Hi
I have a lot of Reports based on TTX files. As these don't work anymore in an 64 bit environment with CRVS2010 I tried to make an update program based on an replace_click sample in this newsgroup.
My program is 32 Bit (x86) on an Windows 7 with VS2010. Cr2010 SP1 (13.0.1.220) 32 and 64 Bit is installed.
After creating an XML-file I want to set the new table location with SetTableLocation method:
I always get this Error: Logon Failed. Error in File xxx.rpt: Unable to connect: incorrect log on parameters.
I tested this with two super easy reports created with Crystal Reports 10: 
First: 1 Table (based on ttx) with only one String filed. no subreports.
Second: Same report based on an XML File
With Crystal Reports 10 I can update the Report with the created XML-File.
public convert(NewFilename as String)
        Dim lCR As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        lCR = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Try
            lCR.Load(NewFileName)
            Dim rcd As ISCDReportClientDocument
            rcd = lCR.ReportClientDocument
            For i As Integer = 0 To rcd.SubreportController.GetSubreportNames.Count - 1
                ConvertReportTables(NewFileName, rcd, rcd.SubreportController.GetSubreportNames.Item(i), True)
            Next
            ConvertReportTables(NewFileName, rcd, "", False)
end sub
Jürgen
Edited by: Jürgen Bauer on Jun 7, 2011 1:55 PM

Answer 1

Private Sub ConvertReportTables(ByRef destination As String, ByRef lcr As ISCDReportClientDocument, srp As String, issubrpt As Boolean)
       Dim boTables As CrystalDecisions.ReportAppServer.DataDefModel.ISCRTables
        If issubrpt Then
            boTables = lcr.SubreportController.GetSubreport(srp).DatabaseController.Database.Tables
        Else
            boTables = lcr.DatabaseController.Database.Tables
        End If
        For Each Table As CrystalDecisions.ReportAppServer.DataDefModel.ISCRTable In boTables
            'Dateiname für Tabellendefinition erzeugen
            Dim XMLFile As String
            XMLFile = destination
            XMLFile &= "_R_" & srp
            XMLFile &= "_T_" & Table.Name.Trim & ".xml"
            'Tabellendefinition lesen und in Datei schreiben
            Dim dt As New DataTable
            For Each field As CrystalDecisions.ReportAppServer.DataDefModel.Field In Table.DataFields
                Dim fieldtype As String = ""
                Select Case field.Type
                    Case FieldValueType.BitmapField, FieldValueType.BlobField, FieldValueType.IconField, FieldValueType.OleField, FieldValueType.PictureField
                        fieldtype = "System.Byte[]"
                    Case FieldValueType.BooleanField
                        fieldtype = "System.Boolean"
                    Case FieldValueType.CurrencyField, FieldValueType.NumberField
                        fieldtype = "System.Decimal"
                    Case FieldValueType.TimeField, FieldValueType.DateField, FieldValueType.DateTimeField
                        fieldtype = "System.DateTime"
                    Case FieldValueType.Int16sField, FieldValueType.Int16uField, FieldValueType.Int32sField, FieldValueType.Int32uField, FieldValueType.Int8sField, FieldValueType.Int8uField
                        fieldtype = "System.Int32"
                    Case FieldValueType.StringField
                        fieldtype = "System.String"
                    Case Else
                        fieldtype = "System.String"
                End Select
                 dt.Columns.Add(New DataColumn(field.Name, Type.GetType(fieldtype)))
            Next
            dt.TableName = Table.QualifiedName
            Dim ds As New System.Data.DataSet
            ds.Tables.Add(dt)
            ds.WriteXml(XMLFile, XmlWriteMode.WriteSchema)
            'boMainPropertyBag: These hold the attributes of the tables ConnectionInfo object
            Dim boMainPropertyBag As New PropertyBag()
            'boInnerPropertyBag: These hold the attributes for the QE_LogonProperties
            'In the main property bag (boMainPropertyBag)
            Dim boInnerPropertyBag As New PropertyBag()
            'Set the attributes for the boInnerPropertyBag
            boInnerPropertyBag.Add("File Path", XMLFile)
            boInnerPropertyBag.Add("Internal Connection ID", Guid.NewGuid.ToString)
            'Set the attributes for the boMainPropertyBag
            boMainPropertyBag.Add("Database DLL", "crdb_adoplus.dll")
            boMainPropertyBag.Add("QE_DatabaseName", "")
            boMainPropertyBag.Add("QE_DatabaseType", "ADO.NET (XML)")
            'Add the QE_LogonProperties we set in the boInnerPropertyBag Object
            boMainPropertyBag.Add("QE_LogonProperties", boInnerPropertyBag)
            boMainPropertyBag.Add("QE_ServerDescription", "NewDataSet")
            boMainPropertyBag.Add("QE_SQLDB", "False")
            boMainPropertyBag.Add("SSO Enabled", "False")
            'Create a new ConnectionInfo object
            Dim boConnectionInfo As New CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo()
            'Pass the database properties to a connection info object
            boConnectionInfo.Attributes = boMainPropertyBag
            'Set the connection kind
            boConnectionInfo.Kind = CrConnectionInfoKindEnum.crConnectionInfoKindCRQE
            Dim boTable As CrystalDecisions.ReportAppServer.DataDefModel.ISCRTable
            boTable = Table.Clone(True)
            boTable.ConnectionInfo = boConnectionInfo
            Try
                If issubrpt Then
                    lcr.SubreportController.GetSubreport(srp).DatabaseController.SetTableLocation(Table, boTable)
                    lcr.VerifyDatabase()
                Else
                    lcr.DatabaseController.SetTableLocationEx(Table, boTable)
                    lcr.VerifyDatabase()
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next
  End Sub