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