NekoNao Ответов: 1

Подключение нескольких баз данных в crystal report с помощью ASP.NET


У меня есть 3 базы данных, подключенные к моему crystal report, он работает в моем crystal report. Теперь я хочу посмотреть его в ASP.Net но он говорит, что вход в базу данных не удался.

Что я уже пробовал:

'FOR LOGIN CREDENTIALS
With crConnectionInfo
    .ServerName = server
    .DatabaseName = dbname
    .UserID = userid
    .Password = "pw
End With

With crConnectionInfo1
    .ServerName = server
    .DatabaseName = dbname
    .UserID = userid
    .Password = "pw
End With

With crConnectionInfo2
    .ServerName = server
    .DatabaseName = dbname
    .UserID = userid
    .Password = "pw
End With

CrTables = reportdoc.Database.Tables

Dim myTable1 As CrystalDecisions.CrystalReports.Engine.Table = CrTables(0)
Dim myTable2 As CrystalDecisions.CrystalReports.Engine.Table = CrTables(1)
Dim myTable3 As CrystalDecisions.CrystalReports.Engine.Table = CrTables(2)

Dim myTableLogonInfo As TableLogOnInfo = myTable1.LogOnInfo
Dim myTableLogonInfo1 As TableLogOnInfo = myTable2.LogOnInfo
Dim myTableLogonInfo2 As TableLogOnInfo = myTable3.LogOnInfo

crtableLogoninfo.ConnectionInfo = crConnectionInfo
myTable1.ApplyLogOnInfo(myTableLogonInfo)


crtableLogoninfo.ConnectionInfo = crConnectionInfo1
myTable2.ApplyLogOnInfo(myTableLogonInfo1)


crtableLogoninfo.ConnectionInfo = crConnectionInfo2
myTable3.ApplyLogOnInfo(myTableLogonInfo2)


но при этом все равно выбросить логин базы данных не удалось.

1 Ответов

Рейтинг:
2

Richard Deeming

Прочтите свой код:

Dim myTableLogonInfo As TableLogOnInfo = myTable1.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
myTable1.ApplyLogOnInfo(myTableLogonInfo)

  1. Возьми myTable1.LogOnInfo, и хранить его в myTableLogonInfo;
  2. Изменить совершенно не связанная переменная crtableLogoninfo;
  3. Применить неизменившийся информация для входа в систему от myTableLogonInfo к myTable1;

Предположительно, три строки, которые начинаются crtableLogoninfo.ConnectionInfo = ... следует ссылаться на myTableLogonInfo... вместо этого переменные.
Dim myTableLogonInfo As TableLogOnInfo = myTable1.LogOnInfo
myTableLogonInfo.ConnectionInfo = crConnectionInfo
myTable1.ApplyLogOnInfo(myTableLogonInfo)