AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS WindowTitleMAtch

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-07-12 12:21:58 +02:00
parent 6d9f41ea09
commit be1f74ceb0
4 changed files with 59 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_Clipboard_Searcher/clsHotkey.vb
View File

@@ -74,10 +74,13 @@ Public Class clsHotkey
End Class
Public Shared Sub Refresh_Profile_Links()
Try
Dim sql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0}", USER_ID)
DT_USER_PROFILES = clsDatabase.Return_Datatable(sql)
Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0}", USER_ID)
DT_USER_PROFILES = clsDatabase.Return_Datatable(oSql)
If DT_USER_PROFILES.Rows.Count = 0 Then
MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)
Else
oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}"
DTPROFILE_REL_WINDOW = clsDatabase.Return_Datatable(oSql)
End If
Catch ex As Exception
MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical)