Dim firstLine As Int32
Dim lastLine As Int32
Dim numLines As Int32
Dim numDisplayedLines As Int16
Dim displayedQueueText As StringPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
DiplayActivityLog(sender, e, lastLine, numDisplayedLines)
DisplayQueue()
DisplayDisables()
End SubPrivate Sub DiplayActivityLog(ByVal sender As System.Object, ByVal e As System.EventArgs, ByRef lastLine As Int32, ByRef numDisplayedLines As Int16)
Dim sqlQueryConnection As New SqlConnection(MIISSYNC_CONNECTION_STRING)
Dim rowReader As SqlDataReader
Dim countLines As Int16 = 0
Dim dbLastLine As Int32
sqlQueryConnection.Open()
Dim lastentryQuery As New SqlCommand(“select top 1 item from ” & ACTIVITY_LOG & ” order by item desc”, sqlQueryConnection)
rowReader = lastentryQuery.ExecuteReader
While rowReader.Read()
dbLastLine = rowReader.GetInt32(0)
End While
rowReader.Close()
If dbLastLine > lastLine Then
If numDisplayedLines > 0 AndAlso numDisplayedLines < MAX_DISPLAY_LINES Then
Dim sqlQuery As New SqlCommand(“select * from ” & ACTIVITY_LOG & ” where item > ” & lastLine & ” order by item”, sqlQueryConnection)
rowReader = sqlQuery.ExecuteReader
While rowReader.Read()
DisplayLogLine(sender, e, countLines, rowReader)
End While
rowReader.Close()
numDisplayedLines = numDisplayedLines + countLines
Me.RTB_Log.SelectionLength = 0
Me.RTB_Log.SelectionStart = Me.RTB_Log.Text.Length
Me.RTB_Log.ScrollToCaret()
Else
Me.RTB_Log.Clear()
Dim sqlQuery As New SqlCommand(“select * from ” & ACTIVITY_LOG & ” where item > ” & dbLastLine – MIN_DISPLAY_LINES & ” order by item”, sqlQueryConnection)
rowReader = sqlQuery.ExecuteReader
While rowReader.Read()
DisplayLogLine(sender, e, countLines, rowReader)
End While
rowReader.Close()
numDisplayedLines = countLines
Me.RTB_Log.SelectionLength = 0
Me.RTB_Log.SelectionStart = Me.RTB_Log.Text.Length
Me.RTB_Log.ScrollToCaret()
End If
End If
sqlQueryConnection.Close()
End Sub
Private Sub DisplayLogLine(ByVal sender As System.Object, ByVal e As System.EventArgs, ByRef countLines As Int32, ByVal lines As SqlDataReader)
Dim strLogLine As String = lines.GetString(2)
Me.RTB_Log.AppendText((lines.GetString(1) & “, ” & strLogLine) & vbCrLf)
If strLogLine.IndexOf(“warning”) > 0 Then
RTB_Log.Find(strLogLine)
RTB_Log.SelectionColor() = System.Drawing.Color.Orange
ElseIf strLogLine.IndexOf(“error”) > 0 Or strLogLine.IndexOf(“failed”) > 0 Or strLogLine.IndexOf(“stopped”) > 0 Then
RTB_Log.Find(strLogLine)
RTB_Log.SelectionColor() = System.Drawing.Color.Red
Else
RTB_Log.Find(strLogLine)
RTB_Log.SelectionColor() = System.Drawing.Color.Black
End If
lastLine = lines.GetInt32(0)
countLines = countLines + 1
End Sub
Private Sub DisplayQueue()
Dim sqlQueryConnection As New SqlConnection(MIISSYNC_CONNECTION_STRING)
Dim rowReader As SqlDataReader
Dim newQueueText As String
sqlQueryConnection.Open()
Dim queueQuery As New SqlCommand(“select * from ” & QUEUE & ” order by priority”, sqlQueryConnection)
rowReader = queueQuery.ExecuteReader
While rowReader.Read()
newQueueText = newQueueText & rowReader.GetString(0) & “, ” & rowReader.GetString(1) & vbCrLf
End While
If newQueueText <> displayedQueueText Then
Me.Txt_Queue.Clear()
Me.Txt_Queue.AppendText(newQueueText)
displayedQueueText = newQueueText
End If
rowReader.Close()
sq lQueryConnection.Close()
End Sub
Private Sub DisplayDisables()
Dim sqlQueryConnection As New SqlConnection(MIISSYNC_CONNECTION_STRING)
Dim rowReader As SqlDataReader
sqlQueryConnection.Open()
Dim sqlQuery As New SqlCommand(“select uid,status, archive_status from ” & DISABLES & ” where archive_status <> ‘done’”, sqlQueryConnection)
rowReader = sqlQuery.ExecuteReader
Me.Txt_Disables.Clear()
While rowReader.Read()
Me.Txt_Disables.AppendText(rowReader.GetString(0) & “, ” & rowReader.GetString(1) & “, ” & rowReader.GetString(2) & vbCrLf)
End While
rowReader.Close()
sqlQueryConnection.Close()
End Sub
