Например

Sub

Dim A As String

A = Data1.RecordSet.Fields(“Name”).Value

MsgBox “Фамилия: ” + A

End Sub

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

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

DBEngine[AAnA2]

Workspace

Database

TableDef QueryDef Recordset Container Relation

Field Field Field Document Field

Index Parameter

Error Field

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

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

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

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

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

DBEngine. Workspaces(0). Databases(0). [AAnA4] ss TableDefs (0).Fields(“Customer”)

адресуется к полю Customer в первом TableDef коллекции TableDefs первого Database коллекции Databases первого Workspace коллекции Workspaces объекта DBEngine. Кроме того, для коллекции Fields можно вместо индекса использовать свойство Name объекта Field коллекции. При явном обращении к члену коллекции по именивместо точки используется восклицательный знак. Например, [AAnA5] ss

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