1

我正在使用带有连接到脚本任务的执行 SQL 任务的 SSIS 包。来自执行 SQL 任务的值存储在一个变量中，在脚本任务中，我使用以下代码提供 XML 文件。

Public Sub Main()
    If My.Computer.FileSystem.FileExists("C:\SAMPLE.xml") Then
        Dts.TaskResult = ScriptResults.Failure
    Else
        My.Computer.FileSystem.WriteAllText("C:\SAMPLE.xml", Dts.Variables(0).Value.ToString, False)
        Dts.TaskResult = ScriptResults.Success
        ''
    End If
End Sub

我不想硬编码 XML 的路径。因此，我创建了两个新变量 FileName 和 FilePath，以包为范围。如何编辑我的 VB.Net 代码以实际使用这两个变量。我试过这个但没有奏效：

    Sub Main()
    If My.Computer.FileSystem.FileExists(Dts.Variables("FileDest").Value.ToString())        Else
        My.Computer.FileSystem.WriteAllText(Dts.Variables("FileDest").Value.ToString(), Dts.Variables(0).Value.ToString, False)Dts.TaskResult = ScriptResults.Success
   ''
    End If
End Sub

理想情况下，我想使用两个变量，一个用于名称，一个用于路径，但是当我尝试使用结合了两者的单个变量时，它不起作用。

4

1 回答 1

4

我怀疑您的部分问题是在Variables集合中使用数字索引。添加FileDest变量后，无法保证用于存储执行 SQL 任务结果的任何变量仍然是集合中的第 0 个变量。

假设带有 Execute SQL Task 结果的变量是命名XmlQueryResults的，下面应该可以解决问题：

Public Sub Main()
    Dim filePath As String = Dts.Variables("FileDest").Value
    Dim xmlToWrite As String = Dts.Variables("XmlQueryResults").Value
    If My.Computer.FileSystem.FileExists(filePath) Then
        Dts.TaskResult = ScriptResults.Failure
    Else
        My.Computer.FileSystem.WriteAllText(filePath, xmlToWrite, False)
        Dts.TaskResult = ScriptResults.Success
    End If
End Sub

（不要忘记将FileDest变量添加到脚本任务编辑器脚本选项卡中的 ReadOnlyVariables。）

于 2012-11-15T23:41:54.123 回答