Crystal Reports vs VB.Net 2003

[Sicofrat]

Hola gracias poc contextar... al final use un codigo que me vino de perillas que encontre por ahi y que dejo a continuacion....

Código:

 
Dim oRpt As "Nombre de Report"
Dim oRptSecciones As CrystalDecisions.CrystalReports.Engine.Sections
Dim oRptReportObjects As CrystalDecisions.CrystalReports.Engine.ReportObjects
Dim oSubReport As CrystalDecisions.CrystalReports.Engine.SubreportObject
Dim oSubReportDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument

oRpt = New "Nombre de Report"

Dim Con As New CrystalDecisions.Shared.ConnectionInfo
Con.Password = "Password"
Con.ServerName = "Nombre del Servidor"
Con.UserID = "Usuario"
Con.DatabaseName = "BBDD"

oRpt.SetDatabaseLogon("Usuario", "Password","Nombre del Servidor", "BBDD", False)


Dim InfoTablaConexion As CrystalDecisions.Shared.TableLogOnInfo

For Each tabla As CrystalDecisions.CrystalReports.Engine.Table In oRpt.Database.Tables
          InfoTablaConexion = tabla.LogOnInfo
          InfoTablaConexion.ConnectionInfo = Con
          tabla.ApplyLogOnInfo(InfoTablaConexion)
Next
oRptSecciones = oRpt.ReportDefinition.Sections

For Each oSeccion As CrystalDecisions.CrystalReports.Engine.Section In oRptSecciones
          oRptReportObjects = oSeccion.ReportObjects
          For Each oReportObject As CrystalDecisions.CrystalReports.Engine.ReportObject In oRptReportObjects
                    If oReportObject.Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
                             oSubReport = oReportObject
                             oSubReportDoc = oSubReport.OpenSubreport(oSubReport.SubreportName)
                             For Each tabla As CrystalDecisions.CrystalReports.Engine.Table In oSubReportDoc.Database.Tables
                                       InfoTablaConexion = tabla.LogOnInfo
                                       InfoTablaConexion.ConnectionInfo = Con
                                       tabla.ApplyLogOnInfo(InfoTablaConexion)
                             Next
                    End If
          Next
Next

oRpt.SetParameterValue("@COD_EMPLEADO", iCodEmpleado)
oRpt.SetParameterValue("@FEC_INICIAL", tFecInicio)
oRpt.SetParameterValue("@COD_EMPRESA", sCodEmpresa)
oRpt.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.WordForWindows, Response, True, "")