vb.net - 在 CrystalReports 中登录数据库

Question

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

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

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

我知道如何通过登录凭据设计时间，但不确定在客户端 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 文件的路径中检索数据库文件名。