Home Cart [Log In] About Us Contact Us

Object Reference

Classes
Command Interface
- xf_Command
External
- xf_External_VB6_32bit
- xf_External_VB7_32_64bit
General
System Core
System Library

xf_ScripterSQL Script Generation and Processing

Public Function GetFieldDDLTypeName (
FieldType As DAO.DataTypeEnum,
Attributes As Long,
FieldLength As Integer
) As String

Get the JET DDL type name from the DAO DataTypeEnum

FieldType as DAO.DataTypeEnum

The DAO Field DataTypeEnum

Attributes as Long

The DAO Field Attributes property

FieldLength as Integer

The field length property for variable length fields

Call Template:

Dim s As String

s = xf.Scripter.GetFieldDDLTypeName(FieldType, Attributes, FieldLength)

Example 1:

Debug.Print xf.Scripter.GetFieldDDLTypeName(dbBoolean, 0, 0)             --> YESNO
Debug.Print xf.Scripter.GetFieldDDLTypeName(dbLong, dbAutoIncrField, 0)  --> COUNTER
Debug.Print xf.Scripter.GetFieldDDLTypeName(dbText, 0, 170)              --> TEXT(170)