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

Макросы, созданные в данной базе данных, рассмотрим при создании главной кнопочной формы.

3.2 Разработка программы на VBA

Язык Visual Basic for Applications является объектно-ориентированным языком программирования. Стандартные объекты Visual Basic представляют собой основное средство манипуляции с данными Microsoft Access и других приложений семейства Microsoft Office. Знание технологии объектно-ориентированного программирования и состава объектных моделей Visual Basic позволяет разрабатывать профессиональные приложения, выполняющие всю необходимую обработку данных.

В Microsoft Access 2003 есть возможность двух способов работы с данными:

Посредством DAO (Data Access Objects);

Посредством ADO (ActiveX Data Objects).

Объектная модель Microsoft DAO 3.6 (DAO, Data Access Objects) - это унифицированный набор объектов для доступа к данным.

Объекты управления данными ActiveX (ADO/ ActiveX Data Objects) предназначены для обеспечения доступа к источникам данных разных видов, от текстовых файлов до распределенных баз данных. ADO представляет собой объектно-ориентированный интерфейс для приложений, использующих OLE DB. OLE DB - это программный интерфейс, удовлетворяющий спецификации COM (Component Object Model, компонентная модель объектов), который предоставляет унифицированный способ доступа к различным источникам данных. Интерфейс OLE DB разрабатывался с целью получения оптимальной функциональности для приложений разных видов и поэтому не является простым в использовании. ADO - промежуточное звено между приложением и OLE DB, предоставляющее разработчикам приложений удобный объектно-ориентированный интерфейс.

1) Создание таблицы в объектных моделях DAO.

Public Sub Tovary_NewTable_DAO ()

' Создание таблицы средствами DAO

'Объявляем объектные переменные для объектов: база данных, таблица и поле

Dim base As Database, td As TableDef, fld As Field

'Устанавливаем ссылку на текущую базу данных

Set base = CurrentDb

'Создаем новую таблицу, используя метод CreateTableDef 'объекта Database

Set td = base. CreateTableDef ("TovaryDAO")

'Создаем поле в таблице, используя метод CreateField объекта 'TableDef.

Set fld = td. CreateField ("Код товара", dbInteger)

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

td. Fields. Append fld

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

Set fld = td. CreateField ("Товар", dbText)

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

td. Fields. Append fld

'Создаем 3-е поле с именем "Категория" и типом Текстовый

Set fld = td. CreateField ("Категория", dbText)

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

td. Fields. Append fld

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