ADO Field Object Type Property
The operational type or data type of a Field object.
Type Property Return Values (ADO Field Object)
Sets or returns one of the following DataTypeEnum values. The corresponding OLE DB type indicators are as follows:
Constant
|
Description
|
adArray
|
Or'd together with another type to indicate that the data is a safe-array of that type (DBTYPE_ARRAY).
|
adBigInt
|
An 8-byte signed integer (DBTYPE_I8).
|
adBinary
|
A binary value (DBTYPE_BYTES).
|
adBoolean
|
A Boolean value (DBTYPE_BOOL).
|
adByRef
|
Or'd together with another type to indicate that the data is a pointer to data of the other type (DBTYPE_BYREF).
|
adBSTR
|
A null-terminated character string (Unicode) (DBTYPE_BSTR).
|
adChar
|
A String value (DBTYPE_STR).
|
adCurrency
|
A currency value (DBTYPE_CY). Currency is a fixed-point number with 4 digits to the right of the decimal point. It is stored in an 8-byte signed integer scaled by 10,000.
|
adDate
|
A date value (DBTYPE_DATE). A date is stored as a Double, the whole part of which is the number of days since December 30, 1899, and the fractional part of which is the fraction of a day.
|
adDBDate
|
A date value (yyyymmdd) (DBTYPE_DBDATE).
|
adDBTime
|
A time value (hhmmss) (DBTYPE_DBTIME).
|
adDBTimeStamp
|
A date-time stamp (yyyymmddhhmmss plus a fraction in billionths) (DBTYPE_DBTIMESTAMP).
|
adDecimal
|
An exact numeric value with a fixed precision and scale (DBTYPE_DECIMAL).
|
adDouble
|
A double-precision floating point value (DBTYPE_R8).
|
adEmpty
|
No value was specified (DBTYPE_EMPTY).
|
adError
|
A 32-bit error code (DBTYPE_ERROR).
|
adGUID
|
A globally unique identifier (GUID) (DBTYPE_GUID).
|
adIDispatch
|
A pointer to an IDispatch interface on an OLE object (DBTYPE_IDISPATCH).
|
adInteger
|
A 4-byte signed integer (DBTYPE_I4).
|
adIUnknown
|
A pointer to an IUnknown interface on an OLE object (DBTYPE_IUNKNOWN).
|
adNumeric
|
An exact numeric value with a fixed precision and scale (DBTYPE_NUMERIC).
|
adSingle
|
A single-precision floating point value (DBTYPE_R4).
|
adSmallInt
|
A 2-byte signed integer (DBTYPE_I2).
|
adTinyInt
|
A 1-byte signed integer (DBTYPE_I1).
|
adUnsignedBigInt
|
An 8-byte unsigned integer (DBTYPE_UI8).
|
adUnsignedInt
|
A 4-byte unsigned integer (DBTYPE_UI4).
|
adUnsignedSmallInt
|
A 2-byte unsigned integer (DBTYPE_UI2).
|
adUnsignedTinyInt
|
A 1-byte unsigned integer (DBTYPE_UI1).
|
adUserDefined
|
A user-defined variable (DBTYPE_UDT).
|
adVariant
|
An Automation Variant (DBTYPE_VARIANT).
|
adVector
|
OR'd together with another type to indicate that the data is a DBVECTOR structure, as defined by OLE DB, that contains a count of elements and a pointer to data of the other type (DBTYPE_VECTOR).
|
adWChar
|
A null-terminated Unicode character string (DBTYPE_WSTR).
|
Type Property Remarks (ADO Field Object)
For Field objects, the Type property is read-only.
Type Property Example (ADO Field Object)
This example demonstrates the Type property by displaying the name of the constant corresponding to the value of the Type property of all the Field objects in the Employees table. The FieldType function is required for this procedure to run.
Public Sub TypeX()
Dim rstEmployees As ADODB.Recordset
Dim fldLoop As ADODB.Field
Dim strCnn As String
` Open recordset with data from Employee table.
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "employee", strCnn, , , adCmdTable
Debug.Print "Fields in Employee Table:" & vbCr
` Enumerate Fields collection of Employees table.
For Each fldLoop In rstEmployees.Fields
Debug.Print " Name: " & fldLoop.Name & vbCr & _
" Type: " & FieldType(fldLoop.Type) & vbCr
Next fldLoop
End Sub
Public Function FieldType(intType As Integer) As String
Select Case intType
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End Select
End Function
Copyright © 2003 Sun Microsystems, Inc. All rights reserved.
