PROPERTY: Property::Type

DataTypeEnum = propertyobject.Type
 
The Type property returns a DataTypeEnum value which is the data type or operational type of the Property object.
 
Unfortunately, some providers may not support all of the possible data types. If a provider encounters a data type that it does not recognize, it will usually change it to a data type that it does recognize.
 
DataTypeEnum Constants
 
Constant Value Description
adArray 0x2000 Combine with another data type to indicate that the other data type is an array
adBigInt 20 8-byte signed integer
adBinary 128 Binary
adBoolean 11 True or false Boolean
adBSTR 8 Null-terminated character string
adChapter 136 4-byte chapter value for a child recordset
adChar 129 String
adCurrency 6 Currency format
adDate 7 Number of days since 12/30/1899
adDBDate 133 YYYYMMDD date format
adDBFileTime 137 Database file time
adDBTime 134 HHMMSS time format
adDBTimeStamp 135 YYYYMMDDHHMMSS date/time format
adDecimal 14 Number with fixed precision and scale
adDouble 5 Double precision floating-point
adEmpty 0 no value
adError 10 32-bit error code
adFileTime 64 Number of 100-nanosecond intervals since 1/1/1601
adGUID 72 Globally Unique identifier
adIDispatch 9 Currently not supported by ADO
adInteger 3 4-byte signed integer
adIUnknown 13 Currently not supported by ADO
adNumeric 131 Number with fixed precision and scale
adPropVariant 138 PROPVARIANT automation
adSingle 4 Single-precision floating-point value
adSmallInt 2 2-byte signed integer
adTinyInt 16 1-byte signed integer
adUnsignedBigInt 21 8-byte unsigned integer
adUnsignedInt 19 4-byte unsigned integer
adUnsignedSmallInt 18 2-byte unsigned integer
adUnsignedTinyInt 17 1-byte unsigned integer
adUserDefined 132 User-defined variable
adVariant 12 Automation variant
adWChar 130 Null-terminated Unicode character string

 
Code (VBScript):
For Each objProperty In objConnection.Properties
   Response.Write "Name = " & objProperty.Name & VBCRLF
   Response.Write "Type = " & objProperty.Type & VBCRLF
   Response.Write "Value = " & objProperty.Value & VBCRLF
Next

Copyright 1999-2001 by Infinite Software Solutions, Inc. All rights reserved.
Trademark Information