Anmeldung schlägt fehl, wenn sich zwei Tabellen im Datenset befinden

Question

Mein Bericht füllt zwei Tabellen. Es funktioniert auf dem lokalen Server, aber wenn auf einem anderen Server veröffentlicht gibt es die folgenden Fehler:

Unable to connect. Login failed.

Wenn ich die zweite Tabelle entfernen und nur die erste Tabelle verwenden, funktioniert der Bericht. Wie kann ich das beheben?

objDataTable = New Data.DataTable 
objDataTable.TableName = "Table" 
objDataTable.Columns.Add("pes_nom", GetType(String)) 

objRow = objDataTable.NewRow 
objRow("pes_nom") = objProposta.clsPessoa.pesNom  
objDataTable.Rows.Add(objRow) 

objDataSet = New Data.DataSet 

objDataSet.Tables.Add(objDataTable) 

If objProposta.clsDependente.DtDependentes IsNot Nothing Then 
    Dim dtCloned As New Data.DataTable 
    dtCloned = objProposta.clsDependente.DtDependentes.Clone() 
    dtCloned.Columns(3).DataType = System.Type.GetType("System.String") 

    For Each row As Data.DataRow In objProposta.clsDependente.DtDependentes.Rows 
    dtCloned.ImportRow(row) 
    Next 

    dtCloned.TableName = "Dependentes" 
    objDataSet.Tables.Add(dtCloned) 
End If 

Bmgviewer1.PathReport = "RptTermoAdesaoHAP.rpt" 
Bmgviewer1.DataSet = objDataSet 
Bmgviewer1.DataBind() 

Answer 1

Die Lösung bestand darin, alle Daten in nur einer Tabelle mit mehreren Zeilen einzufügen.

Ich habe den folgenden Code:

If objProposta.clsDependente.DtDependentes IsNot Nothing Then 
      For Each row As Data.DataRow In objProposta.clsDependente.DtDependentes.Rows 

       objRow("dep_nom") = row.Item("dep_nom").ToString() 
       objRow("dep_cpf_cgc") = row.Item("dep_cpf_cgc").ToString() 

       objDataTable.Rows.Add(objRow) 
       objRow = objDataTable.NewRow 
      Next 
     Else 
      objDataTable.Rows.Add(objRow) 
     End If 

Und es funktionierte.