ScriptObjectModel.Events Özelliği
Döndürür IDTSComponentEvents koleksiyon Script görevi içeren paket tanımlı varolan olayların.
Ad Alanı: Microsoft.SqlServer.Dts.Tasks.ScriptTask
Derleme: Microsoft.SqlServer.ScriptTask (Microsoft.SqlServer.ScriptTask içinde.dll)
Sözdizimi
'Bildirim
Public ReadOnly Property Events As EventsObjectWrapper
Get
'Kullanım
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
Özellik Değeri
Tür: Microsoft.SqlServer.Dts.Tasks.ScriptTask.EventsObjectWrapper
IDTSComponentEvents koleksiyon Script görevi içeren paket tanımlı varolan olayların.
Açıklamalar
Use Events özellik Dts nesnesinde hataları, uyarıları ve bilgi iletileri yükseltmek için Script görev kodu.
Örnekler
Aşağıdaki örnek kod bir komut dosyası görev içinde kullanmak için Script görev içinde olay Yükselt gösterilmiştir.Bu örnek, yerel bir Windows API işlev Internet bağlantısı kullanılabilir olup olmadığını belirlemek için kullanır.Bir bağlantı varsa, bir hata yükseltir.Büyük olasılıkla geçici bir modem bağlantısı kullanılıyorsa, örnek bir uyarı yükseltir.Aksi takdirde, Internet bağlantısı algılandı bir bilgilendirme iletisi döndürür.
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