Динамическое изменение строки подключения MySQL на Crystal Reports - PullRequest
Новая
       34

Динамическое изменение строки подключения MySQL на Crystal Reports

1 голос
/ 02 июня 2011

Я использую CrystalReportViewer и CrystalReportSource для загрузки и отображения файла .rpt в моем приложении.

Ситуация у меня такая:

Скажем, человек создал отчет Crystal Reports вне моего приложения и установил его источник данных в базе данных. Затем я использую этот файл .rpt в своем приложении, но мне нужно связать его с другой базой данных (идентичной исходной по структуре таблицы и именам столбцов, но с другой строкой соединения, именем пользователя и паролем).

Как мне это сделать в коде VB.NET?

В настоящее время я загружаю отчет, используя: 

Public Function SetReportSource(ByVal RptFile As String) As ReportDocument

    Try
        Dim crtableLogoninfo As New TableLogOnInfo()
        Dim crConnectionInfo As New ConnectionInfo()
        Dim CrTables As Tables
        Dim CrTable As Table

        If System.IO.File.Exists(RptFile) Then
            Dim crReportDocument As New ReportDocument()
            crReportDocument.Load(RptFile)

            With crConnectionInfo
                .ServerName = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;Port=3306;UID=root;"
                .DatabaseName = gDatabaseName
                .UserID = gServerUser
                .Password = gServerPassword
            End With

            CrTables = crReportDocument.Database.Tables
            For Each CrTable In CrTables
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
                CrTable.LogOnInfo.ConnectionInfo.ServerName = crConnectionInfo.ServerName
                CrTable.LogOnInfo.ConnectionInfo.DatabaseName = crConnectionInfo.DatabaseName
                CrTable.LogOnInfo.ConnectionInfo.UserID = crConnectionInfo.UserID
                CrTable.LogOnInfo.ConnectionInfo.Password = crConnectionInfo.Password
                'Apply the schema name to the table's location
                CrTable.Location = gDatabaseName & "." & CrTable.Location
            Next

            crReportDocument.VerifyDatabase()
            SetReportSource = crReportDocument
        Else
            MsgBox("Report file not found...", MsgBoxStyle.Critical, proTitleMsg)
        End If
    Catch ex As Exception
        System.Windows.Forms.MessageBox.Show("Error Found..." & vbCrLf & "Error No : " & Err.Number & vbCrLf & "Description :" & Err.Description & vbCrLf & vbCrLf & "Line no : " & Err.Erl & vbCrLf & "Procedure name : SetReportSource" & vbCrLf & "Module name : GeneralFunctions", proTitleMsg)
    End Try

End Function

1 Ответ

1 голос
/ 18 февраля 2013

Вот как я это сделал.Я использовал Oracle с ODBC на ASP.NET, но вы должны быть в состоянии сделать то же самое с MySQL и ODBC:

В рамках обновления устаревших приложений, которое я делал, я решил переместить CrystalСообщает в веб-приложение о том, что пользователи получают к ним доступ непосредственно в Crystal Reports XI через Citrix, и этот метод используется ими.Это имеет несколько преимуществ, основным из которых является скорость.Одна проблема, которая меня беспокоила, заключалась в том, как изменить информацию для входа во время выполнения, чтобы приложение автоматически указывало на правильную базу данных Oracle (разработку, тестирование или производство) в зависимости от того, с какого сервера был получен доступ к отчету.

Решение, которое я нашел, состояло в том, чтобы установить соединение с базой данных Oracle как DSN в ODBC и подключиться к DSN ODBC, а не напрямую использовать клиент Oracle.Это не единственный способ сделать это, но, похоже, это лучший способ для моих целей.

В файле с выделенным кодом для страницы, содержащей Crystal Reports Viewer, я поместил следующий код, которыйобрабатывает то же событие, которое визуализирует зрителя. 

Protected Sub btnGenerate_Click(sender As Object, e As System.EventArgs) Handles btnGenerate.Click
Dim connInfo As New ConnectionInfo
Dim rptDoc As New ReportDocument

' setup the connection
With connInfo
.ServerName = "oracledsn" ' ODBC DSN in quotes, not Oracle server or database name
.DatabaseName = "" ' leave empty string here
.UserID = "username" ' database user ID in quotes
.Password = "password"  'database password in quotes
End With

' load the Crystal Report
rptDoc.Load(Server.MapPath(Utilities.AppSettingsFunction.getValue("ReportFolder") & ddlReports.SelectedValue))

' add required parameters
If pnlstartdates.Visible Then
rptDoc.SetParameterValue("REPORT_DATE", txtSingleDate.Text)
End If

' apply logon information

For Each tbl As CrystalDecisions.CrystalReports.Engine.Table In rptDoc.Database.Tables
Dim repTblLogonInfo As TableLogOnInfo = tbl.LogOnInfo
repTblLogonInfo.ConnectionInfo = connInfo
tbl.ApplyLogOnInfo(repTblLogonInfo)
Next

' Set, bind, and display Crystal Reports Viewer data source
Session("rptDoc") = rptDoc
Me.CrystalReportViewer1.ReportSource = Session("rptDoc")
CrystalReportViewer1.DataBind()
UpdatePanel1.Update()
 End Sub

Приведенная выше информация для входа в систему может быть легко сохранена в web.config вместо жесткого кодирования, как указано выше.

Кстати, я выбралпоместите мой Crystal Reports Viewer на панель обновления ASP.NET AJAX, поэтому ReportSource этого средства просмотра хранится в переменной Session.Если вы решите сделать это, зритель должен быть привязан к базе данных в событии Init (а не в событии Load) для правильного отображения. 

Protected Sub Page_Init(sender As Object, e As System.EventArgs) Handles Me.Init
If Not Page.IsPostBack Then
txtSingleDate.Text = Now.Date()
ElseIf Session("rptDoc") IsNot Nothing Then
Me.CrystalReportViewer1.ReportSource = Session("rptDoc")
CrystalReportViewer1.DataBind()
UpdatePanel1.Update()
End If
 End Sub
...