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
'Закрываем базу данных