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
