tricks & functions that helped me a lot doing my praxisprogram. I also got a lot of help from the internet, so I can pay back
Scenario: User wants to search the Database for 1 … X tokens (like Fulltextsearch in google) –> build SQL-Search-String
‚builds a WHERE sentence consisting of several WHERE Fulltext-searchstrings
Function KomplexesWHEREKriterium(SuchString As String, DatenbankFilterFeld As String, Optional TrennZeichen As String = “ „) As String
Dim i As Long, j As Long, a() As String, s As String, ss As String
If pos(TrennZeichen, SuchString) <> 0 Then
a = Split(SuchString, TrennZeichen)
For i = 0 To UBound(a)
s = IIf(s <> „“, s + “ AND „, „“) + „([“ + DatenbankFilterFeld + „] LIKE “ + DoTK(„*“ + (a(i)) + „*“) + „)“
Next
Else ’nur ein Text
s = „[“ + DatenbankFilterFeld + „] LIKE “ + DoTK(„*“ + SuchString + „*“)
End If
ss = “ WHERE (“ + s + „) „
KomplexesWHEREKriterium = ss
End Function
