Code: Select all
Private Function LEGGI_TIPO_FIELD(ByVal v_lngValue As Long) As String
Select Case v_lngValue
Case 2
GetDataType = "Integer Short"
Case 3
GetDataType = "Long"
Case 4
GetDataType = "Single"
Case 5
GetDataType = "Double"
Case 6
GetDataType = "Currency"
Case 7
GetDataType = "Date DateTime"
Case 11
GetDataType = "Boolean Bit"
Case 17
GetDataType = "Boolean Byte"
Case 72
GetDataType = "GUID"
Case 128
GetDataType = "Long LongBinary"
Case 129
GetDataType = "String Text"
Case 202
GetDataType = "Text"
End Select
End Function