Write Value From Script Component To Variable (Datatype Object)

Hi,

I have a script component that contains a script similar to that shown below;


Public Sub Main()

Dim sqlConn As New SqlConnection("Server=myserver;Database=mydb;Trusted_Connection=True;")

Dim SQLStmt As String

SQLStmt = "select top 10 CountID from mytable"


Dim sqlComm As New SqlCommand(SQLStmt, sqlConn)


sqlConn.Open()



Dim r As SqlDataReader = sqlComm.ExecuteReader()
While r.Read()


Dim MyValue As Integer

If r("CountID") IsNot DBNull.Value Then

MyValue = CInt(r("CountID "))



' HERE I WANT TO WRITE MyValue TO A PACKAGE VARIABLE AS A ROW

End If


End While

r.Close()
sqlConn.Close()

Dts.TaskResult = Dts.Results.Success

End Sub


Once i have a value assigned to MyValue, I want to write this as a row to a variable (DATATYPE Object Value VALUE System.Object) in the package which will be an ADO Recordset Destination that i can then loop through later.

Many thanks for any help

Phil Harbour