DimTempField As Field

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

AuTd. Indexes. Append AuIdx

AuIdx. Fields. Append NewFld

DB. TableDefs. Append AuTd

AuTd. Fields. Append AuFlds (1)

AuTd. Fields. Append AuFlds (0)

Dim AuFlds(2) As Field, TitFlds(5) As Field, PubFlds(10) As Field

Dim AuTd As TableDef, TitTd As TableDef, PubTd As TableDef

‘объект TableDef для каждой из 3-х таблиц

‘ объект Field для каждого поля каждой таблицы

Dim AuIdx AS Index, TitIdx As Index, PubIdx As Index ‘ объект Index ‘для каждого индекса каждой из 3-х таблиц

2. На основе метода CreateDatabase объекта Workspace создается новая база данных:

Set Ws=DBEngine. Workspace(0)

SetDb=Ws.CreateDataBase(“C:\VB\Biblioteca.mdb”,dbLangGeneral,_dbVersion30) ‘ константа dbLangGeneral определяет языковую версию ‘базы данных, а dbVersion30- базу данных Jet версии 3.0

3. С помощью метода CreateTableDef объекта Database создаются объекты TableDef для каждой таблицы базы данных:

Set TitTd=DB. CreateTableDef(“Titles”)

Set AuTd= DB. CreateTableDef(“Authors”)

Set PubTd= DB. CreateTableDef(“Publishers”)

4. С помощью метода CreateField объекта TableDef создаются объекты Field для каждого поля каждой таблицы базы данных. Для каждого поля устанавливаются свойства, определяющие размер, тип данных и другие необходимые атрибуты. Например, для поля Author код будет выглядеть следующим образом:

Set AuFlds(0)=AuTd. CreateField(“AU_ID”,dbLong)

‘ сделать поле счетчиком

AuFlds(0). Attributes=dbAutoIncrField

Set AuFlds(1)=AuTd. CreateField(“Author”,dbText)

AuFlds(1)=50 ‘ длина поля

5.Используя метод Append добавить каждое поле к его таблице, а каждую таблицу - к базе данных:

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:

Вновь созданные поля объекта 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.ForeignTable=“ Titles” ' внешняя таблица

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

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

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

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

Дата добавления: 2014-12-10