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

Use Database from Monorepo, Add initial ODBC Support

Browse Source
This commit is contained in:
Jonathan Jenne
2019-08-06 15:41:02 +02:00
parent 6e6a483602
commit 43d3ba5ef2
15 changed files with 237 additions and 364 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb
View File

@@ -40,11 +40,11 @@ Public Class ctrlApplicationAssignment
If oProcessName <> "" Then
Dim oSQL = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", ProfileId, oProcessName, Environment.UserName)
If clsDatabase.Execute_non_Query(oSQL) = False Then
If Database.ExecuteNonQuery(oSQL) = False Then
Return False
Else
oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$','{4}')", ProfileId, oProcessName, oProcessName, oWindowTitle, Environment.UserName)
If clsDatabase.Execute_non_Query(oSQL) = False Then
If Database.ExecuteNonQuery(oSQL) = False Then
Return False
End If
End If
@@ -63,7 +63,7 @@ Public Class ctrlApplicationAssignment
Try
Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId)
If clsDatabase.Execute_non_Query(oSQL) Then
If Database.ExecuteNonQuery(oSQL) Then
Process_Load(Current_ProfileId)
Return True
End If
@@ -110,7 +110,7 @@ Public Class ctrlApplicationAssignment
If oWindowTitle <> "" Then
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$','{4}')", ProfileId, oProcessName, oProcessName, oWindowTitle, Environment.UserName)
If clsDatabase.Execute_non_Query(insert) = False Then
If Database.ExecuteNonQuery(insert) = False Then
Return False
End If
End If
@@ -128,7 +128,7 @@ Public Class ctrlApplicationAssignment
Try
Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID"))
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_WINDOW WHERE GUID = {0}", oGuid)
If clsDatabase.Execute_non_Query(oSQL) Then
If Database.ExecuteNonQuery(oSQL) Then
Process_Load(Current_ProfileId)
Return True
End If