为vb.net 2010创建远程mysql数据源

Question

我在服务器上有mysql数据库，并与

Mysql.Data库在vb.net中，我所有的东西都在工作，但现在我在使用crystal reports生成报告时遇到了问题。

我在哪里设置水晶报表的数据源，以便从那个远程mysql获取数据。

Answer 1

有很多方法可以做到这一点，但我就是这样做的。顺便说一句，我在一个我在多个应用程序中使用的库中有这个。注意:这假设是一个SQL客户端连接字符串，您可以根据需要对其进行更改。

Public Shared Sub SetupReportConnections(ByVal rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal ConnString As String, Optional ByVal UpdateSubReport As Boolean = True)
    If ConnString = "" Then Exit Sub
    'First, parse the connection string for the parts we need
    Dim CN As New SqlClient.SqlConnection(ConnString)
    Dim sServer As String = CN.DataSource
    Dim sDatabase As String = CN.Database

    'Update the connection information for each table
    Dim crtableLogoninfo As New CrystalDecisions.Shared.TableLogOnInfo
    Dim CrTables As CrystalDecisions.CrystalReports.Engine.Tables
    Dim CrTable As CrystalDecisions.CrystalReports.Engine.Table

    CrTables = rpt.Database.Tables
    For Each CrTable In CrTables
        crtableLogoninfo = CrTable.LogOnInfo
        crtableLogoninfo.ConnectionInfo.ServerName = sServer
        CrTable.ApplyLogOnInfo(crtableLogoninfo)
    Next

    If UpdateSubReport Then
        For Each subrpt As CrystalDecisions.CrystalReports.Engine.ReportDocument In rpt.Subreports
            SetupReportConnections(subrpt, ConnString, False)
        Next
    End If
End Sub