21. Программирование с объектами dao. Создание переменной RecordSet. Перемещение по набору записей. Пример (фрагмент).

Создает новый объект Recordset и добавляет его в семейство Recordsets.

Параметры

наборЗаписей

Объектная переменная, представляющая открываемый объект Recordset.

объект

Объектная переменная, представляющая существующий объект, используемый при создании нового объекта Recordset.

источник

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

Пример(фрагмент)

Следующая программа использует метод OpenRecordset для открытия пяти объектов Recordset и отображения их содержимого. Для выполнения данной процедуры требуется процедура OpenRecordsetOutput.

Sub OpenRecordsetX()

Dim wrkJet As Workspace

Dim wrkODBC As Workspace

Dim dbsNorthwind As Database

Dim conPubs As Connection

Dim rstTemp As Recordset

Dim rstTemp2 As Recordset

' Открывает сеансы Microsoft Jet и ODBCDirect, базу данных

' Microsoft Jet и подключение ODBCDirect.

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

Set wrkODBC = CreateWorkspace("", "admin", "", dbUseODBC)

Set dbsNorthwind = wrkJet.OpenDatabase("Борей.mdb")

……

Loop

End With

End Sub

22.Программирование с объектами dao. Работа с полями объекта RecordSet. Создание запросов.

Параметры

наборЗаписей

Представляет объектную переменную, задающую обновляемый объект Recordset, в который требуется добавить новую запись.

Замечания

Метод AddNew создает и добавляет новую запись в объект Recordset с именем наборЗаписей. Данный метод присваивает всем полям записи значения Null (пустые значения, присваивающиеся полям объекта Recordset табличного типа по умолчанию) или значения по умолчанию, определенные пользователем.

После внесения изменений в новую запись следует вызвать метод Update для сохранения изменений и добавления записи в объект Recordset. До вызова метода Update изменения в базу данных не заносятся.

Пример

Sub AddNewX()

Dim dbsNorthwind As Database

Dim rstEmployees As Recordset

Dim strFirstName As String

Dim strLastName As String

Set dbsNorthwind = OpenDatabase("Борей.mdb")

Set rstEmployees = dbsNorthwind.OpenRecordset("Сотрудники", dbOpenDynaset)

' Принимает данные от пользователя.

strFirstName = Trim(InputBox( "Введите имя:"))

strLastName = Trim(InputBox( "Введите фамилию:"))

' Продолжает выполнение, только если пользователь ввел данные для имени и фамилии.

If strFirstName <> "" and strLastName <> "" Then

' Вызывает функцию, добавляющую запись.

AddName rstEmployees, strFirstName, strLastName

' Отображает добавленные данные.

With rstEmployees

Debug.Print "Новая запись: " & !Имя & " " & !Фамилия

' Удаляет новую запись, созданную только для демонстрации.

.Delete

End With

Else

Debug.Print "Необходимо ввести строки для имени и фамилии!"

End If

rstEmployees.Close

dbsNorthwind.Close

End Sub