Wenn ein Filterausdruck als String benötigt 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)

Datentyp: Datum/Uhrzeit

Das Datumsformat hängt vom eingesetzten DBMS ab.

Beispiele

Jet: #mm/dd/yyyy# oder #yyyy-mm-dd#

MSSQL: 'yyyymmdd'

Filterwert: 24.12.2015

... Datumsfeld = #2015-12-24#

=> Filterwert ist in Variable gespeichert:

FilterString = "Datumsfeld = " & Format(FilterWertVariable, "\#yyyy-mm-dd#")

Anm.: Auch schon gesehen:

FilterString = "Datumsfeld = " & CLng(FilterWertVariable)

Davon ist abzuraten, da das z. B. nicht mit ODBC-verknüpften MSSQL-Tabellen funktioniert - wegen unterschiedlichem Datumsstartwert (Zahl 0) zw. VBA und MSSQL.

Datentyp: Boolean

Das Datumsformat hängt vom eingesetzten DBMS ab.

Beispiele

Jet: True oder -1

MSSQL: 1

Filterwert: True

... Datumsfeld = True

Anm.: Falls ODBC-verknüpfte MSSQL-Tabellen mit Bit-Feldern verwendet werden, ist von -1 als True-Wert abzuraten. ODBC konvertiert True richtig als 1 nach MSSQL. Wird jedoch -1 verwendet, gibt der ODBC-Treiber diese Zahl direkt an das DBMS weiter und da -1 nicht 1 entspricht trifft die Bedingung nie zu. Gemeinheit dabei: in der verknüpften MSSQL-Tabelle wird True als -1 angezeigt.

=> Filterwert ist in Variable gespeichert:

FilterString = "Datumsfeld = " & IIF(FilterWertVariable = True, "True", "False")

Einsatz von Hilfsprozeduren und Klassen aus der CodeLib

Hilfsfunktion zur Umwandlung in Text aus SqlTools

FilterString = "Textfeld = " & SqlTools.TextToSqlText(FilterWertVariable)

FilterString = "Zahlenfeld = " & SqlTools.NumberToSqlText(FilterWertVariable)

FilterString = "Datumsfeld = " & SqlTools.DateToSqlText(FilterWertVariable)

FilterString = "Booleanfeld = " & SqlTools.BooleanToSqlText(FilterWertVariable)

BuildCriteria aus SqlTools

FilterString = SqlTools.BuildCriteria("Textfeld", SQL_Text, SQL_Equal, FilterWertVariable)

FilterString = SqlTools.BuildCriteria("Zahlenfeld", SQL_Numeric, SQL_Equal, FilterWertVariable)

FilterString = SqlTools.BuildCriteria("Datumsfeld", SQL_DateTime, SQL_Equal, FilterWertVariable)

FilterString = SqlTools.BuildCriteria("Booleanfeld", SQL_Boolean, SQL_Equal, FilterWertVariable)

Klasse FilterStringBuilder

With NewFilterStringBuilder
 
   .Add "Textfeld", SQL_Text, SQL_Equal, FilterWertVariable
   .Add "Zahlenfeld", SQL_Numeric, SQL_Equal, FilterWertVariable
   .Add "Datumsfeld", SQL_DateTime, SQL_Equal, FilterWertVariable
   .Add "Booleanfeld", SQL_Boolean, SQL_Equal, FilterWertVariable
 
   FilterString = .ToString
 
End With