Question

我用水晶报告创建了一份报告目前，我使用用户DSN 作为其数据源但主要问题是报告仅在我设置trustedconnection = TRUE时从主PC打开我可以将LAN中的DSN更改为可信连接到FALSE ，并通过ODBC手动设置UserId和Pwd。通过这样做，报告在局域网中完美运行，但我的另一个问题是我必须这样做 在程序运行时更改数据库。
所有数据库结构（架构），表格，过程，视图都相同，只是名称不同。
现在，当我以编程方式从DSN更改默认数据库时，一切正常但这仅适用于主PC，因为我可以在受信任的Connection = TRUE时更改DSN ..并且我无法以编程方式输入密码到DSN （已搜索）。

我尝试了以下代码来更改数据库，CrystalReportViewer1成功打开报告，没有任何错误。

Dim myDBConnectionInfo As New ConnectionInfo()
        With myDBConnectionInfo
            .ServerName = My.Settings.SysSvName
            .DatabaseName = Pubdbname
            .UserID = “sa”
            .Password = “sa123”
        End With

        orptname.Load("JVR.rpt")
        orptname.SetParameterValue("@CompYear", PubYear1)
        orptname.SetParameterValue("@CompNo", mComp1)
        orptname.SetParameterValue("@fdatee", Format(CDate(FromDate.Text), "MM/dd/yyyy"))
        orptname.SetParameterValue("@tdatee", Format(CDate(ToDate.Text), "MM/dd/yyyy"))
        orptname.SetParameterValue("cfdate", Format(CDate(FromDate.Text), "MM/dd/yyyy"))
        orptname.SetParameterValue("ctdate", Format(CDate(ToDate.Text), "MM/dd/yyyy"))
        orptname.SetParameterValue("CName", PubCName)
        orptname.SummaryInfo.ReportTitle = "JVR REPORT" & "_" & Format(CDate(FromDate.Text), "ddMMyyyy") & "-" & Format(CDate(ToDate.Text), "ddMMyyyy")
        CReports.CRViewer.ReportSource = orptname

        CReports.Show() '----- CrystalreportViewer1

但没有数据被重新审核在此之后，我将数据库名称更改为Test1，我从中创建了（使用数据库设计）报告，并成功显示了数据。
再次尝试将db更改为Test2显示无结果（但Crystal Report打开时没有任何错误连接错误。）

更改DSN默认数据库会成功显示记录目前，我正在使用的成功运行代码如下。

 With orptname
            .DataSourceConnections.Item(0).SetConnection("DSNNAME", Pubdbname, True)
            .SetParameterValue("ctdate", Format(CDate(ToDate.Text), "MM/dd/yyyy"))
            .SetParameterValue("CName", PubCName)
            .SummaryInfo.ReportTitle = "TEST REPORT" & "_" & Format(CDate(FromDate.Text), "ddMMyyyy") & "-" & Format(CDate(ToDate.Text), "ddMMyyyy")
            CReports.CRViewer.ReportSource = orptname
            CReports.Show()
        End With

那我现在该怎么办？简而言之，我希望我的Crystal Report也能在LAN PC中打开，我可以动态设置数据库。（所有数据库都具有完全相同的模式）

Answer 1

这可能对您不起作用（因为此过程不使用DSN），但它可能会让您知道该怎么做。这是针对CR 2010的。

        crxRpt.Load("report.rpt")
        Dim myTables As CrystalDecisions.CrystalReports.Engine.Tables = crxRpt.Database.Tables
        'Login for 1st DB in the report. 
        crxRpt.SetDatabaseLogon(dbUser1, dbPwd1, dbServer1, dbDB1) 
        'Login for 2nd DB in the report. IGNORE IF YOU ONLY HAVE 1 DB
        crxRpt.SetDatabaseLogon(dbUser2, dbPwd2, dbServer2, dbDB2)
        Dim crConnInfo1 As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo
        'Again, ignore if you only use 1 DB
        Dim crConnInfo2 As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo

        crConnInfo1.DatabaseName = dbDB1
        crConnInfo1.UserID = dbUser1
        crConnInfo1.Password = dbPwd1
        crConnInfo1.ServerName = dbServer1
        'again, ignore if you only use 1 DB
        crConnInfo2.DatabaseName = dbDB2
        crConnInfo2.UserID = dbUser2
        crConnInfo2.Password = dbPwd2
        crConnInfo2.ServerName = dbServer2
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo = myTable.LogOnInfo
            If myTable.LogOnInfo.ConnectionInfo.DatabaseName = dbDB1 Then
                myTableLogonInfo.ConnectionInfo = crConnInfo1
                myTable.ApplyLogOnInfo(myTableLogonInfo)
            ElseIf myTable.LogOnInfo.ConnectionInfo.DatabaseName = dbDB2 Then
                myTableLogonInfo.ConnectionInfo = crConnInfo2
                myTable.ApplyLogOnInfo(myTableLogonInfo)
            End If
        Next

然后加载参数（如果有的话），然后加载选择公式（如果有的话），最后如果需要，将报表对象放在Viewer中。

如果您有子报表，则必须对子报表执行此操作。基本上，当您从设计时更改连接信息时，您必须通知报告及其子报告中的每个表。

希望这有帮助。

使用动态数据库创建Crystal报表

1 个答案: