水晶报表的“登录失败”问题

Question

CSDN 水晶报表专栏
中国软件--专栏作家--海波.NET(haibodotnet)专栏
http://www.csdn.net/develop/MY_article.asp?author=haibodotnet水晶报表 - 问题＆补丁2、彻底解决 CrystalReports 登录失败问题 （haibodotnet原创）  .net 336 2003-11-8  

Answer 1

CrystalReport1是动态的连接sql server 中pub 中的表
今天偶也遇到了同样的错误,看了tensun(好想学好.NET) ( )的文章后,解决了动态加载数据库显示在CrystalReportViewer1的问题:
Imports CrystalDecisions.Shared '负责解释TableLogOnInfo类
Imports CrystalDecisions.CrystalReports.Engine Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim logOnInfo As TableLogOnInfo = New TableLogOnInfo()
        Dim oRpt As ReportDocument = New ReportDocument()
        oRpt.Load("c:\\inetpub\\wwwroot\\hj\\CrystalReport1.rpt")
        logOnInfo.ConnectionInfo.ServerName = "localhost"
        logOnInfo.ConnectionInfo.DatabaseName = "pubs"
        logOnInfo.ConnectionInfo.UserID = "sa"
        logOnInfo.ConnectionInfo.Password = "jvhmr"
        oRpt.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
        CrystalReportViewer1.ReportSource = oRpt
End Sub
但是又出现的新的问题,就是在把CrystalReport1中的数据库数据导出为excel或.....也显示
登陆失败,偶也使用的tensun(好想学好.NET) ( )的思路:
Imports CrystalDecisions.Shared '负责解释TableLogOnInfo类
Imports CrystalDecisions.CrystalReports.EnginePrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim myrpt As CrystalReport1 = New CrystalReport1()
        Dim logOnInfo As TableLogOnInfo = New TableLogOnInfo()
        Dim oRpt As ReportDocument = New ReportDocument()
        oRpt.Load("c:\\inetpub\\wwwroot\\hj\\CrystalReport1.rpt")
        logOnInfo.ConnectionInfo.ServerName = "localhost"
        logOnInfo.ConnectionInfo.DatabaseName = "pubs"
        logOnInfo.ConnectionInfo.UserID = "sa"
        logOnInfo.ConnectionInfo.Password = "jvhmr"
        myrpt.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
        myrpt.ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
        myrpt.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.WordForWindows
        Dim opt As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()
        opt.DiskFileName = "C:\Inetpub\wwwroot\HJ\out.doc"
        myrpt.ExportOptions.DestinationOptions = opt
        myrpt.Export()
    End Sub

Answer 2

http://www.csdn.net/develop/MY_article.asp?author=haibodotnet