ติดต่อ FingerScan CM800 เพื่อ insert DB ได้เร็วขึ้น

        'Declare Validable
        Dim iMachineNumber As Integer
        Dim employeeID As Integer
        Dim idwVerifyMode As Integer
        Dim idwInOutMode As Integer
        Dim idwYear As Integer
        Dim idwMonth As Integer
        Dim idwDay As Integer
        Dim idwHour As Integer
        Dim idwMinute As Integer
        Dim idwSecond As Integer
        Dim idwWorkCode As Integer
        Dim idwReserved As Integer

        Dim scanTime As New Date()
        'scanTime.ToString("yyyy-MM-dd", DateTimeFormatEng)

        Dim machineTimeInOut As New MP_TIME_INOUT()
        Dim machine As New MP_MACHINE()

        Dim machineID As Integer = 0
        Dim siteID As Integer = 0

        'Dim condition

        Dim connection As New ConnectDB(config.ConnectionString())
        connection.Open()

        bIsConnected = axCZKEM1.Connect_Net(ip, port)
        If bIsConnected Then

            axCZKEM1.EnableDevice(iMachineNumber, False) 'disable the device
            If axCZKEM1.ReadGeneralLogData(iMachineNumber) Then

                While axCZKEM1.GetGeneralExtLogData(iMachineNumber, employeeID, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwSecond, idwWorkCode, idwReserved)

                    scanTime = getFormatScanTime(idwYear.ToString(), idwMonth.ToString(), idwDay.ToString(), idwHour, idwMinute, idwSecond)

                    'If endDateTime = #12:00:00 AM# Then
                    '    condition = (startDateTime <= scanTime)
                    'Else
                    '    condition = (startDateTime <= scanTime) And (endDateTime >= scanTime)
                    'End If

                    'If condition Then
                    machineTimeInOut.EMP_ID = employeeID
                    machineTimeInOut.SCAN_TIME = scanTime
                    machineTimeInOut.SCAN_TYPE = idwInOutMode
                    machineTimeInOut.MACHINE_ID = machineID
                    machineTimeInOut.SITE_ID = siteID
                    machineTimeInOut.CREATED_DATE = DateTime.Now()
                    machineTimeInOut.UPDATED_DATE = DateTime.Now()
                    machineTimeInOut.IS_ACTIVE = config.ACTIVE
                    machineTimeInOut.CREATED_BY = config.getUserLog()
                    machineTimeInOut.UPDATED_BY = config.getUserLog()

                    Try
                        machineTimeInOut.ExecuteInsert(connection)
                        'Dim updateCommand As New StringBuilder()
                        'updateCommand.AppendLine("UPDATE MP_MACHINE ")
                        'updateCommand.AppendLine("SET UPDATED_DATE_SYNC = @UPDATED_DATE_SYNC")

                        'Dim paramArrayList As New ParamArrayList()
                        'paramArrayList.AddWithValue("@UPDATED_DATE_SYNC", scanTime)
                        'connection.ExcuteQuery(updateCommand.ToString(), paramArrayList)
                    Catch ex As Exception

                    End Try

                    'End If

                End While

            End If
            axCZKEM1.EnableDevice(iMachineNumber, True)
        End If
        connection.Dispose()