ScriptObjectModel.Events 属性

定义

命名空间:

Microsoft.SqlServer.Dts.Tasks.ScriptTask

程序集:

Microsoft.SqlServer.ScriptTask.dll

返回在包含脚本任务的包中定义的现有事件的 IDTSComponentEvents 集合。

public:
 property Microsoft::SqlServer::Dts::Tasks::ScriptTask::EventsObjectWrapper ^ Events { Microsoft::SqlServer::Dts::Tasks::ScriptTask::EventsObjectWrapper ^ get(); };

public Microsoft.SqlServer.Dts.Tasks.ScriptTask.EventsObjectWrapper Events { get; }

member this.Events : Microsoft.SqlServer.Dts.Tasks.ScriptTask.EventsObjectWrapper

Public ReadOnly Property Events As EventsObjectWrapper

属性值

EventsObjectWrapper

在包含脚本任务的包中定义的现有事件的 IDTSComponentEvents 集合。

示例

用于脚本任务内的代码示例演示如何从脚本任务中引发事件。 该示例使用本机 Windows API 函数确定 Internet 连接是否可用。 如果没有可用的连接，则引发错误。 如果使用的调制解调器连接可能不稳定，则该示例将引发警告。 否则，返回已检测到 Internet 连接的信息性消息。

Private Declare Function InternetGetConnectedState Lib "wininet" _  
    (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long  

Private Enum ConnectedStates  
    LAN = &H2  
    Modem = &H1  
    Proxy = &H4  
    Offline = &H20  
    Configured = &H40  
    RasInstalled = &H10  
End Enum  

Public Sub Main()  

    Dim dwFlags As Long  
    Dim connectedState As Long  

    connectedState = InternetGetConnectedState(dwFlags, 0)  

    If connectedState <> 0 Then  
        If (dwFlags And ConnectedStates.Modem) = ConnectedStates.Modem Then  
            Dts.Events.FireWarning(0, "Script Task Example", _  
                "Volatile Internet connection detected.", String.Empty, 0)  
        Else  
            Dts.Events.FireInformation(0, "Script Task Example", _  
                "Internet connection detected.", String.Empty, 0, False)  
        End If  
    Else  
        ' If not connected to the Internet, raise an error.  
        Dts.Events.FireError(0, "Script Task Example", _  
            "Internet connection not available.", String.Empty, 0)  
    End If  

    Dts.TaskResult = ScriptResults.Success  

End Sub  

注解

Events使用脚本任务代码中对象的属性Dts引发错误、警告和信息消息。