ejecutar un DTS con Vb.net

08/09/2005 - 16:56 por aaron | Informe spam
Saludos foristas

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

Gracias

espero puedan ayudarme
 

Leer las respuestas

#1 A.Poblacion
08/09/2005 - 18:21 | Informe spam
"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

Preguntas similares