problema con Referencia a objeto no establecida

[Nyd]

buen dia o noche segun la hora que tengan xD, tengo un pequeñisimo problema que me esta vovliendo loca -.- utilizo crystal report XI y visual basic 2005.net, todo parece estar bien no me marca ningun error de sintaxis ni nada por el estilo, sin embargo, al correrlo o abrir la pagina me sale un error, utilizo asp.net

si alguien seria tan amable de decirme cual es el error que estoy cometiendo me sentiria muy agradecida, al correr la pagina me sale el siguiente error...

Referencia a objeto no establecida como instancia de un objeto.

y lo marca en la siguiente linea

Línea 28: 'codigo de conexion con la base de datos
Línea 29: Dim myTables As Tables
Línea 30: myTables = myReportDocument.Database.Tables
Línea 31: For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
Línea 32: Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo

mi codigo es el siguiente:

Código:

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Partial Class _Default
    Inherits System.Web.UI.Page
    Private cilabReport As ReportDocument

    Protected Sub CrystalReportViewer1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init
        'direccionar el codigo de conexion a la base de datos

        Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
        myConnectionInfo.ServerName = "trabajo"
        myConnectionInfo.DatabaseName = "cilabv3"
        myConnectionInfo.UserID = "sa"
        myConnectionInfo.Password = ""
        SetDBLogonForReport(myConnectionInfo, cilabReport)
        'enlace del crystal
        cilabReport = New ReportDocument()
        Dim reportPath As String = Server.MapPath("Resultados.rpt")
        cilabReport.Load(reportPath)
        CrystalReportViewer1.ReportSource = cilabReport

    End Sub

    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        'codigo de conexion con la base de datos
        Dim myTables As Tables
        myTables = myReportDocument.Database.Tables
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
    End Sub

de antemano, gracias por tomarse la molestia de leer ^^U

[Peterpay]

tu error esta aqui

SetDBLogonForReport(myConnectionInfo, cilabReport)
'enlace del crystal
cilabReport = New ReportDocument()

invocas a setdblogon y pasas como parametro cilabReport mucho antes de siquiera instanciarlo. solo cambia el orden.

[Nyd]

valla, muchas gracias... no me habia fijado ^^u

me quito el error pero ahora me queda pelearme con el "Invalid report file path", xD no marca nada solo pantallita en blanco y ese mensajito.... que estoy comenzando a odiar....

muchas gracias de nuevo =)

PD: es raro lo marca en la misma linea cuando depuro....

[Peterpay]

el Server.MapPath("Report.rpt")

trata de hacer algo como

Server.MapPath("~/")+"Report.rpt";

[Nyd]

no quiere T.T incluso pegue el reporte dentro de la carpeta donde esta el codigo

[Peterpay]

bueno como esta tu codigo al final y bajo q subcarpeta esta el codigo y sobre cual el rpt??

[Nyd]

todo esta dentro de la misma carpeta, el codigo y el rpt

Código:

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Partial Class _Default
    Inherits System.Web.UI.Page
    Private cilabReport As ReportDocument

    Protected Sub CrystalReportViewer1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init
        ''direccionar el codigo de conexion a la base de datos

        Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
        myConnectionInfo.ServerName = "trabajo"
        myConnectionInfo.DatabaseName = "cilabv3"
        myConnectionInfo.UserID = "sa"
        myConnectionInfo.Password = ""
        'enlace del crystal
        cilabReport = New ReportDocument()
        SetDBLogonForReport(myConnectionInfo, cilabReport)
        Dim reportPath As String = Server.MapPath("~/") + "Resultados.rpt"
        cilabReport.Load(reportPath)
        CrystalReportViewer1.ReportSource = cilabReport

    End Sub

    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        'codigo de conexion con la base de datos
        Dim myTables As Tables
        myTables = myReportDocument.Database.Tables
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
    End Sub

[Nyd]

creo que ya se el problema, el error Invalid report file path que sale no se debe al mappath se debe a que la variable de myReportDocument no tiene una base de datos especificada ._.U me enrede yo sola...

el caso es que comenze a depurar y la variable cilabReport me crea la instancia pero todos sus valores son nulos, por eso marca el error, ahora no se como ponerle xD esos datos que se suponen que deben de ser el nombre de servidor, base de datos, usuario, etc