Курсовая работа: Разработка элементов информационной системы средствами СУБД MS Access и языка программирования VBA

'Добавляем поле "Марка" в семейство Fields таблицы

td. Fields. Append fld

'Создаем 5-ое поле с именем "Модель" и типом Текстовый

Set fld = td. CreateField ("Модель", dbText)

'Добавляем поле "Модель" в семейство Fields таблицы

td. Fields. Append fld

'Создаем 6-ое поле с именем "Цвет" и типом Текстовый

Set fld = td. CreateField ("Цвет", dbText)

'Добавляем поле "Цвет" в семейство Fields таблицы

td. Fields. Append fld

'Создаем 7-ое поле с именем "Кол-во на складе" и типом Числовой

Set fld = td. CreateField ("Кол-во на складе", dbInteger)

'Добавляем поле "Кол-во на складе" в семейство Fields таблицы

td. Fields. Append fld

'Создаем 8-ое поле с именем "Цена" и типом Денежный

Set fld = td. CreateField ("Цена", dbCurrency)

'Добавляем поле "Цена" в семейство Fields таблицы

td. Fields. Append fld

'Добавляем таблицу к семейству TableDefs базы данных

base. TableDefs. Append td

'Обновляем количество объектов семейства TableDefs

base. TableDefs. Refresh

End Sub

Результат, выполнения программы представлен на рисунке 3.2.1.

Рисунок 3.2.1-таблица “TovaryDAO”

2) Создание таблицы в объектной модели ADO.

Public Sub Tovary_NewTable_ADO ()

'Соединение с текущей базой данных