VB Code:
Private Function GetUnread() As String(,)
Dim Conn As New DBConnection
Dim qry As String(,) = Conn.ReturnQuery("SELECT * FROM CHAT WHERE Status='0'")
Conn.ExecuteQuery("UPDATE Chat Set Status='1' WHERE Status='0'")
Return qry
End Function
VB Code:
Private Sub CheckMsg()
Dim Conn As New DBConnection, EmpName As String(,)
Dim qry2 As String(,) = Conn.ReturnQuery("SELECT EmployeeID FROM Chat WHERE STATUS='0'")
Dim qry As String(,) = GetUnread()
Dim x As Integer, TmpID As String
Dim txtCurrent As String = txtChat.Text
Dim AddLine As String
If Not IsNothing(qry2(0, 0)) Then
Dim y As Integer = ReturnArrayLength(qry2.Length)
For x = 1 To y
TmpID = qry(0, x)
EmpName = Conn.ReturnQuery("SELECT EmployeeName FROM Employee WHERE EmployeeID='" & TmpID & "'")
AddLine = Trim(EmpName(0, 1)) & " " & Trim(qry(1, x)) & ": " & Trim(qry(2, x))
txtChat.Text = txtChat.Text & vbCrLf & AddLine
Next
End If
End Sub