ejecutar un DTS con Vb.net

"aaron" wrote in message
news:

como puedo ejecutar un DTs con una aplicacion VB.net 2003

Los DTSs se controlan a través de un objeto COM, DTS.Package. A continuación
va un ejemplo tomado del manual de SQL Sever, que aunque está hecho en VB6,
debería funcionar casi sin modificaciones en VB.Net. Tendrás que poner en tu
proyecto una Referencia COM a "Microsoft DTSPackage Object Library"
(dtspkg.dll).


Private WithEvents mobjPkgEvents As DTS.Package
. . .
Private Sub RunPackage()
'Run the package stored in file C:\DTS_UE\TestPkg\VarPubsFields.dts.
Dim objPackage As DTS.Package2
Dim objStep As DTS.Step
Dim objTask As DTS.Task
Dim objExecPkg As DTS.ExecutePackageTask

On Error GoTo PackageError
Set objPackage = New DTS.Package
Set mobjPkgEvents = objPackage
objPackage.FailOnError = True

'Create the step and task. Specify the package to be run, and link the step
to the task.
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
Set objExecPkg = objTask.CustomTask
With objExecPkg
.PackagePassword = "user"
.FileName = "C:\DTS_UE\TestPkg\VarPubsFields.dts"
.Name = "ExecPkgTask"
End With
With objStep
.TaskName = objExecPkg.Name
.Name = "ExecPkgStep"
.ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask

'Run the package and release references.
objPackage.Execute

Set objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
Set mobjPkgEvents = Nothing

objPackage.UnInitialize
End Sub

Gracias

pero cuando trato de agregar la DLL me envia el siguiente error

NO SE PUEDE AGREGAR AL CUADRO DE HERRAMIENTAS
NO SE RECONOCIO COMO SERVIDOR COM

gracias

"A.Poblacion" escribió:

"aaron" wrote in message
news:
> como puedo ejecutar un DTs con una aplicacion VB.net 2003

Los DTSs se controlan a través de un objeto COM, DTS.Package. A continuación
va un ejemplo tomado del manual de SQL Sever, que aunque está hecho en VB6,
debería funcionar casi sin modificaciones en VB.Net. Tendrás que poner en tu
proyecto una Referencia COM a "Microsoft DTSPackage Object Library"
(dtspkg.dll).


Private WithEvents mobjPkgEvents As DTS.Package
.. . .
Private Sub RunPackage()
'Run the package stored in file C:\DTS_UE\TestPkg\VarPubsFields.dts.
Dim objPackage As DTS.Package2
Dim objStep As DTS.Step
Dim objTask As DTS.Task
Dim objExecPkg As DTS.ExecutePackageTask

On Error GoTo PackageError
Set objPackage = New DTS.Package
Set mobjPkgEvents = objPackage
objPackage.FailOnError = True

'Create the step and task. Specify the package to be run, and link the step
to the task.
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
Set objExecPkg = objTask.CustomTask
With objExecPkg
.PackagePassword = "user"
.FileName = "C:\DTS_UE\TestPkg\VarPubsFields.dts"
.Name = "ExecPkgTask"
End With
With objStep
.TaskName = objExecPkg.Name
.Name = "ExecPkgStep"
.ExecuteInMainThread = True
End With
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask

'Run the package and release references.
objPackage.Execute

Set objExecPkg = Nothing
Set objTask = Nothing
Set objStep = Nothing
Set mobjPkgEvents = Nothing

objPackage.UnInitialize
End Sub

"aaron" wrote in message
news:

Gracias

pero cuando trato de agregar la DLL me envia el siguiente error

NO SE PUEDE AGREGAR AL CUADRO DE HERRAMIENTAS
NO SE RECONOCIO COMO SERVIDOR COM

No, al cuadro de herramientas, no. Hay que agregarla a las referencias
del proyecto (Proyecto->Agregar Referencia).