第十一篇 Integration Services：日志记录

本篇文章是Integration Services系列的第十一篇，详细内容请参考原文。

    Public Sub Main()
        Dim sTaskName As String = Dts.Variables("TaskName").Value.ToString
        MsgBox(sTaskName & " completed.")
        Dts.TaskResult = ScriptResults.Success
    End Sub

代码11.1
用代码11.2编辑代码：

    Public Sub Main()
        Dim sTaskName As String = Dts.Variables("TaskName").Value.ToString
        Dim sMsg As String = sTaskName & " completed."

        Dts.Events.FireInformation(101, sTaskName, sMsg, "", 0, True)
        MsgBox(sMsg)

        Dts.TaskResult = ScriptResults.Success
    End Sub

代码11.2
首先，我们添加一个名为sMsg字符串类型的变量，并将它的值分配为sTaskName & " completed.然后，我们添加代码手动引发一个Information事件：Dts.Events.FireInformation(101,sTaskName,sMsg,"",0,True)。Dts.Events对象能够引发很多不同类型的事件，包括我们当前日志配置在监听的Error和Information事件。FireInformation有六个参数：informationCode (Integer),subComponent(String),description(String),helpFile(String),helpContext (Integer),and fireAgain(Boolean).InformationCode用于分组信息。我使用子组件来识别/区分任务事件。Description是我们想要记录的信息。HelpFile和helpContext用于链接到帮助主题。我从来不配置这些主题，因此我也不知道它们如何/是否工作。目前我所知道的是，FireAgain已被弃用——我把它设置为默认值True.脚本中的最后一处修改是用sMsg变量代替MsgBox语句。
关闭ssisscript编辑器，点击确定按钮关闭脚本任务编辑器。在BIDS调试器下执行Precedence.dtsx包，Script Task 2成功，Script Task 4失败。接受Script Task 3的完成消息框。
打开日志文件检查最新的消息记录，如图11.31所示：

图11.31
注意OnInformation事件也会冒泡，从Script Task 3到序列容器1，然后到Precedence.dtsx包。Script Task 3的OnInformation事件日志条目的完整文本如下：
OnInformation,WORK,WORK\Administrator,Script Task 3,,,2015/10/16 12:20:20,2015/10/16 12:20:20,101,0x,Script Task 3 completed.
Raising Custom Events On-Demand, Part 2
如果我们检查日志文件中的所有Error消息，我们看到类似下面的消息：
OnError,WORK,WORK\Administrator,Script Task 4,{223ec2c7-6a62-4faf-8069-48202668655c},,2015/10/16 12:20:18,2015/10/16 12:20:18,-1001,0x,Script Task 4 failed!
和Information事件相似，我们可以增加自定义Error事件。为了演示，打开Script Task 4的编辑器并点击编辑脚本按钮。我们看到这个操作已经在Script Task 4的Public Sub Main()代码中，如代码11.3所示：

    Public Sub Main()

        Dim sTaskName As String = Dts.Variables("TaskName").Value.ToString

        Dim iResponse As Integer
        iResponse = MsgBox("Succeed " & sTaskName & "?", _
                           MsgBoxStyle.YesNo + MsgBoxStyle.Question, _
                           sTaskName & " Success Question")
        If iResponse = vbYes Then
            Dts.TaskResult = ScriptResults.Success
        Else
            ‘Dts.TaskResult = ScriptResults.Failure
            Dts.Events.FireError(-1001, "Script Task 4", _
                                 "Script Task 4 failed!", "", 0)
        End If

    End Sub

代码11.3
日志文件中的OnError消息就是由代码11.3中的Dts.Events.FireError方法产生的。
总结
在这一篇，我们配置了SSIS内置日志记录，演示了简单和高级日志配置，保存并查看日志配置，生成自定义日志消息。