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 函數來判斷是否可使用網際網路連接。 如果無任何可用的連接，則會引發錯誤。 如果正在使用可能不穩定的數據機連接，此範例會引發警告。 否則，它會傳回參考用訊息，表示已偵測到網際網路連接。

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 以引發錯誤、警告及資訊訊息。

適用於