在Crystal Reports中登录数据库

Question

我使用CrystalReports创建了报告，添加了四个Access数据库连接。

我的要求是，在我在客户端的计算机上安装后，它永远不会提示输入UserID和密码。

我还在报告中使用了参数。

我知道如何传递登录凭证设计时间但不确定如果在客户端PC上安装后它会再次提示。

我也试过

  

CrystalDecisions.Shared.ConnectionInfo

并且成功了，但尝试使用多个数据库的报告时失败了。

Answer 1

要设置多个数据库的凭据，请使用以下代码

    Dim Report1 As New CrystalReport1
    Dim i As Integer

    For i = 0 To Report1.DataSourceConnections.Count - 1
        Dim AccessDBFileName As String = IO.Path.GetFileName(Report1.DataSourceConnections.Item(i).ServerName)
        Dim Password As String = ""

        Select Case AccessDBFileName
            Case "Database1.mdb"
                Password = "Password1"
            Case "Database2.mdb"
                Password = "Password2"
            Case "Database3.mdb"
                Password = "Password3"
            Case "Database4.mdb"
                Password = "Password4"
        End Select

        Report1.DataSourceConnections.Item(i).SetLogon("", Password)
    Next

GetFileName函数从Access文件的路径中检索数据库文件名。