Udostępnij za pośrednictwem

  • Artykuł

Właściwość ScriptObjectModel.Events

Zwraca IDTSComponentEvents kolekcja istniejące zdarzenia zdefiniowane w pakiet zawierający zadanie skryptu.

Przestrzeń nazw:  Microsoft.SqlServer.Dts.Tasks.ScriptTask
Zestaw:  Microsoft.SqlServer.ScriptTask (w Microsoft.SqlServer.ScriptTask.dll)

Składnia

'Deklaracja
Public ReadOnly Property Events As EventsObjectWrapper
    Get
'Użycie
Dim instance As ScriptObjectModel
Dim value As EventsObjectWrapper

value = instance.Events

public EventsObjectWrapper Events { get; }

public:
property EventsObjectWrapper^ Events {
    EventsObjectWrapper^ get ();
}

member Events : EventsObjectWrapper

function get Events () : EventsObjectWrapper

Wartość właściwości

Typ: Microsoft.SqlServer.Dts.Tasks.ScriptTask.EventsObjectWrapper
IDTSComponentEvents kolekcja istniejące zdarzenia zdefiniowane w pakiet zawierający zadanie skryptu.

Uwagi

Użyj Events Właściwość Dts obiektów w kodzie zadania skryptu podnieść błędów, ostrzeżeń i komunikatów informacyjnych.

Przykłady

Poniższy przykładowy kod do użycia wewnątrz zadania skryptu ilustruje sposób podnieść zdarzenia w ramach zadania skryptu.W przykładzie użyto macierzystych funkcja interfejsu API systemu Windows, czy dostępne jest połączenie z Internetem.Jeśli połączenie nie jest dostępny, zgłasza błąd.Jeśli połączenie modemowe potencjalnie nietrwała jest używany, przykład podnosi ostrzeżenie.W przeciwnym wypadku zwraca komunikat informacyjny wykryto połączenia internetowego.

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