diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 18a6a47..a794a1e 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -1299,11 +1299,11 @@ Public Class frmIndex Dim Insert_String As String Try - Dim tempCur_WF = CURRENT_WORKFILE.Replace("'", "''") - Dim tempCur_New_FN = CURRENT_NEWFILENAME.Replace("'", "''") + Dim oCurrentWorkfile = CURRENT_WORKFILE.Replace("'", "''") + Dim oCurrentNewFilename = CURRENT_NEWFILENAME.Replace("'", "''") 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 CURRENT_MESSAGEID <> "" Then Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"