'/**
' * Gibt den SQL-Type für ein DAO.DataTypeEnum zurück.
' * Diesen kann man für automatisierte CRATE TABLE oder ALTER TABLE verwenden
' * @param  DAO.DataTypeEnum
' * @param  Integer
' * @return String
' */
Public Function getSQLType(ByVal iVarType As DAO.DataTypeEnum, Optional ByVal iSize As Integer = 50) As String
	Select Case iVarType
		Case dbText:        getSQLType = "TEXT(" & iSize & ")"
		Case dbLong:        getSQLType = "LONG"
		Case dbInteger:     getSQLType = "INTEGER"
		Case dbBoolean:     getSQLType = "YESNO"
		Case dbMemo:        getSQLType = "MEMO"
		Case dbByte:        getSQLType = "BYTE"
		Case dbSingle:      getSQLType = "SINGLE"
		Case dbCurrency:    getSQLType = "CURRENCY"
		Case dbTimeStamp:   getSQLType = "DATETIME"
		Case dbBinary:      getSQLType = "BINARY(" & iSize & ")"
		Case dbLongBinary:  getSQLType = "LONGBINARY"
		Case Else:          getSQLType = "TEXT(" & iSize & ")"
	End Select
End Function