Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

AuTd.Fields.Append AuFlds(0)

AuTd.Fields.Append AuFlds(1)

DB.TableDefs.Append AuTd

6. Используя метод CreateIndex объекта TableDef, создать индексы для каждой таблицы и установить их свойства. Например. для таблицы Authors:

Set AuIdx=AuTd.CreateIndex(“Au_ID”)

AuIdx.Primary=True ‘Первичный ключ

AuIdx.Unique=True ‘Уникальный ключ

7. Используя метод CreateField объекта Index, создать поля для каждого индексного объекта:

Set NewFld=AuIdx.CreateField(“Au_ID”)

8. Добавить поле к объекту Index, а объект Index к объекту TableDef:

AuIdx.Fields.Append NewFld

AuTd.Indexes.Append AuIdx

Вновь созданные поля объекта Index не становятся частью объекта
TableDef. Вместе с тем им дается то же самое свойство Name, что и у поля объекта TableDef, которое они должны индексировать. Свойства Type и Size у этих полей не определяются.

Связывание таблиц

Создание объектов TableDef, которые содержат первичный и внешний ключи, позволяют связывать записи в одной таблице с соответствующими записями в другой таблице, согласно общим значениям первичного/внешнего ключей. При добавлении или удалении записей важно поддерживать так называемую ссылочную целостность. Ссылочная целостность означает, что внешний ключ в любой ссылающейся таблице всегда должен ссылаться на достоверную запись в адресуемой таблице, содержащей первичный ключ. Для поддержания ссылочной целостности используется объект Relation.

1. Добавить отношение к базе данных :

Dim Au_Tit As Relation ‘ объект Relation

Set Au_Tit =Db.CreateRelation(“Authors_Titles”) ‘ создается объект
Relation с помощью метода .CreateRelation

Au_Tit.Table=“Authors” ‘ Устанавливаются свойства объекта Relation

Au_Tit.ForegnTable=“ Titles”

2. Создать поле, которое в отношении будет определять общее поле первичного/внешнего ключа:

DimTempField As Field

Set TempField = Au_Tit.CreateField(“Au_Id”) ‘ создается связующее поле с помощью метода CreateField

TempField. ForegnName =“Au_Id” ‘ Устанавливаются свойства объекта
Field

3. Добавить объект Fields к объекту Relation, а объект Relation к объекту Database с помощью метода Append:

Рекомендуем скачать другие рефераты по теме: бесплатные рефераты без регистрации, доклад по истории на тему.





Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата