Olá Laércio, sou eu de novo...
Como eu já avia tentado de tudo na minha aplicação e ainda não esta funcionado, resolvi criar do zero uma pequena aplicação (simples) seguindo passo a passo seus vídeos...
Como esta tudo muito bem explicado não tive dificuldade nenhuma...
Na maquina de desenvolvimento funciono perfeitamente...
'referências do banco de dados
Imports System.Data.SqlClient
Imports System.Data
'referências do crystal reports
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
'referência ConnectionStrings web.config
Imports System.Web.Configuration.WebConfigurationManager
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ListaAssociados()
End Sub
Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
CrystalReportViewer1.Dispose()
End Sub
Private Sub ListaAssociados()
Dim crReportDocument As New ReportDocument
Dim strConexao As String = ConnectionStrings("ConnectionString").ConnectionString()
Dim oConn As New SqlConnection
Dim strSQL As New StringBuilder
Dim oDataSet As New dsTeste 'dsProduct
Try
'1 passo: carregar os dados do relatório
'abrindo conexão com o banco de dados
oConn.ConnectionString = strConexao
oConn.Open()
strSQL.Append(" SELECT * ")
strSQL.Append(" FROM Inscricao ")
strSQL.Append(" WHERE CodCon = 105 ")
Dim oDA As New SqlDataAdapter(strSQL.ToString, oConn)
oDA.Fill(oDataSet, "Inscricao")
'2 passo: carregar o relatório
Dim strPathreport As String = Server.MapPath("CrystalReport1.rpt")
crReportDocument.Load(strPathreport)
'3 passo: definir o DataSource do relatório
crReportDocument.SetDataSource(oDataSet)
'4 passo: visualizar o relatório
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.HasCrystalLogo = False
CrystalReportViewer1.ReportSource = crReportDocument
CrystalReportViewer1.DataBind()
Catch ex As Exception
System.Diagnostics.Debug.WriteLine(ex.Message)
Finally
'liberando os objetos
oConn.Dispose()
oDataSet.Dispose()
oConn = Nothing
oDataSet = Nothing
End Try
End Sub
End Class
Quando publiquei essa aplicação TESTE no servidor de aplicativos (Windows Server 2003 - IIS), não carrega o relatório (a página fice em branco)...
Alguém tem idéia do que pode ser??? Tenho que instalar oque no servidor???
