Удаление полей
Для удаления поля используется метод Delete.
'Удаляем из таблицы NewTbl поле Age
NewTbl.Fields.Delete “Age”
или
'Удаляем из БД NewDB, таблицы с имене Name поле Age
NewDB.TableDefs(Name).Fields.Delete “Age”
Итак, вы создали БД, затем таблицу (или таблицы), описали и присоединили поля к таблице и кажется БД готова. Но нет! БД еще немного сыровата. Есть еще один ключевой момент – индексы. Индексами или индексными полями, как их иногда называют, являются знакомые вам ключевые поля. Необходимо отметить, что почти во всех БД индексы используются только для ускорения обработки больших файлов и выполняют небольшую роль в поддержке отношений между таблицами. В используемых Visual Basic БД (mdb-файлы), ключевые поля используют и для установки ограничения целостности, и для ускорения поиска и для выборки информации.
Создание индексов
Способ создания индексов тесно связан с созданием самой таблицы. Для каждого индекса нужно определить имя, описать поля, включаемые в индекс, и указать, будет ли данный индекс первичным и допускаются ли повторяющиеся значения в полях образующих индексный ключ.
Создание первичного ключа (PrimaryKey)
Главной задачей первичного ключа является поддержка внутренней целостности таблицы и поэтому в ней не может быть две одинаковой записи. Обычно первичный ключ используют в полях, где содержатся номера телефонов, счета фактур и т.д. Для создания индекса нужно выполнить следующие действия
(считаем, что БД и Таблица уже созданы, поля описаны и добавлены к таблице):
При помощи метода CreateIndex объекта TableDef, создаем объект Index;
Устанавливаем свойства индекса;
Добавляем индекс к таблице;
Здесь приводится код создания индекса:
Dim Idx1 As Index
'Создаем объект индекс
Set Idx1 = NewTbl.CreateIndex("PrimaryKey")
'Устанавливаем его свойства
Idx1.Name = "PrimaryKey"
Idx1.Primary = True
'Свойство Fields должно быть таким же, как имя поля, которое становится индексным
Idx1.Fields = "ID"
'Прибавляем индекс к таблице
NewTbl.Indexes.Append Idx1
После выполнения всех этих процедур можно добавить таблицу к БД.
NewDB.TableDefs.Append NewTbl
После этого созданную БД лучше закрыть
NewDB.Close
Теперь нужно занести данные в базу.
'Открываем БД
Set NewDB = OpenDatabase(strDBPath, False, False)
'Открываем recordset
Set rs = NewDB.OpenRecordset("ttt", dbOpenDynaset)
Теперь в цикле выполняем такие команды:
'Подготавливаем recordset к введению новой
записи
rs.AddNew
rs("Field_X") = X 'записываем X в БД
rs("Field_Y") = Y 'записываем Y в БД
'С помощью Update обновляем данные в БД
rs.Update
Порядок выполнения работы
Создайте форму, на которой разместите 2 кнопки: “Запуск” и “Выход из программы”, и таблицу MSFlexGrid
(рис.1)
рис.1
При нажатии на кнопку “Запуск” должен производиться расчет нескольких значений формулы, занесение этих значений в таблицу MSFlexGrid, а также – в таблицу созданной Вами базы данных. Свой вариант возьмите в заданиях к лабораторной работе №8 по VB (cм. в приложении).
В процедуру Command1_Click() вставьте команды создания базы данных, в ней – таблицы с полями. В этих полях выводите результаты расчета.
Приложение. Задания для расчетов