Visual Basic 6. Руководство разработчика



         

Объект TableDef: определения таблиц


Объект 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




Содержание  Назад  Вперед