Лабораторная работа
Программное создание базы данных с результатами расчетов
Цель работы
Приобретение навыков создания базы данных, а в ней – таблиц с полями.
Задание свойств полей и занесение информации в эти поля.
Задание для самостоятельной работы
Изучить приведенные методические указания. Написать приложение, которое считает по заданной формуле массив данных и заносит эти данные в базу данных и в таблицу Grid. В программе - создать базу данных, создать таблицы, поля, и заполнить базу результатами расчетов.
Содержание отчета
Отобразить заданные таблицы.
Перечислить созданные поля таблиц.
Описать формат каждого созданного поля.
Подробное описание последовательности действий при создании и заполнении базы данных.
Методические указания
Создание Базы Данных
Visual Basic содержит два объекта доступа к данным BDEngine и Workspace. Для создания БД применяется метод CreateDatabase, который является частью объекта Workspace. Рабочая область (Workspace) создается при каждом доступе к Jet-машине. При необходимости можно открывать другие рабочие области. Если при работе с функциями не указывается ID-номер рабочей области, то подразумевается рабочая область по умолчанию.
При помощи оператора Dim (или Public для модуля) описываем переменную NewDB, как объект БД, создаем рабочую область и с помощью метода CreateDatabase создаем Базу Данных.
'Объявляем необходимые переменные
Dim NewDB As Database
Dim NewWs As WorkSpace
Dim strDBPath As String
'Устанавливаем путь к создаваемой БД с указанием ее имени (MyDB.mdb)
StrDBPath = “C:\ExamplDB\MyDB.mdb”
Совет. Для получения имени файла БД и пути к ней можно использовать диалоговое окно Open, эл. управления CommonDialog.
Совет. Перед тем, как создавать базу, можно проверить, а не создана ли она уже в той папке, где вы хотите её создать:
'Проверка на существование БД
If Dir(App.Path & "\" & strDBPath, vbNormal) = "" Then
тут вставьте команды на создание рабочего пространства и создание Базы Данных:
'Создаем рабочее пространство
Set NewWs = DBEngine.Workspaces(0)
'Создаем Базу Данных
Set NewDB = NewWs.CreateDatabase (strDBPath, dbLangGeneral)
Константа dbLangGeneral является обязательным параметром метода CreateDatabase . Она описывает язык и кодовую страницу для американских компьютеров. Для русской версии употребляют dbLangCyrillic:
Set NewDB = NewWs.CreateDatabase (strDBPath, dbLangCyrillic, lngDBOpts)
End If
Пока что созданный файл – пуст и с ним ничего нельзя делать пока не будут созданы таблицы.
Создание Таблиц
Для создания новой таблицы необходимо определить новый объект TableDef (Table Definition – описание таблицы). Объект TableDef содержит всю необходимую информацию для определения таблицы БД. Он описывает в БД тип информации, хранимой в таблице и некоторые факультативные свойства этой таблицы.
Свойства объекта TableDef устанавливаются при создании таблицы и их значения различаются для собственных таблиц Microsoft Jet и присоединенных таблиц.
Следующие операторы показывают, как создать объект TableDef и определить имя таблицы:
'Объявляем необходимые переменные
Dim NewTbl As TableDef
Dim strDBPath As String
'Создаем таблицу
Set NewTbl = NewDB.CreateTableDef (Name)
Свойство таблицы Name является одним из свойств объекта TableDef, и обычно это свойство единственное, которое необходимо для создания таблицы БД Access.
При подключении к БД внешней таблицы можно использовать некоторые другие свойства (Attributes, Connect, SourceTableName и т.д – рассматривать мы их не будем). Эти свойства можно указывать как последовательные параметры метода CreateTableDef. Можно также определять и другие свойства, давая им некоторые значения. Эти операторы должны следовать за методом CreateTableDef.
После выполнения вышеприведенного кода вы создадите таблицу, но это не все - необходимо описать хотя бы одно поле, для того чтобы действительно таблица появилась в БД.
Таблица может иметь одно или множество полей.