13. Объект Database –база данных

Объект Database представляет собой базу данных в Microsoft Access.

Cвойства объекта Database

Cвойства	Описание
Name	Возвращает имя базы данных.
QueryDefs	Возвращает одноимённую коллекцию, содержащую запросы.
Relations	Содержит коллекцию объектов Relation, каждый из которых представляет связь между полями таблиц или запросов.
TableDefs	Возвращает одноимённую коллекцию, содержащую объекты Tabledef, каждый из которых представляет сохранённое определение таблицы.
Updatable	Возвращает значение True, если модификация таблицы разрешена.

Методы объекта Database

Название	Описание
Close CreateQueryDef	Закрывает базу данных. Создаёт запрос определённого содержания.
CreateTableDef	Создаёт объект TableDef
OpenRecordSet	Cоздаёт новый объект RecordSet.

14. Объект TableDef

Oбъект TableDef представляет сохранённое определение основной таблицы.

В объекте TableDef никак не отражены данные из таблицы. Единственные объекты доступа к данным в таблице – это объекты Field из семейства Fields объекта Recordset.

Свойства объекта TableDef

Свойства	Описание
DataCreated	Возвращает дату создания таблицы.
Fields	Содержит коллекцию объектов Field, принадлежащих таблице.
Indexes	Содержит коллекцию индексов, принадлежащих таблице.
RecordCount	Возвращает количество записей в таблице.

Методы объекта TableDef

CreateField(Имя, Тип, Размер)- создаёт новое поле Field.

• Тип-определяет тип поля, могут быть использованы константы: DbDate, dbTime, dbCurrency, dbChar и т.д..

• Размер- выражение в байтах, определяющее в байтах максимальный размер объекта Field, содержащего текстовые значения.

CreateIndex(имя)- создаёт индекс.

Пример

В текущей базе данных создать таблицу с именем “Сотрудник” с полями “ФИО” - текстовое поле. “Адрес” - текстовое поле. “Оклад” - денежный тип.

Текст программы:

Dim basa As Database, tabliza As TableDef

Set basa = CurrentDb

'Создаём таблицу с именем "Сотрудник"

Set tabliza = basa.CreateTableDef("Сотрудник")

' Создаём поля

With tabliza

.Fields.Append.CreateField("ФИО", dbText, 20)

.Fields.Append.CreateField("Адрес", dbText, 40)

.Fields.Append.CreateField("Оклад", dbCurrency, 10)

End With

'Включаем новую таблицу в текущую базу данных

basa.TableDefs.Append tabliza

'Закрываем базу данных

basa.Close

После работы этой процедуры в списке таблиц текущей базы данных появится таблица “Сотрудник”, которая при открытии выглядит следующим образом:

В конструкторе структура таблицы выглядит: