Version vom 20:35, 10. Mai 2015

Wenn ein Filterausdruck als String zusammengesetzt wird, müssen die Filterwerte SQL-konform in Text konvertiert werden.

Datentyp: Text

Der Text-Filterwert muss mit ' umschlossen sein. Bei Jet/ACE ist z.B. auch " möglich.

Filterwert: abc

... Textfeld = 'abc'

Dabei ist zu beachten, dass ' im Filterwert im obigen Fall verdoppelt werden müssen, da sonst der Text zu früh als beendet markiert wird.

Filterwert: a'b

... Textfeld = 'a''c'

=> Filterwert ist in Variable gespeichert:

FilterString = "Textfeld = '" & Replace(FilterWertVariable, "'", "''") & "'"

Anm.: Die gleichen Regeln gelten natürlich auch bei Bedingungen mit Like, >=, <= usw.

Datentyp: Zahlen (Integer, Double, ...)

Zahlen sind im amerikanischen Zahlenformat darzustellen (Punkt statt Komma).

Filterwert: 123,45

... Textfeld = 123.45

=> Filterwert ist in Variable gespeichert:

FilterString = "Zahlenfeld = " & Str(FilterWertVariable)

Einsatz von Hilfsprozeduren und Klassen aus der CodeLib

Textfeld

Hilfsfunktion für Umwandlung in Text aus SqlTools:

FilterString = "Textfeld = " & TextToSqlText(FilterWertVariable)

FilterString = "Zahlenfeld = " & NumberToSqlText(FilterWertVariable)

Verwendung von FilterStringBuilder

With NewFilterStringBuilder
 
   .Add "Textfeld", SQL_Text, SQL_Equal, FilterWertVariable
   FilterString = .ToString
 
End With

With NewFilterStringBuilder
 
   .Add "Zahlenfeld", SQL_Numeric, SQL_Equal, FilterWertVariable
   FilterString = .ToString
 
End With