Public Function CharactersToSQLInExpression( _
ByVal vChars As Variant _
, Optional ByVal vQuoteChar As Variant _
) As String CharactersToSQLInExpression("ABC", "'") = "In ('A', 'B', 'C')"
CharactersToSQLInExpression("A", "'") = "= 'A'"
CharactersToSQLInExpression("A") = "= ""A"""
CharactersToSQLInExpression("A'", "'") = "In ('A', '''')" ' #4
CharactersToSQLInExpression("ABB", "'") = "In ('A', 'B')" ' #5
CharactersToSQLInExpression(Null) = "Is Null"See also: EgrepOrStringsToRegexPattern Function
StringsToSQLBetweenExpression FunctionvChars: String containing characters which are to be converted into a SQL WHERE IN expression. Function returns the string "Is Null" is vChars is Null. vQuoteChar: String containing the character used to quote strings in the SQL expression where this function is used. vQuoteChar defaults to the double-quote character (") if it is missing or Null or cannot be fixed up to a String. If one of the characters within vChars is the quote character vQuoteChar, then that character will appear twice as in example #4.
Note: Duplicate characters within string vChars are ignored as in example #5.
Function returns a string containing an equals expression if the string vChars is either empty or only one character long.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.