1.5 Fields Collection

Obtains information about fields in the Bindery database.

1.5.1 Element method

Finds a Field object in the database.

Syntax

 object.Element 
    (FieldName As String)
 

Parameters

FieldName
The name of the Field object to find.

Return Values

Field. Returns a Field object corresponding to the specified field name.

Example

This example finds the Field object SURNAME in the database.

 ’Display any one property name of the object Testuser 
 set bindery = CreateObject ("ucx:Bindery") 
 entry=bindery.Element ("Testuser") 
 fields = entry.Fields 
 fields.Element ("SURNAME")
 

See Also

1.5.2 HasMoreElements method

Determines whether the collection contains more Field objects.

Syntax

 object.HasMoreElements()
 

Parameters

None.

Return Values

Boolean. Returns TRUE if the collection contains more Field objects. Otherwise, FALSE.

Example

This example determines whether this collection contains more Field objects.

 ’Display any one property name of the object Testuser 
 set bindery = CreateObject ("ucx:Bindery") 
 set entry=bindery.Element ("Testuser") 
 fields =entry.Fields 
 fields.Reset() 
 while (fields.HasMoreElements()) 
 fields=Fields.Next() 
 Print (fields.Name) 
 wend
 

1.5.3 Next method

Returns the next Field object in the collection.

Syntax

 object.Next()
 

Parameters

None.

Return Values

Returns the next Field object in the collection, or NULL, if no more objects exist.

Example

This example returns the next Field object in the collection.

 ’Display any one property name of the object TestUser 
 set bindery = CreateObject("ucx:Bindery") 
 set entry=bindery.Element("TestUser") 
 fields =entry.Fields 
 fields.Reset() 
 while (fields.HasMoreElements()) 
 fields=Fields.Next() 
 Print (field.Name) 
 wend
 

1.5.4 Reset method

Resets the Fields collection.

Syntax

 object.Reset()
 

Parameters

.

Return Values

None.

Example

This example resets the Fields collection.

 ’Display any one property name of the object TestUser 
 set bindery = CreateObject("ucx:Bindery") 
 set entry=bindery.Element("TestUser") 
 fields =entry.Fields 
 fields.Reset() 
 while (fields.HasMoreElements()) 
 fields=Fields.Next() 
 Print (field.Name) 
 wend