Как открыть более 2 баз данных одновременно в защищенном паролем доступе в Crystal Report

Я хотел бы знать, как я могу одновременно открывать 3 или 4 защищенные паролем базы данных Access в Crystal Report.

Ранее я читал тему « Я не могу открыть отчет Crystal с базой данных в Microsoft Access с паролем ». Я добавил код для этого ответа, и он отлично работает для меня, когда это просто база данных.

Когда это более одной базы данных, она не работает, она распознает только таблицы последней базы данных, которую вы прочитали; и отправил мне уведомление, в котором не указаны таблицы, найденные в других базах данных.

    Dim cryRpt As New ReportDocument
    Dim crtableLogoninfos As New TableLogOnInfos()
    Dim crtableLogoninfo As New TableLogOnInfo()
    Dim crConnectionInfo As New ConnectionInfo()
    Dim CrTables As Tables
    Dim CrTable As Table

    Dim crtableLogoninfos1 As New TableLogOnInfos()
    Dim crtableLogoninfo1 As New TableLogOnInfo()
    Dim crConnectionInfo1 As New ConnectionInfo()
    Dim CrTables1 As Tables
    Dim CrTable1 As Table


    cryRpt.Load("C:\Repor\Nota2.rpt")

    '----------------------------------------------------------------------------
    With crConnectionInfo
        .ServerName = ""
        .DatabaseName = "C:\BASES DE DATOS\FACTNH.mdb"
        .UserID = ""
        .Password = pwxmen
    End With

    CrTables = cryRpt.Database.Tables
    'For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
    For Each CrTable In CrTables
        crtableLogoninfo = CrTable.LogOnInfo
        crtableLogoninfo.ConnectionInfo = crConnectionInfo
        CrTable.ApplyLogOnInfo(crtableLogoninfo)
    Next


    With crConnectionInfo1
        .ServerName = ""
        .DatabaseName = "C:\BASES DE DATOS\REGISTRO.mdb"
        .UserID = ""
        .Password = pwxmen
    End With

    CrTables1 = cryRpt.Database.Tables
    'For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
    For Each CrTable1 In CrTables1
        crtableLogoninfo1 = CrTable1.LogOnInfo
        crtableLogoninfo1.ConnectionInfo = crConnectionInfo1
        CrTable1.ApplyLogOnInfo(crtableLogoninfo1)
    Next
    '----------------------------------------------------------------------------

    Reportes.CR1.ReportSource = cryRpt
    Reportes.CR1.Refresh()
    Reportes.CR1.Zoom(75)
    Reportes.Show()

1
задан 13.04.2017, 16:00
1 ответ

Действительно это что-то простое избегая иметь contraseГ±a в базе данных.

Давайте Верить в базу данных Auxiliar.mdb, которую он не содержал бы contraseГ±a. Давайте верить в подмостки, которые мы используем в других базах данных. Я отлаживаю подмостки, если они содержат informaciГіn. Я добавляю ее informaciГіn только, которого я нуждаюсь в том, чтобы показать в докладе внутри подмостков. Мы читаем прямо доклад этой базы данных, которую он не содержит contraseГ±a. Я заканчиваю читать доклад и удаляю ее informaciГіn. Простые

без осложнений

типов Привета

0
ответ дан 24.11.2019, 12:54

Теги

Похожие вопросы