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

Dim DB As DataBase

Dim Td As TableDef

Dim Fld As Field ‘Создать новый объект Field

Set Db=DBEngine. Workspace(0).OpenDatabase(“C:Biblio.mdb”)

Set Td=DB. TableDefs(“Authors”)

Set Fld= Td.CreateField(“NewField1”,dbText,30) ‘Создать первое новое поле

Td.Fields.Append Fld ‘добавить поле к коллекции Fields

Set Fld= Td.CreateField(“NewField2”,dbText,20) ‘Создать второе новое поле с помощью той же переменной

Td.Fields.Append Fld ‘добавить еще один объект к коллекции Fields

Db.Close ‘Закрыть базу данных

2. Для добавления таблицы к базе данных необходимо добавить новый объект TableDef к существующей коллекции TableDefs. Например:

Dim DB As DataBase

Dim NewTd As TableDef ‘ Создать новый объект TableDef

Dim NewFld As Field ‘Создать новый объект Field

Set Db=DBEngine. Workspace(0).OpenDatabase(“C:Biblio.mdb”)

Set NewTd=DB.CreateTableDef(“NewTable”)

Set NewFld= NewTd.CreateField(“NewField”,dbInteger)

NewTd.Fields.Append NewFld ‘добавить поле к таблице

DB.TableDefs.Append NewTd ‘добавить таблицу к базе данных

Db.Close ‘Закрыть базу данных

3. Для добавления индекса к таблице необходимо добавить новый объект
Index к существующей коллекции Indexes . Например:

Dim DB As DataBase, Td As TableDef, NewIdx As Index ,NewFld As Field

Set Db=DBEngine. Workspace(0).OpenDatabase(“C:Biblio.mdb”)

Set Td=DB. TableDefs(“Authors”)

Set NewIdx =Td.CreateIndex(“Address_Index”)

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



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

Поделитесь этой записью или добавьте в закладки