или параметры подключения к серверу БД по отдельности, и не заставлять пользователя авторизоваться на сервере второй раз.
Разобрался, но зарыто ...
Dim logOnInfo As New TableLogOnInfo()
Dim i As Integer
Try
Dim paramFields As ParameterField
Dim CR_R As New ReportDocument()
OpenFileDialog1.Filter = "Crystal Reports|*.RPT"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
CR_R.Load(OpenFileDialog1.FileName)
End If
For i = 0 To CR_R.Database.Tables.Count - 1
logOnInfo.ConnectionInfo.ServerName = CS_Server
logOnInfo.ConnectionInfo.DatabaseName = CS_Database
logOnInfo.ConnectionInfo.UserID = CS_User_Id
logOnInfo.ConnectionInfo.Password = CS_PWD
CR_R.Database.Tables.Item(i).ApplyLogOnInfo(logOnInfo)
Next i
CrystalReportViewer1.ReportSource = CR_R
Catch ex As Exception
MessageBox.Show(ex.ToString, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
|