Discussion forums for open issues and questions concerning database tools, data access components and developer tools from Devart
https://forums.devart.com/
Code: Select all
Public Class MySQLState
Inherits CoreLab.MySql.MySqlMonitor
#Region "Windows Form"[...]
Public Enum State
Disconected = 0
Connected = 1
Connecting = 2
Disconecting = 3
Executing = 4
Selecting = 5
Updating = 6
Deleting = 7
Inserting = 8
Dumping = 9
Fetching = 10
Uploading = 11
Downloading = 12
FlushingPrivileges = 13
FlushingTable = 14
Ready = 15
Broken = 16
CreatingTable = 17
DropingTable = 18
Undefined = 19
End Enum
Public Event StateChanged(ByVal sender As Object, ByVal e As MySQLState.State)
Private mState As State = State.Disconected
Public Property CurrentState() As State
Get
Return mState
End Get
Set(ByVal Value As State)
If Value = mState Then Return
If Not DesignMode Then '// If not in design mode the propertie can be change
mState = Value
RaiseEvent StateChanged(Me, Value)
End If
End Set
End Property
Private Function FindText(ByVal searchText As String, ByVal Text As String) As Boolean
Dim TmpTextBox As New RichTextBox
TmpTextBox.Text = Text
Dim indexToText As Integer = TmpTextBox.Find(searchText, 0, Len(TmpTextBox.Text), RichTextBoxFinds.MatchCase)
If indexToText >= 0 Then
TmpTextBox.Dispose()
Return True
Else
TmpTextBox.Dispose()
Return False
End If
End Function
Private Sub MySQLState_TraceEvent(ByVal sender As Object, ByVal e As CoreLab.Common.MonitorEventArgs) Handles MyBase.TraceEvent
Select Case e.TracePoint
Case CoreLab.Common.MonitorTracePoint.BeforeEvent
If FindText("INSERT INTO", UCase(e.Description)) = True Then
If Not CurrentState = State.Inserting Then
CurrentState = State.Inserting
End If
ElseIf FindText("DELETE", UCase(e.Description)) = True Then
If Not CurrentState = State.Deleting Then
CurrentState = State.Deleting
End If
ElseIf FindText("UPDATE", UCase(e.Description)) = True Then
If Not CurrentState = State.Updating Then
CurrentState = State.Updating
End If
ElseIf FindText(UCase("Disconnect"), UCase(e.Description)) = True Then
If Not CurrentState = State.Disconected Then
CurrentState = State.Disconected
End If
ElseIf FindText(UCase("Can't connect to MySQL server"), UCase(e.Description)) = True Then
If Not CurrentState = State.Disconected Then
CurrentState = State.Disconected
End If
ElseIf FindText(UCase("ConnectionString"), UCase(e.Description)) = True Then
If Not CurrentState = State.Connecting Then
CurrentState = State.Connecting
End If
ElseIf FindText("SELECT", UCase(e.Description)) = True Then
If Not CurrentState = State.Selecting Then
CurrentState = State.Selecting
End If
ElseIf FindText("CREATE TABLE", UCase(e.Description)) = True Then
If Not CurrentState = State.CreatingTable Then
CurrentState = State.CreatingTable
End If
ElseIf FindText("DROP TABLE", UCase(e.Description)) = True Then
If Not CurrentState = State.DropingTable Then
CurrentState = State.DropingTable
End If
Else
If Not CurrentState = State.Undefined Then
CurrentState = State.Undefined
End If
End If
Case CoreLab.Common.MonitorTracePoint.AfterEvent
' Nothing at this time
End Select
End Sub
Protected Overrides ReadOnly Property ProductName() As String
Get
Return "Hostonet Advanced MySQL Monitoring"
End Get
End Property
End Class