Dim app As Application = New Application() Dim package As Package = Nothing Dim IsSucceed As Boolean = False '//Load the SSIS Package which will be executed package = app.LoadPackage("D:\UploadFinacle\New_Updt_Cust_Accnt_Upload.dtsx", Nothing) '//P/ass the varibles into SSIS Package package.Variables("User::BrCode").Value = branchcode package.PackagePassword = "1234" '//Execute the SSIS Package and store the Execution Result Dim results As Microsoft.SqlServer.Dts.Runtime.DTSExecResult = package.Execute() '//Check the results for Failure and Success If results = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure Then Dim err As String = "" Dim local_DtsError As Microsoft.SqlServer.Dts.Runtime.DtsError For Each local_DtsError In package.Errors Dim aa As String = local_DtsError.Description.ToString() err = err + aa Next End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)