Пытаюсь изменить переменные в пакете вот таким кодом...ошибок не выдаёт, но и не работает??? Не подскажите в чём тут дело?
Imports System.Collections.Specialized
Module Module1
Sub Main()
Dim pkg As DTS.Package2
Dim v As DTS.GlobalVariable2
pkg = New DTS.Package2
pkg.LoadFromSQLServer("BASE", "sa", "19820521", _
DTS.DTSSQLServerStorageFlags.DTSSQLStgFlag_Default, _
Nothing, Nothing, Nothing, "GlobalVarsNet", Nothing)
pkg.GlobalVariables.Item("GVBoolean").Value = False
pkg.GlobalVariables.Item("GVCurrency").Value = 5
pkg.GlobalVariables.Item("GVDate").Value = "6/23/2002"
pkg.GlobalVariables.Item("GVDecimal").Value = 7
pkg.GlobalVariables.Item("GVInteger").Value = 3
pkg.GlobalVariables.Item("GVString").Value = "This raises an error"
pkg.Execute()
pkg.UnInitialize()
pkg = Nothing
Console.Read()
End Sub
End Module
Please!!!
Ответить
|