ADO的Type

来源：互联网发布：企业建站cms无广告编辑：程序博客网时间：2024/06/06 02:46

当初找了好久才找到的ADO的所有Type

Public Function SQLDataTypeName(dtIndex)    Select Case dtIndex        Case adEmpty: SQLDataTypeName = "Empty"        Case adTinyInt: SQLDataTypeName = "TinyInt"        Case adSmallInt: SQLDataTypeName = "SmallInt"        Case adInteger: SQLDataTypeName = "Integer"        Case adBigInt: SQLDataTypeName = "BigInt"        Case adUnsignedTinyInt: SQLDataTypeName = "UnsignedTinyInt"        Case adUnsignedSmallInt: SQLDataTypeName = "UnsignedSmallInt"        Case adUnsignedInt: SQLDataTypeName = "UnsignedInt"        Case adUnsignedBigInt: SQLDataTypeName = "UnsignedBigInt"        Case adSingle: SQLDataTypeName = "Single"        Case adDouble: SQLDataTypeName = "Double"        Case adCurrency: SQLDataTypeName = "Currency"        Case adDecimal: SQLDataTypeName = "Decimal"        Case adNumeric: SQLDataTypeName = "Numeric"        Case adBoolean: SQLDataTypeName = "Boolean"        Case adError: SQLDataTypeName = "Error"        Case adUserDefined: SQLDataTypeName = "UserDefined"        Case adVariant: SQLDataTypeName = "Variant"        Case adIDispatch: SQLDataTypeName = "IDispatch"        Case adIUnknown: SQLDataTypeName = "IUnknow"        Case adGUID: SQLDataTypeName = "GUID"        Case adDate: SQLDataTypeName = "Date"        Case adDBDate: SQLDataTypeName = "DBDate"        Case adDBTime: SQLDataTypeName = "DBTime"        Case adDBTimeStamp: SQLDataTypeName = "DBTimeStamp"        Case adBSTR: SQLDataTypeName = "BSTR"        Case adChar: SQLDataTypeName = "Char"        Case adVarChar: SQLDataTypeName = "VarChar"        Case adLongVarChar: SQLDataTypeName = "LongVarChar"        Case adWChar: SQLDataTypeName = "WChar"        Case adVarWChar: SQLDataTypeName = "VarWChar"        Case adLongVarWChar: SQLDataTypeName = "LongVarWChar"        Case adBinary: SQLDataTypeName = "Binary"        Case adVarBinary: SQLDataTypeName = "VarBinary"        Case adLongVarBinary: SQLDataTypeName = "LongVarBinary"        Case adChapter: SQLDataTypeName = "Chapter"        Case adFileTime: SQLDataTypeName = "FileTime"        Case adPropVariant: SQLDataTypeName = "PropVariant"        Case adVarNumeric: SQLDataTypeName = "VarNumeric"        Case adArray: SQLDataTypeName = "Array"    End SelectEnd Function

其中，dtIndex是ADODB.Recordset.Fields.Type
长度是ADODB.Recordset.Fields.ActualSize
表名是ADODB.Recordset.Fields..Properties(“BASETABLENAME”)
字段名是ADODB.Recordset.Fields..Properties(“BASECOLUMNNAME”)

0 0