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

AU_ID

Address

PubID

...(10)

Необходимо создать объект Database , определить его логическую структуру, добавив объекты TableDef и Field.
1. Для каждого объекта базы данных создаются новые объектные переменные:

Dim DB As DataBase, WS As Workspace ‘объект базы данных DataBase

Dim AuTd As TableDef, TitTd As TableDef, PubTd As TableDef ‘ объект ‘TableDef для каждой из 3-х таблиц

Dim AuFlds(2) As Field, TitFlds(5) As Field, PubFlds(10) As Field ‘ объект Field

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

Dim AuIdx AS Index, TitIdx As Index, PubIdx As Index ‘ объект Index для

‘каждого индекса каждой из 3-х таблиц

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

Set Ws=DBEngine. Workspace(0)

Set
Db=Ws.CreateDataBase(“C:VBBiblio.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 добавить каждое поле к его таблице, а каждую таблицу - к базе данных:

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





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