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

clean up variables

Browse Source
This commit is contained in:
Jonathan Jenne 2021-05-10 11:35:23 +02:00
parent 6e29c9f04b
commit 763e45ef33
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Global_Indexer/frmIndex.vb
View File

@ -1299,11 +1299,11 @@ Public Class frmIndex
Dim Insert_String As String Dim Insert_String As String
Try Try
Dim tempCur_WF = CURRENT_WORKFILE.Replace("'", "''") Dim oCurrentWorkfile = CURRENT_WORKFILE.Replace("'", "''")
Dim tempCur_New_FN = CURRENT_NEWFILENAME.Replace("'", "''") Dim oCurrentNewFilename = CURRENT_NEWFILENAME.Replace("'", "''")
Dim oUser As String = $"{Environment.UserDomainName}\{Environment.UserName}" Dim oUser As String = $"{Environment.UserDomainName}\{Environment.UserName}"
Insert_String = sql_history_INSERT_INTO & $",ADDED_WHO, ADDED_WHERE, FILE_HASH) VALUES ('{tempCur_WF}','{tempCur_New_FN}'{sql_history_Index_Values},'{oUser}','{Environment.MachineName}','{CURRENT_WORKFILE_HASH}')" Insert_String = sql_history_INSERT_INTO & $",ADDED_WHO, ADDED_WHERE, FILE_HASH) VALUES ('{oCurrentWorkfile}','{oCurrentNewFilename}'{sql_history_Index_Values},'{oUser}','{Environment.MachineName}','{CURRENT_WORKFILE_HASH}')"
If ClassDatabase.Execute_non_Query(Insert_String) = True Then If ClassDatabase.Execute_non_Query(Insert_String) = True Then
If CURRENT_MESSAGEID <> "" Then If CURRENT_MESSAGEID <> "" Then
Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY" Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"