Dim Td As TableDef

Dim DB As DataBase

Dim DB As DataBase

Модификация базы данных

DB. TableDefs. Append NewTd

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

Db. Relations. Append Au_Tit

Au_Tit. Fields. Append TempField

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

Процедура связывания таблицы внешней базы данных подобна определению и созданию новой внутренней таблицы, за исключением того, что при создании объекта TableDef необходимо определить свойства SourceTableName и Connect. Кроме того, для этой таблицы нельзя создавать или добавлять новые объекты Field и Index.

Для связывания внешней таблицы с базой данных необходимо:

Создать для связываемой таблицы новый объект TableDef, используя метод CreateTableDef объекта Database. Назначить таблице новое имя (свойство Name). Например, чтобы присоединить таблицу Сustomers из базы данных Stocks.mdb к базе данных Biblioteca.mdb, можно записать:

Set NewTd = DB. CreateTableDef(“Customers”) ‘ Предполагается, ‘что база данных Biblioteca.mdb открыта методом OpenDatabase и ей ‘назначена переменная DB.

2. Установить свойства SourceTableName и Connect объекта TableDef:

NewTd. SourceTableName = “Customers”

NewTd. Connect = “; DATABASE=C:\Access\Stocks.mdb;”

3.Добавить новый объект TableDef к базе данных:

Процедуры изменения базы данных подобны ее созданию. Используются те же методы Create и Append.

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

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

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

SetDb = DBEngine.Workspace (0). OpenDatabase (“Biblioteca.mdb”)

Set NewTd = DB. CreateTableDef (“NewTable”)

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

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

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

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

2. Для добавления поля к таблице необходимо добавить новый объект Field к существующей коллекции Fields

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

SetDb=DBEngine.Workspace(0).OpenDatabase

(_“C:\Biblioteca.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 ‘ Закрыть базу данных

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

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