Объектная модель DAO

Объекты доступа к данным

Loop

Data1. RecordSet. MoveNext

Data1. RecordSet. Delete

Do While Not Data1.RecordSet.EOF

Data1. RecordSet. MoveFirst

Data1. Recordset. Close

Loop

End Select

Exit Do

Case Else

End If

Data1. Recordset. MoveFirst

If Data1. Recordset. BOF Then

Data1. Recordset. MovePrevious

Case 2

End If

Data1. Recordset. MoveLast

If Data1. Recordset. EOF Then

Data1. Recordset. MoveNext

Case 1

Select Case InputBox (strMessage)

Do While True

Dim strMessage As String

Пример. Перемещение по записям внутри набора

…..

strMessage = "Введите 1 для перемещения на следующую запись,_

2 для перемещения на предыдущую запись:"

MsgBox " Конец файла”

MsgBox " Начало файла!"

……

Пример. Удаление всех записей в таблице.

Объектная модель DAO - объектно-ориентированный интерфейс процессора БД Jet. Это иерархия классов, которые являются логическим представлением реляционной модели базы данных. Эти классы используются для создания объектов доступа к данным, обращающихся к конкретной базе данных.

Рисунок 5.2. Фрагмент объектной иерархии DAO.

Наличие объектной иерархии означает, что объекты могут содержать другие объекты, которые, в свою очередь, могут содержать третьи объекты. Это объектное включение реализуется через специальный вид объекта - коллекцию. Основное назначение объекта - коллекции – включать и группировать другие объекты. Все объекты, содержащиеся в данной коллекции, одного вида.

Элементы в иерархии DAO фактически классы, а не объекты. Это макеты для объектов, создаваемых при формировании приложения базы данных. Класс подобен типу данных в том смысле, что он описывает, к какому виду объекта происходит обращение. Например, в объявлении Dim Ws As Workspace устанавливается, что переменная Ws будет служить ссылкой на объект класса Workspace.

Наверху иерархии - объект DBEngine, непосредственно процессор базы данных MS Jet. Он является владельцем коллекции Workspace s (рабочая область), которая содержит объекты типа Workspace. Каждый объект Workspace включает коллекцию Databases, которая содержит один или больше объектов Database. Каждый объект Database включает коллекцию TableDefs, которая содержит один или больше объектов TableDef (определение таблицы) и так далее.

Объекты члена коллекции индексируются, начиная с 0, и могут быть доступны через этот индекс. Например, первый объект TableDef объекта Database, именуемого Database1, будет адресоваться как

Database1. TableDefs (0).

Второй объект TableDef того же объекта Database - Database1.TableDefs(1) и так далее. Объекты в иерархии идентифицируются полным путем через вложенные коллекции, к которым они принадлежат. Например:

DBEngine.Workspaces(0).Databases (0). TableDefs (0). Fields (“Customer”) адресуется к полю Customer в первом TableDef коллекции TableDefs первого Database коллекции Databases первого Workspace коллекции Workspaces объекта DBEngine. Кроме того, для коллекции Fields можно вместо индекса использовать свойство Name объекта Field этойколлекции. При явном обращении к члену коллекции по имени, вместо точки используется восклицательный знак.

Например:

TableDefs (0). Fields (“Customer”) эквивалентно

TableDefs (0). Fields! Customer.

Большинство объектов доступа к данным имеет умолчательные коллекции. Это позволяет упрощать программный код. Например, умолчательная коллекция, которую содержит объект Recordset - коллекция Fields. Поэтому все 3 записи эквивалентны:

Cust= Recordset1! Customer

Cust= Recordset1. Fields! Customer

Cust= Recordset1. Fields (“Customer”).

Дата добавления: 2014-12-10