Шаг 138 - Свойство Attributes

Описание
Задает или возвращает значение, указывающее одну или несколько характеристик объекта Field, Relation или TableDef.

Значение
Задаваемое или возвращаемое значение имеет тип данных Long, значением по умолчанию является 0.
Для объекта Field значение свойства задает характеристики поля, представляемого данным объектом. Значение данного свойства может быть выражено как сумма констант из следующего списка:

Для объекта Relation значение свойства задает характеристики связи, представляемой данным объектом. Значение данного свойства может быть выражено как сумма констант из следующего списка:

Если в свойстве Attributes объекта Relation задан режим каскадных операций, то ядро базы данных Microsoft Jet автоматически обновляет или удаляет записи в одной или нескольких подчиненных таблицах при соответствующих изменениях в главных таблицах.

Предположим, например, что задан режим каскадного удаления для связи между таблицами "Клиенты" и "Заказы". При удалении записей из таблицы "Клиенты" будут автоматически удаляться связанные записи из таблицы "Заказы". Кроме того, если задано каскадное удаление для связей между таблицей "Заказы" и другими таблицами, то при удалении записей из таблицы "Клиенты" будут удалены связанные записи и в этих таблицах.

Для объекта TableDef свойство Attributes задает характеристики таблицы, представляемой данным объектом. Значение данного свойства может быть выражено как сумма констант типа Long из следующего списка:

Замечания
Для объекта, еще не добавленного в семейство, данное свойство доступно для чтения/записи.

Для добавленного объекта Field использование свойства Attributes зависит от того, какой из объектов содержит семейство Fields.

Для добавленного объекта Relation свойство Attributes доступно только для чтения.
Для добавленного объекта TableDef свойство доступно для чтения/записи, хотя, если объект уже добавлен в семейство, невозможно задать все константы, как отмечалось в разделителе "Задаваемые и возвращаемые значения".
Допускается одновременное задание нескольких атрибутов, при этом следует просто просуммировать соответствующие константы. Любые неверные (не имеющие смысла) значения свойства будут проигнорированы без возникновения ошибки.

Пример
Следующая программа отображает свойство Attributes объектов Field, Relation и TableDef в базе данных "Борей".

Sub AttributesX()

	Dim dbsNorthwind As Database
	Dim fldLoop As Field
	Dim relLoop As Relation
	Dim tdfloop As TableDef

	Set dbsNorthwind = OpenDatabase("Борей.mdb")

	With dbsNorthwind
		' Отображает атрибуты полей объекта TableDef.
		Debug.Print "Атрибуты полей таблицы: " & .TableDefs(0).Name
		For Each fldLoop In .TableDefs(0).Fields
			Debug.Print "    " & fldLoop.Name & " = " & fldLoop.Attributes
		Next fldLoop
		' Отображает атрибуты связей в базе данных "Борей".
		Debug.Print "Атрибуты связей в " & .Name 
		For Each relLoop In .Relations
			Debug.Print "    " & relLoop.Name & " = " & relLoop.Attributes
		Next relLoop
		' Отображает атрибуты таблиц в базе данных "Борей".
		Debug.Print "Атрибуты таблиц в " & .Name 
		For Each tdfloop In .TableDefs
			Debug.Print "    " & tdfloop.Name & " = " & tdfloop.Attributes
		Next tdfloop
		.Close
	End With
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 03.04.2002