SSIS 从 2008R2 升级到 2017 - 连接到 OLEDB 数据源时脚本任务失败

Question

我正在将数据仓库从 SQL Server 2008R2 升级到 2017。升级后，每个脚本任务在尝试连接到日志数据库时都会抛出相同的错误。

该任务通过 OLEDB 连接管理器连接到数据库，然后将一些元数据写入日志记录表。建立初始连接失败。我希望这是一个相当简单的调用错误，但我是一个 SQL 人员，而不是 VB 人员，而且我没有看到这个问题。

我发现这个问题，Missing library to reference OLEDB connection types，但脚本没有调用 AcquireConnection() 方法，所以我认为它不适用。或者如果是的话，我不知道如何。

这是通过故障点的代码。

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Data.OleDb
Imports System.Collections
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper

<Microsoft.SqlServer.Dts.Tasks.ScriptTask.SSISScriptTaskEntryPointAttribute> _
<System.CLSCompliantAttribute(False)> _
Partial Public Class ScriptMain
  Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase

  Enum ScriptResults
    Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success
    Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure
  End Enum

    Public Sub Main()
        Dim fireAgain As Boolean
        Dim pkgExecVar As Variables
        Dim cm As ConnectionManager
    Dim cmParam As IDTSConnectionManagerDatabaseParameters100
    Dim conn As OleDb.OleDbConnection
    Dim cmd As OleDbCommand = New OleDbCommand()

    pkgExecVar = Nothing
    cm = Dts.Connections("Configuration_Metadata_Logging")
    cmParam = CType(cm.InnerObject, IDTSConnectionManagerDatabaseParameters100)
    conn = CType(cmParam.GetConnectionForSchema(), OleDb.OleDbConnection)

当我单步执行代码时，从底部开始的第二行抛出异常。

cmParam = CType(cm.InnerObject, IDTSConnectionManagerDatabaseParameters100)

System.InvalidCastException HResult=0x80004002 Message=无法将类型“System.__ComObject”的 COM 对象转换为接口类型“Microsoft.SqlServer.Dts.Runtime.Wrapper.IDTSConnectionManagerDatabaseParameters100”。此操作失败，因为对 IID 为“{624862CB-55F9-4A92-965F-62BC4935296A}”的接口的 COM 组件上的 QueryInterface 调用因以下错误而失败：不支持此类接口（HRESULT 异常：0x80004002 (E_NOINTERFACE)） 。

如果我可以在问题中添加任何其他内容以提供帮助，请告诉我。

编辑：OLEDB 连接管理器正在使用 SQLNCLI11.1。该包的其他组件（执行 SQL 和数据流任务）能够成功连接。

编辑 II：为了使其更易于搜索，这是包在向脚本任务添加断点并单步执行之前抛出的初始错误。

调用目标已引发异常。

在System.RuntimeMethodHandle.InvokeMethod（对象目标，对象[]参数，签名sig，布尔构造函数）在System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal（对象obj，对象[]参数，对象[]参数）在System.Reflection.RuntimeMethodInfo。在 System.RuntimeType.InvokeMember 处调用（对象 obj、BindingFlags invokeAttr、Binder 活页夹、Object[] 参数、CultureInfo 文化）（字符串名称、BindingFlags bindingFlags、Binder 活页夹、对象目标、Object[]providedArgs、ParameterModifier[] 修饰符、CultureInfo 文化、 String[] namedParams) 在 Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTATaskScriptingEngine.ExecuteScript()

Answer 1

更新。我找到了该代码的来源，这是 Matt Mason 的一篇博客文章，名为“在脚本中访问 OLEDB 连接管理器”。它仍然没有文档记录，并且可能在 SQL 2008 和 2017 之间的某个时间被破坏。

此处记录了支持的执行此操作的方法：在脚本任务中连接到数据源

在脚本任务中获取 System.Data.OleDbConnection 的唯一方法是

1) 要使用 ADO.NET 连接管理器并将其配置为使用 OleDb 的 ADO.NET 提供程序，如下所示：

 Dim cm As ConnectionManager = Dts.Connections("Configuration_Metadata_Logging_adonet_oledb")
 Dim conn As OleDb.OleDbConnection = CType(cm.AcquireConnection(Nothing), OleDb.OleDbConnection)

2) 使用 OleDb Connection Mamanger 并使用其 ConnectionString 创建一个新的 OleDbConnection（您还负责在脚本任务中关闭它）。像这样：

Dim cm2 As ConnectionManager = Dts.Connections("Configuration_Metadata_Logging_oledb")
Using conn2 As New OleDb.OleDbConnection(cm2.ConnectionString)
    conn2.Open()

End Using