如何在 vb.net 中使用 OLE DB 更改 Crystal Reports 连接字符串？答案

【问题标题】：How to change Crystal Reports connection string using OLE DB in vb.net?如何在 vb.net 中使用 OLE DB 更改 Crystal Reports 连接字符串？
【发布时间】：2012-02-08 14:35:02
【问题描述】：

我有一个“Connection.vb”，我的所有连接字符串都在其中存储并供整个程序使用。

我是 Crystal Reports 的新手.. 我想根据我创建的连接字符串更改它的连接字符串...我使用 MS SQL 2008.. SQL Server Native Client 10.0 OLE DB Provider..

这是我的连接字符串。 "Provider=SQLNCLI10;Server=....\SQLEXPRESS;Database=Blah;Trusted_Connection=yes"

我试图用谷歌搜索它..但他们使用不同的语言、不同的数据库和复杂的示例......

提前谢谢..

【问题讨论】：

您是在问如何将连接字符串从 VB 传递给 Crystal Reports？

标签： vb.net crystal-reports connection oledb

【解决方案1】：

我刚刚花了一些时间在 VB 中找出这个确切的问题。我希望这会有所帮助。

将 YourDataContext() 替换为您的数据上下文。或者，您可以照常从 AppConfig 获取连接字符串。我是从数据上下文中获取我的，因为我们正在迁移数据库并不断更改连接字符串。

   Private Sub SetCrystalReportsConnection(ByRef report As ReportDocument)

    Dim sqlConnInfo As SqlConnectionStringBuilder = New SqlConnectionStringBuilder(New YourDataContext().Connection.ConnectionString)

    For Each connection As InternalConnectionInfo In report.DataSourceConnections
        If sqlConnInfo.IntegratedSecurity Then
            connection.SetConnection(sqlConnInfo.DataSource, sqlConnInfo.InitialCatalog, True)
        Else
            connection.SetConnection(sqlConnInfo.DataSource, sqlConnInfo.InitialCatalog, sqlConnInfo.UserID, sqlConnInfo.Password)
            connection.IntegratedSecurity = False
        End If
    Next

End Sub

【讨论】：