{"id":58,"date":"2007-07-24T00:45:16","date_gmt":"2007-07-24T00:45:16","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?page_id=58"},"modified":"2007-07-24T23:16:50","modified_gmt":"2007-07-24T23:16:50","slug":"miisappvb-displayactivitylog-displayqueue-displaydisables","status":"publish","type":"page","link":"https:\/\/www.wapshere.com\/missmiis\/code-snippets\/miisappvb-displayactivitylog-displayqueue-displaydisables","title":{"rendered":"MiisApp.vb: DisplayActivityLog, DisplayQueue, DisplayDisables"},"content":{"rendered":"<p><font size=\"1\"><br \/>\nDim firstLine As Int32<br \/>\nDim lastLine As Int32<br \/>\nDim numLines As Int32<br \/>\nDim numDisplayedLines As Int16<br \/>\nDim displayedQueueText As String<font size=\"1\">Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br \/>\nDiplayActivityLog(sender, e, lastLine, numDisplayedLines)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 DisplayQueue()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 DisplayDisables()<br \/>\nEnd Sub<\/font><font size=\"1\">Private Sub DiplayActivityLog(ByVal sender As System.Object, ByVal e As System.EventArgs, ByRef lastLine As Int32, ByRef numDisplayedLines As Int16)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim sqlQueryConnection As New SqlConnection(MIISSYNC_CONNECTION_STRING)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim rowReader As SqlDataReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim countLines As Int16 = 0<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim dbLastLine As Int32<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlQueryConnection.Open()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim lastentryQuery As New SqlCommand(&#8220;select top 1 item from &#8221; &amp; ACTIVITY_LOG &amp; &#8221; order by item desc&#8221;, sqlQueryConnection)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader = lastentryQuery.ExecuteReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 While rowReader.Read()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 dbLastLine = rowReader.GetInt32(0)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End While<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader.Close()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If dbLastLine &gt; lastLine Then<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If numDisplayedLines &gt; 0 AndAlso numDisplayedLines &lt; MAX_DISPLAY_LINES Then<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim sqlQuery As New SqlCommand(&#8220;select * from &#8221; &amp; ACTIVITY_LOG &amp; &#8221; where item &gt; &#8221; &amp; lastLine &amp; &#8221; order by item&#8221;, sqlQueryConnection)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader = sqlQuery.ExecuteReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 While rowReader.Read()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 DisplayLogLine(sender, e, countLines, rowReader)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End While<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader.Close()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 numDisplayedLines = numDisplayedLines + countLines<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.SelectionLength = 0<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.SelectionStart = Me.RTB_Log.Text.Length<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.ScrollToCaret()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0Else<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.Clear()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim sqlQuery As New SqlCommand(&#8220;select * from &#8221; &amp; ACTIVITY_LOG &amp; &#8221; where item &gt; &#8221; &amp; dbLastLine &#8211; MIN_DISPLAY_LINES &amp; &#8221; order by item&#8221;, sqlQueryConnection)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader = sqlQuery.ExecuteReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 While rowReader.Read()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 DisplayLogLine(sender, e, countLines, rowReader)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End While<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader.Close()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 numDisplayedLines = countLines<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.SelectionLength = 0<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.SelectionStart = Me.RTB_Log.Text.Length<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.ScrollToCaret()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0End If<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0End If<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0sqlQueryConnection.Close()<br \/>\nEnd Sub<\/font><font size=\"1\"> <\/font><\/p>\n<p><\/font><font size=\"1\">Private Sub DisplayLogLine(ByVal sender As System.Object, ByVal e As System.EventArgs, ByRef countLines As Int32, ByVal lines As SqlDataReader)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim strLogLine As String = lines.GetString(2)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.RTB_Log.AppendText((lines.GetString(1) &amp; &#8220;, &#8221; &amp; strLogLine) &amp; vbCrLf)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If strLogLine.IndexOf(&#8220;warning&#8221;) &gt; 0 Then<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RTB_Log.Find(strLogLine)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RTB_Log.SelectionColor() = System.Drawing.Color.Orange<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 ElseIf strLogLine.IndexOf(&#8220;error&#8221;) &gt; 0 Or strLogLine.IndexOf(&#8220;failed&#8221;) &gt; 0 Or strLogLine.IndexOf(&#8220;stopped&#8221;) &gt; 0 Then<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RTB_Log.Find(strLogLine)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RTB_Log.SelectionColor() = System.Drawing.Color.Red<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Else<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RTB_Log.Find(strLogLine)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RTB_Log.SelectionColor() = System.Drawing.Color.Black<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End If<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 lastLine = lines.GetInt32(0)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 countLines = countLines + 1<br \/>\nEnd Sub<\/font><font size=\"1\"> <\/font><font size=\"1\">\u00c2\u00a0\u00c2\u00a0<\/p>\n<p>Private Sub DisplayQueue()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim sqlQueryConnection As New SqlConnection(MIISSYNC_CONNECTION_STRING)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim rowReader As SqlDataReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim newQueueText As String<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlQueryConnection.Open()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim queueQuery As New SqlCommand(&#8220;select * from &#8221; &amp; QUEUE &amp; &#8221; order by priority&#8221;, sqlQueryConnection)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader = queueQuery.ExecuteReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 While rowReader.Read()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 newQueueText = newQueueText &amp; rowReader.GetString(0) &amp; &#8220;, &#8221; &amp; rowReader.GetString(1) &amp; vbCrLf<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End While<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If newQueueText &lt;&gt; displayedQueueText Then<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.Txt_Queue.Clear()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.Txt_Queue.AppendText(newQueueText)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 displayedQueueText = newQueueText<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End If<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader.Close()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sq lQueryConnection.Close()<br \/>\nEnd Sub<\/p>\n<p>\u00c2\u00a0\u00c2\u00a0<\/p>\n<p>Private Sub DisplayDisables()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim sqlQueryConnection As New SqlConnection(MIISSYNC_CONNECTION_STRING)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim rowReader As SqlDataReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlQueryConnection.Open()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim sqlQuery As New SqlCommand(&#8220;select uid,status, archive_status from &#8221; &amp; DISABLES &amp; &#8221; where archive_status &lt;&gt; &#8216;done'&#8221;,\u00c2\u00a0sqlQueryConnection)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader = sqlQuery.ExecuteReader<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.Txt_Disables.Clear()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 While rowReader.Read()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Me.Txt_Disables.AppendText(rowReader.GetString(0) &amp; &#8220;, &#8221; &amp; rowReader.GetString(1) &amp; &#8220;, &#8221; &amp; rowReader.GetString(2) &amp; vbCrLf)<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End While<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowReader.Close()<br \/>\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlQueryConnection.Close()<br \/>\nEnd Sub<\/p>\n<p><\/font><\/p>\n","protected":false},"excerpt":{"rendered":"<p>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) \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 DisplayQueue() \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 DisplayDisables() End SubPrivate Sub DiplayActivityLog(ByVal sender As System.Object, ByVal e As System.EventArgs, ByRef lastLine As Int32, ByRef&#8230;<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":30,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-58","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-W","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/58","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=58"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/58\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/30"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=58"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}