Hi Iam facing a problem with DTS package. and i was trying to execute the code which u gave in this site
type casting error is coming at this line
oCustomTask = oTask.CustomTask
full code is below
Dim oPackage As New DTS.Package2()
Dim oConnection As DTS.Connection
Dim oStep As DTS.Step2
Dim oTask As DTS.Task
Dim oCustomTask As DTS.BulkInsertTask
Try
oConnection = oPackage.Connections.New(“SQLOLEDB”)
oStep = oPackage.Steps.New
oTask = oPackage.Tasks.New(“DTSBulkInsertTask”)
oCustomTask = oTask.CustomTask
With oConnection
oConnection.Catalog = “pubs”
oConnection.DataSource = “(local)”
oConnection.ID = 1
oConnection.UseTrustedConnection = True
oConnection.UserID = “Tony Patton”
oConnection.Password = “Builder”
End With
oPackage.Connections.Add(oConnection)
oConnection = Nothing
With oStep
.Name = “GenericPkgStep”
.ExecuteInMainThread = True
End With
With oCustomTask
.Name = “GenericPkgTask”
.DataFile = “c:\dts\authors.txt”
.ConnectionID = 1
.DestinationTableName = “pubs..authors”
.FieldTerminator = “|”
.RowTerminator = “\r\n”
End With
oStep.TaskName = oCustomTask.Name
With oPackage
.Steps.Add(oStep)
.Tasks.Add(oTask)
.FailOnError = True
End With
oPackage.Execute()
Catch ex As Exception
MsgBox(“Error: ” & CStr(Err.Number) & vbCrLf _
& Err.Description, vbExclamation, oPackage.Name)
Finally
oConnection = Nothing
oCustomTask = Nothing
oTask = Nothing
oStep = Nothing
If Not (oPackage Is Nothing) Then
oPackage.UnInitialize()
End If
End Try
PLZ help me out of this, iam struggling a lot with this error….plz give me suggestion
Regards
hari