Как Вы получаете доступ к переменной RecordSet в Задаче Сценария?
На вкладке скрипта убедитесь, что вы поместили переменную в текстовые поля readonlyvariables или readwritevariables.
Вот простой сценарий, который я использую для форматирования ошибок в потоке данных (сохраненных в переменной RecordSet) в теле электронного письма. В основном я читаю набор записей varialbe в таблицу данных и обрабатываю ее строка за строкой с помощью циклов for. После завершения этой задачи я проверяю значение uvErrorEmailNeeded, чтобы определить, есть ли что-нибудь для отправки по электронной почте с использованием условного коннектора потока процессов. Вам также нужно будет добавить ссылку на system.xml в ваш сценарий vb. Это в SQL 2005.
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Xml
Imports System.Data.OleDb
Public Class ScriptMain
Public Sub Main()
Dim oleDA As New OleDbDataAdapter
Dim dt As New DataTable
Dim col As DataColumn
Dim row As DataRow
Dim sMsg As String
Dim sHeader As String
oleDA.Fill(dt, Dts.Variables("uvErrorTable").Value)
If dt.Rows.Count > 0 Then
Dts.Variables("uvErrorEmailNeeded").Value = True
For Each col In dt.Columns
sHeader = sHeader & col.ColumnName & vbTab
Next
sHeader = sHeader & vbCrLf
For Each row In dt.Rows
For Each col In dt.Columns
sMsg = sMsg & row(col.Ordinal).ToString & vbTab
Next
sMsg = sMsg & vbCrLf
Next
Dts.Variables("uvMessageBody").Value = "Error task. Error list follows:" & vbCrLf & sHeader & sMsg & vbCrLf & vbCrLf
End If
Dts.TaskResult = Dts.Results.Success
End Sub
End Class