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
Google-ZENSUR!
Google zensiert meine Homepage ganz ordentlich, es ist mir tw. selber nicht möglich Artikel von mir bei Google zu finden. Desswegen bitte zum Newsletter anmelden und diesen an Freunde oder per Facebook teilen sowie die Suchfunktion innerhalb meiner Website verwenden. Folgen sie mir auch auf Twitter, dort kündige ich wichtige Artikel auch an.