Выполните пакет SSIS из VB.NET
Привет,
Впервые я пытаюсь выполнить пакет SSIS из VB.Net (VS2013). Мой SQL сервер 2014. Глядя на пример кода, он выглядит прямолинейно, но я продолжаю получать ошибки.
Ошибка, которую я получаю, такова
e Execute method on the task returned error code 0x80131621 (сборка смешанного режима построена против версии' v2.0.50727 ' среды выполнения и не может быть загружена в среду выполнения 4.0 без дополнительной информации о конфигурации.). Метод Execute должен завершиться успешно и указать результат с помощью параметра "out". "
Это меня озадачило.
Что я уже пробовал:
Мой код таков....
Частная суб cmdRun_Click(отправителя как объект, а равно EventArgs) обрабатывает cmdTest2.Нажмите
Dim pkgLocation как строка
Dim pkg как новый пакет
Дим приложение в качестве нового приложения
Дим pkgResults как DTSExecResult
Дим local_DtsError как Microsoft.От SQLServer.ДЦ.Во время выполнения.DtsError = Ничего
Dim sLocationAndDtsx As String = "C:\SSIS_Testing\Package.dtsx"
pkgLocation = sLocationAndDtsx
pkg = app. LoadPackage(pkgLocation, Nothing)
pkgResults = УП.Выполнять()
Дим sError как строку = корпорация Майкрософт.От SQLServer.ДЦ.Во время выполнения.DTSExecResult.Неудача
'MsgBox(pkgResults.Метод toString())
Дим результаты как Microsoft.От SQLServer.ДЦ.Во время выполнения.DTSExecResult = pkg.Выполнять()
'//Проверьте результаты на провал и успех
Если результаты = Майкрософт.От SQLServer.ДЦ.Во время выполнения.DTSExecResult.Тогда Неудача
Dim sErr как строка = ""
Для каждого local_DtsError в pkg.Ошибки
Dim aa As String = local_DtsError.Описание.Метод toString()
д = д + АА
MsgBox(sErr)
Следующий
Конец, Если
Конец Подводной Лодки