'Dts' 未声明 - VB 2010 连接字符串作为 DB2 SSIS 包的变量答案

【问题标题】：'Dts' is not declared - VB 2010 Connection string as variable to DB2 SSIS package'Dts' 未声明 - VB 2010 连接字符串作为 DB2 SSIS 包的变量
【发布时间】：2017-04-21 17:00:22
【问题描述】：

完全披露，我处于必须即时学习 VB 脚本的情况。这是问题：在 VB 2010 脚本任务中，我不得不在我的 SSIS 包中的多个脚本任务中硬编码 DB2 连接字符串。在 VB 2005 中，连接字符串被设置为变量，这是我为 VB 2010 所做的。我已将脚本任务中的变量声明为读/写。我的其他变量有效，但我的 DB2 和 MS SQL 连接字符串都需要硬编码才能工作。我看到的错误是“未声明'Dts'。”我确信它被声明为代码的其他部分使用正常工作的 dts 变量。我已经搜索了一个解决方案，但还没有找到任何可行的方法。感谢您提供的任何见解。下面的代码已清除敏感信息并用星号替换：

' Microsoft SQL Server Integration Services Script Task
' Write scripts using Microsoft Visual Basic
' The ScriptMain class is the entry point of the Script Task.

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Data.OleDb
Imports System.Data.SqlClient

<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

    ' The execution engine calls this method when the task executes.
    ' To access the object model, use the Dts object. Connections, variables, events,
    ' and logging features are available as static members of the Dts class.
    ' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.
    ' 
    ' To open Code and Text Editor Help, press F1.
    ' To open Object Browser, press Ctrl+Alt+J.
    Dim db2Con As OleDbConnection = Nothing
    Dim strError As String = Nothing
    Dim db2Cmd As OleDbCommand = Nothing
    Dim db2Rdr As OleDbDataReader = Nothing
    Dim EODC_Audit_DataTable As New DataTable

    Public Sub Main()
        '
        ' Add your code here
        '



        Dts.Variables("Audit_Row_Ct").Value = CheckForEODC()
        Dts.TaskResult = ScriptResults.Success


    End Sub

    Public Function CheckForEODC() As Integer
        CheckForEODC = 0
        Try
            If Not DB2RS.SetDBCon(db2Con, strError) Then Throw New Exception(strError)
            If Not DB2RS.SetDBCmd(db2Con, db2Cmd, "SELECT * FROM " + Dts.Variables("Region").Value.ToString + ".****", strError) Then Throw New Exception(strError)
            db2Rdr = db2Cmd.ExecuteReader
            EODC_Audit_DataTable.Load(db2Rdr)
        Catch ex As Exception
            Dts.VariableDispenser.LockForWrite("stdError")
            Dts.Variables("strError").Value = "Load Error:  " & ex.Message & "<br />&nbsp;"
            Dts.Variables.Unlock()
        Finally
            DB2RS.DisposeOfObjects(db2Con, db2Cmd, db2Rdr)
        End Try

        If (**** < 1) Then
            CheckForEODC = 0
        Else
            CheckForEODC = ****
        End If
    End Function
End Class


Public Class DB2RS


    Public Shared Function SetDBCon( _
       ByRef dbCon As OleDbConnection, _
       ByRef strError As String _
   ) As Boolean

        Try
            dbCon = New OleDbConnection(Dts.Variables("DB2ConnectionString").Value.ToString)
            dbCon.Open()
            SetDBCon = True
        Catch ex As Exception
            strError = ex.Message
            SetDBCon = False
        End Try
    End Function

    Public Shared Function SetDBCmd( _
        ByRef dbCon As OleDbConnection, _
        ByRef dbCmd As OleDbCommand, _
        ByVal strCmd As String, _
        ByRef strError As String _
    ) As Boolean

        Try
            dbCmd = New OleDbCommand(strCmd, dbCon)
            dbCmd.CommandType = Data.CommandType.Text
            SetDBCmd = True

        Catch ex As Exception
            strError = ex.Message
            SetDBCmd = False

        End Try
    End Function



    Public Shared Sub DisposeOfObjects( _
        Optional ByRef dbCon As OleDbConnection = Nothing, _
        Optional ByRef dbCmd As OleDbCommand = Nothing, _
        Optional ByRef dbRdr As OleDbDataReader = Nothing, _
        Optional ByRef dbAda As OleDbDataAdapter = Nothing, _
        Optional ByRef dbDSet As DataSet = Nothing, _
        Optional ByRef dTable As DataTable = Nothing, _
        Optional ByRef dView As DataView = Nothing _
    )
        Try
            If Not IsNothing(dbDSet) Then
                dbDSet.Dispose()
                dbDSet = Nothing
            End If
        Catch ex As Exception
            dbDSet = Nothing
        End Try

        Try
            If Not IsNothing(dbAda) Then
                dbAda.Dispose()
                dbAda = Nothing
            End If
        Catch ex As Exception
            dbAda = Nothing
        End Try

        Try
            If Not IsNothing(dbRdr) Then
                If Not dbRdr.IsClosed Then dbRdr.Close()
                dbRdr = Nothing
            End If
        Catch ex As Exception
            dbRdr = Nothing
        End Try
        Try
            If Not IsNothing(dbCmd) Then
                dbCmd.Dispose()
            End If
        Catch ex As Exception
            dbCmd = Nothing
        End Try

        Try
            If Not IsNothing(dbCon) Then
                If dbCon.State = ConnectionState.Open Then
                    dbCon.Close()
                End If
                dbCon.Dispose()
            End If
        Catch ex As Exception
            dbCon = Nothing
        End Try

        Try
            If Not IsNothing(dTable) Then
                dTable.Dispose()
                dTable = Nothing
            End If
        Catch ex As Exception
            dTable = Nothing
        End Try

        Try
            If Not IsNothing(dView) Then
                dView.Dispose()
                dView = Nothing
            End If
        Catch ex As Exception
            dView = Nothing
        End Try
    End Sub

    Public Shared Function Null2Space( _
        ByVal strValue As Object, _
        Optional ByVal blnDash As Boolean = False _
    ) As String

        Try
            If IsNothing(strValue) Then
                If blnDash Then
                    Null2Space = "&nbsp;-&nbsp;"
                Else
                    Null2Space = "&nbsp;"
                End If
            ElseIf strValue Is System.DBNull.Value Then
                If blnDash Then
                    Null2Space = "&nbsp;-&nbsp;"
                Else
                    Null2Space = "&nbsp;"
                End If
            ElseIf strValue.ToString.Trim.Length() < 1 Then
                If blnDash Then
                    Null2Space = "&nbsp;-&nbsp;"
                Else
                    Null2Space = "&nbsp;"
                End If
            Else
                Null2Space = strValue.ToString.Trim()
            End If

        Catch ex As Exception
            Null2Space = strValue.ToString

        End Try
    End Function



End Class











Public Class DBSQLRS

    Public Shared Function SetDBCon( _
        ByRef dbCon As SqlConnection, _
        ByRef strError As String, _
        Optional ByVal dbName As String = "*****", _
        Optional ByVal dbUser As String = "*****" _
    ) As Boolean

        Try
            If dbUser = "ELI_Web" Then
                dbCon = New SqlConnection("*****")
            ElseIf dbUser = "ELI_URP" Then
                dbCon = New SqlConnection("*****")
            End If

            dbCon.Open()
            SetDBCon = True

        Catch ex As Exception
            strError = ex.Message
            SetDBCon = False

        End Try
    End Function

    Public Shared Function SetDBCmd( _
        ByRef dbCon As SqlConnection, _
        ByRef dbCmd As SqlCommand, _
        ByVal strCmd As String, _
        ByRef strError As String _
    ) As Boolean

        Try
            dbCmd = New SqlCommand(strCmd, dbCon)
            dbCmd.CommandType = Data.CommandType.StoredProcedure
            SetDBCmd = True

        Catch ex As Exception
            strError = ex.Message
            SetDBCmd = False

        End Try
    End Function

    Public Shared Function SetDBPar( _
        ByRef dbCmd As SqlCommand, _
        ByRef dbPar As SqlParameter, _
        ByVal strParName As String, _
        ByVal objParValue As Object, _
        ByVal dbType As Data.SqlDbType, _
        ByRef strError As String _
    ) As Boolean

        Try
            dbPar = New SqlParameter(strParName, dbType)
            dbPar.IsNullable = True
            dbPar.Value = objParValue
            dbCmd.Parameters.Add(dbPar)
            SetDBPar = True

        Catch ex As Exception
            strError = ex.Message
            SetDBPar = False

        End Try
    End Function

    Public Shared Sub DisposeOfObjects( _
        Optional ByRef dbCon As SqlConnection = Nothing, _
        Optional ByRef dbCmd As SqlCommand = Nothing, _
        Optional ByRef dbPar As SqlParameter = Nothing, _
        Optional ByRef dbRdr As SqlDataReader = Nothing, _
        Optional ByRef dbAda As SqlDataAdapter = Nothing, _
        Optional ByRef dbDSet As DataSet = Nothing, _
        Optional ByRef dTable As DataTable = Nothing, _
        Optional ByRef dView As DataView = Nothing _
    )
        Try
            If Not IsNothing(dbDSet) Then
                dbDSet.Dispose()
                dbDSet = Nothing
            End If
        Catch ex As Exception
            dbDSet = Nothing
        End Try

        Try
            If Not IsNothing(dbAda) Then
                dbAda.Dispose()
                dbAda = Nothing
            End If
        Catch ex As Exception
            dbAda = Nothing
        End Try

        Try
            If Not IsNothing(dbRdr) Then
                If Not dbRdr.IsClosed Then dbRdr.Close()
                dbRdr = Nothing
            End If
        Catch ex As Exception
            dbRdr = Nothing
        End Try

        Try
            If Not IsNothing(dbPar) Then
                dbPar = Nothing
            End If
        Catch ex As Exception
            dbPar = Nothing
        End Try

        Try
            If Not IsNothing(dbCmd) Then
                dbCmd.Dispose()
            End If
        Catch ex As Exception
            dbCmd = Nothing
        End Try

        Try
            If Not IsNothing(dbCon) Then
                If dbCon.State = ConnectionState.Open Then
                    dbCon.Close()
                End If
                dbCon.Dispose()
            End If
        Catch ex As Exception
            dbCon = Nothing
        End Try

        Try
            If Not IsNothing(dTable) Then
                dTable.Dispose()
                dTable = Nothing
            End If
        Catch ex As Exception
            dTable = Nothing
        End Try

        Try
            If Not IsNothing(dView) Then
                dView.Dispose()
                dView = Nothing
            End If
        Catch ex As Exception
            dView = Nothing
        End Try
    End Sub

    Public Shared Function Null2Space( _
        ByVal strValue As Object, _
        Optional ByVal blnDash As Boolean = False _
    ) As String

        Try
            If IsNothing(strValue) Then
                If blnDash Then
                    Null2Space = "&nbsp;-&nbsp;"
                Else
                    Null2Space = "&nbsp;"
                End If
            ElseIf strValue Is System.DBNull.Value Then
                If blnDash Then
                    Null2Space = "&nbsp;-&nbsp;"
                Else
                    Null2Space = "&nbsp;"
                End If
            ElseIf strValue.ToString.Trim.Length() < 1 Then
                If blnDash Then
                    Null2Space = "&nbsp;-&nbsp;"
                Else
                    Null2Space = "&nbsp;"
                End If
            Else
                Null2Space = strValue.ToString.Trim()
            End If

        Catch ex As Exception
            Null2Space = strValue.ToString

        End Try
    End Function

End Class

【问题讨论】：

更具体地说，错误发生在：dbCon = New OleDbConnection(Dts.Variables("DB2ConnectionString").Value.ToString

标签： sql-server vb.net ssis db2 dts

【解决方案1】：

看起来Dts 是ScriptMain 类中的一个实例属性（继承自Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectM‌odelBase）。

但是，您的OleDbConnection() 调用位于另一个名为DB2RS 的类中，它无权访问ScriptMain 类的实例变量或属性，例如Dts。

如果您不理解这一点，您应该退后一步，学习初级 Visual Basic 编程课程，因为即使下一个解决方案对您有所帮助，您也不会走得更远。这里有一些资源

在线课程：Microsoft Visual Basic Fundamentals for Absolute Beginners
图书：Beginning Visual Basic 2015
图书：Visual Basic .NET Database Programming For Dummies

解决当前问题的一种方法是将Dts 作为参数传递给DB2RS.SetDBCon() 调用。更改此行：

If Not DB2RS.SetDBCon(db2Con, strError) Then Throw New Exception(strError)

到：

If Not DB2RS.SetDBCon(db2Con, Dts, strError) Then Throw New Exception(strError)

然后您需要将Dts 作为参数添加到SetDBCon() 函数。我相信Dts 的类型是Microsoft.SqlServer.Dts.Tasks.ScriptTask.ScriptObjectModel，所以我把它包括在下面。如果这是错误的，您需要调整该类型..

Public Class DB2RS
    Public Shared Function SetDBCon( _
       ByRef dbCon As OleDbConnection, _
       ByRef Dts As Microsoft.SqlServer.Dts.Tasks.ScriptTask.ScriptObjectModel, _
       ByRef strError As String _
   ) As Boolean

【讨论】：

老实说，我不知道该怎么做。我将大部分代码从 VS 2005 移至 VS 2010。我通过调试代码进行了调整以使其正常运行，但它需要对所有连接字符串进行硬编码。我需要它们是动态变量。我很抱歉，但正如我所说，我对此很陌生，并尽我所能尽快学习如何做到这一点
您将受益于了解更多有关 Visual Basic 编程的知识。我推荐一本初学者 VB 编程书籍，和/或在线课程，例如 - mva.microsoft.com/en-US/training-courses/…
感谢所有帮助。我一直在查看您提供的链接以了解更多关于 VB 的信息。正如我所说，这确实不是我角色的一部分，但这是需要完成的事情，这里没有其他人熟悉 VB。这绝对是我正在努力学习的技能。
我正在实施它。看起来它会解决问题。通过调试，我没有再遇到任何错误。