_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
FrontPage › SSIS-讌讓手蠍

.. 蠍磯Μ.. Try ~ Catch 朱襷 5覦磯 襴..
' Microsoft SQL Server Integration Services user script component
' This is your new script component in Microsoft Visual Basic .NET
' ScriptMain is the entrypoint class for script components

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper

Public Class ScriptMain
    Inherits UserComponent

    Public Overrides Sub 0_ProcessInputRow(ByVal Row As 0Buffer)
        '
        ' Add your code here
        '
        'Try
        Dim binIP(3) As Byte

        If Row.LoginDT = Row.LogoutDT Then

            If Row.IP_IsNull = True Then
                With Out01Buffer
                    .AddRow()
                    .AccountKey = Row.AccountKey 'CType(Asc(Left(Row.CN, 1)).ToString() & Asc(Right(Left(Row.CN, 2), 1)).ToString() & Right(Row.CN, 10), Int64)
                    .LoginTime = Row.LoginTime
                    .LogoutTime = Row.LogoutTime
                    .ServiceKey = Row.ServiceKey
                    .DateKey = Row.LoginDT
                End With
            Else
                With Out01Buffer
                    .AddRow()
                    .AccountKey = Row.AccountKey 'CType(Asc(Left(Row.CN, 1)).ToString() & Asc(Right(Left(Row.CN, 2), 1)).ToString() & Right(Row.CN, 10), Int64)
                    .LoginTime = Row.LoginTime
                    .LogoutTime = Row.LogoutTime
                    .ServiceKey = Row.ServiceKey
                    .DateKey = Row.LoginDT
                    .IP = Row.IP
                End With
            End If
            

        Else
            ' 讌襯 24 蠍一朱 讓手 k.
            ' 24 危

            Dim LogoutTime As Date
            Dim LoginTime As Date
            Dim AddDate As Date
            Dim i As Integer

            i = 0
            While (i <= Row.DayDiff)

                If i = 0 Then
                    AddDate = Row.LoginTime
                    LoginTime = AddDate
                    LogoutTime = New Date(AddDate.Year, AddDate.Month, AddDate.Day, 23, 59, 59, 999)
                ElseIf i = Row.DayDiff Then
                    AddDate = AddDate.AddDays(1)
                    LoginTime = New Date(AddDate.Year, AddDate.Month, AddDate.Day, 0, 0, 0, 0)
                    LogoutTime = Row.LogoutTime
                Else
                    AddDate = AddDate.AddDays(1)
                    LoginTime = New Date(AddDate.Year, AddDate.Month, AddDate.Day, 0, 0, 0, 0)
                    LogoutTime = New Date(AddDate.Year, AddDate.Month, AddDate.Day, 23, 59, 59, 999)
                End If

                If Row.IP_IsNull = True Then
                    With Out01Buffer
                        .AddRow()
                        .AccountKey = Row.AccountKey 'CType(Asc(Left(Row.CN, 1)).ToString() & Asc(Right(Left(Row.CN, 2), 1)).ToString() & Right(Row.CN, 10), Int64)
                        .LoginTime = LoginTime
                        .LogoutTime = LogoutTime
                        .ServiceKey = Row.ServiceKey
                        .DateKey = CInt(LoginTime.Date.ToString().Replace("-", "").Substring(0, 8))
                    End With
                Else
                    With Out01Buffer
                        .AddRow()
                        .AccountKey = Row.AccountKey 'CType(Asc(Left(Row.CN, 1)).ToString() & Asc(Right(Left(Row.CN, 2), 1)).ToString() & Right(Row.CN, 10), Int64)
                        .LoginTime = LoginTime
                        .LogoutTime = LogoutTime
                        .ServiceKey = Row.ServiceKey
                        .DateKey = CInt(LoginTime.Date.ToString().Replace("-", "").Substring(0, 8))
                        .IP = Row.IP
                    End With
                End If
                
                i = i + 1
            End While
        End If
        'Catch ex As Exception
        '    Dim err As Integer

        'End Try
    End Sub
End Class
蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2018-04-13 23:12:53

螻 覦覯 麹. 覦螻 豎 螳 蟆 れ 螳螳 覈 襯 襷り鍵 覓語企. (譟 貊磯ゴ)