hi - i'm trying to populate a sequence level variable from a script
inside a data flow. I am able to
1) reference the 'variableDispenser' object...
2) create a pointer to the variables collection with the statement..
3) lock my variable...
4) but don't know the syntax to write to it.....

I've googled and gotten a few examples - all of which are flagged as
invalid syntax.
Can someone review and provide the correct syntax...or explain why the
code I've grabbed from google
(and microsoft help online) is being flagged as invalid in my script?

Thanks very much!
================================================== ========================

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime
Imports Microsoft.SqlServer.Dts

Public Class ScriptMain
Inherits UserComponent

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As
Input0Buffer)
'only one row is processed......
Dim year_ As Integer
Dim month_ As Integer
Dim date_ As Date

Dim vars As Variables
Dim varsdisp As VariableDispenser

date_ = CType(Row.f1, DateTime)
year_ = Year(date_)
month_ = Month(date_)

VariableDispenser.LockForWrite("User:iMonth")

'the following lines get flagged as incorrect...

Variables("User:iMonth").value = 1
Variables("iMonth").value = 1
'or....
vars("User:iMonth").value = 1
vars("iMonth").value = 1


End Sub

End Class

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Hi Kent,

Try:
Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("iMonth", var)

var("iMonth").Value = 1

var.Unlock()

Good luck!
J

Kent

If that didn't work, try referring to it with Dts. in front:

Dts.Variables("myVariable").Value
--
Todd C



"jhofmeyr (AT) googlemail (DOT) com" wrote: