This commit is contained in:
2022-08-30 15:08:07 +02:00
parent 3795c8fd74
commit f01ffe312d
11 changed files with 213 additions and 129 deletions

View File

@@ -77,8 +77,12 @@ Public Class frmGlobalSearch
End If
End Sub
Sub PREPARE_FT_SQL()
Dim oFTSearchtext = txtSearch.Text
If oFTSearchtext.Contains(" ") Then
oFTSearchtext = oFTSearchtext.Replace(" ", "%")
End If
Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", txtSearch.Text)
sqlft = sqlft.Replace("@FULLTEXT", oFTSearchtext)
'Dim selDoc = String.Format("SELECT T.[DocID],T.[FULL_FILENAME],T.[Filename],T.[DISPLAY_NAME],T.[Doctype],T.[Creation_DateTime] As CreatedWhen,T.[Change_DateTime] as ChangedWhen,T.[IN_WORK] as [InWork?] " &
' "FROM VWPMO_DOC_SEARCH T INNER JOIN ( " & vbNewLine &
' "{0}) Y ON T.DocID = Y.dwDocID " & vbNewLine &