Объект TableDef задает определение таблиц в объекте Database. Все объекты TableDef формируют семейство. Число таблиц находится в свойстве TableDefs. Count.
Каждая таблица в базе данных задается объектом
TableDef. Перечислим его наиболее важные свойства.
• Count возвращает число строк в таблице.
• Fields - семейство объектов Field. Каждый объект Field задает поле в таблице.
• Indexes — семейство объектов Index. Каждый объект Index задает индекс таблицы.
Итак, объявим и откроем объект Database с помощью следующих команд.
Dim DB As Database
Set DB = OpenDatabase(dbName)
Для доступа к определениям таблиц базы данных используйте выражение DB.TableDefs, являющееся семейством объектов: по одному для каждой таблицы. С помощью элементов этого семейства можно обращаться к свойствам таблиц в базе данных. Чтобы реализовать обращение к каждой таблице самым простым способом, нужно объявить переменную TableDef
Dim tbl As TableDef
а затем просмотреть каждый элемент семейства
DB.TableDefs с помощью цикла For Each... Next.
For Each tbi In DB.TableDefs
Debug.Print tbl.Name
Next
Этот цикл отображает имена таблиц. В дополнение к таблицам данных базы данных Access содержат несколько системных таблиц. Имена этих таблиц начинаются с MSYS и их можно пропустить. Для получения подробной информации о том, как обнаружить и проигнорировать системные таблицы, смотрите параграф "VB6 в действии: проект DBStructure" далее в этой главе.
Индексы таблицы
Большинство таблиц в базе данных имеет хотя бы один связанный индексный файл, а иногда и больше. Для доступа к индексам таблицы предназначено свойство Indexes объекта TableDefs. Свойство Indexes - это семейство объектов, каждый из которых соответствует одному индексу таблицы. Чтобы самым простым способом реализовать обращение к каждому индексу в таблице, нужно объявить объект Index.
Dim idx As Index
а затем просмотреть каждый элемент семейства
Indexes с помощью цикла For Each...Next
For Each idx In tbi Indexes