Paket modSQL

SQL-Hilfsfunktionen. Mehr ...

Funktionen
Function	GetSQLString_Date (ByVal vValue As Variant, Optional sFormatString As String=g_SQL_DATEFORMAT) As String
	Datumswert in String für SQL-Anweisung umwandeln, die per VBA zusammengesetzt wird.
Function	GetSQLString_Text (ByVal vValue As Variant, Optional ByVal sDelimiter As String=g_SQL_TEXTDELIMITER, Optional ByVal bWithoutLeftRightDelim As Boolean=False) As String
	Text für SQL-Anweisung aufbereiten.
Function	GetSQLString_Number (ByVal vValue As Variant) As String
	Zahl für SQL-Text aufbereiten.

Ausführliche Beschreibung

SQL-Hilfsfunktionen.

Function modSQL.GetSQLString_Date	(	ByVal vValue As	Variant,
		Optional sFormatString As	String = `g_SQL_DATEFORMAT`
	)

Datumswert in String für SQL-Anweisung umwandeln, die per VBA zusammengesetzt wird.

Parameter:

	vValue	Übergabewert
	sFormatString	Datumsformat (von DBMS abhängig!)

Function modSQL.GetSQLString_Number ( ByVal vValue As Variant )

Zahl für SQL-Text aufbereiten.

Parameter:

vValue

Übergabewert

Durch Str-Funktion wird . statt , verwendet.

Function modSQL.GetSQLString_Text	(	ByVal vValue As	Variant,
		Optional ByVal sDelimiter As	String = `g_SQL_TEXTDELIMITER`,
		Optional ByVal bWithoutLeftRightDelim As	Boolean = `False`
	)

Text für SQL-Anweisung aufbereiten.

Parameter:

	vValue	Übergabewert
	sDelimiter	Begrenzungszeichen für Text-Werte. (In den meinsten DBMS wird ' als Begrenzungszeichen verwendet.)
	bWithoutLeftRightDelim	Nur Begrenzungszeichnen innerhalb des Werte verdoppeln, Eingrenzung jedoch nicht setzen.

Beispiel: strSQL = "select ... from tabelle where Feld = " & GetSQLString_Text("ab'cd") => strSQL = "select ... from tabelle where Feld = 'ab''cd'"