Программа 16.5. Изменение структуры таблицы с помощью интерфейса dао

Dim db As Database

Dim fieldSize As Long, i As Long

Dim strSQL As String

Dim fid As Field

^' Узнаем линейный размер игрового поля, выраженный в клетках

fieldSize = CLng(get_parameter("РазмерПоля"))

' Открываем базу данных, в которой хранится нужная таблица

Set db = OpenDatabase(CurrentProject.Path & "\DominationGame.mdb")

' Удалить старые записи в таблице "ПолеИгрок"

StrSQL = "DELETE * FROM ПолеИгрок;" db.Execute strSQL

' Удалить старые поля в таблице "ПолеИгрок"

For i = 1 То db.TableDefs("ПолеИгрок").Fields.Count

db.TableDefs("ПолеИгрок").Fields.Delete

get_column_name(i) Next i

' 'Создать новые поля в таблице "ПолеИгрок"

For i = 1 То fieldSize

Set fid = db.TableDefs("ПолеИгрок").CreateField( _

get_column_name(i), dbText, 20)

db.TableDefs("ПолеИгрок").Fields.Append fid

Next I

' Прочие действия ...

db.Close

В программе 16.5 проиллюстрировано удаление и добавление полей в таблицу "ПолеИгрок" средствами DDL с использованием интерфейса DАО. Удаление поля производится с помощью метода Delete, в качестве параметра которого указывается имя удаляемого поля. Добавление нового поля производится следующим образом. Создается новый объект Field, обладающий необходимыми характеристиками — заданным именем поля, типом и размером данных. После этого с помощью метода Append созданный объект Field добавляется в семейство Fields объекта TableDef, содержащее все поля таблицы "ПолеИгрок". Аналогично (с помощью DАО) можно выполнить создание и удаление таблиц и индексов.

Выполнение операций с данными

Для изменения данных в источнике создан язык структурированных запросов (SQL, Structure Query Language). Инструкции на языке SQL позволяют выполнять действия по изменению данных, например — добавлять, изменять или удалять записи в таблице или запросе, выбирать набор записей из источника, удовлетворяющий заданному условию.

C помощью объектов DАО можно осуществлять всевозможные манипуляции с данными. Например, такие как:

• получение набора записей из таблицы;

• выполнение запроса SQL для получения набора записей;

• использование запроса, сохраненного в базе данных в виде объекта;

• использование набора методов объекта Recordset, предоставляющего широкие возможности по обработке данных: чтение, анализ и изменение данных без составления инструкций на языке SQL.

В следующих примерах приведены приемы программного изменения данных в открытом наборе записей (программы 16.6—16.8). Переменная rs соответствует открытому набору записей — объекту типа Recordset.

Программа 16.6. Добавление записи в таблицу

' Добавляем сообщение в таблицу сообщений клиента

rs.AddNew ' Создание новой записи

rs!ИмяИгрока = playerName ' Запись значения в поле ИмяИгрока

rs!Сообщение = message ' Запись значения в поле Сообщение

rs.Update ' Сохранение изменений в источнике

rs.Bookmark = rs.LastModified

' Перемещение курсора на новую запись