Применение метода GetRows объекта Recordset
Пример:
Скопировать в двумерный массив первые 3 записи из таблицы «Товары» и вывести их в окно Immediate.
Private Sub Кнопка0_Click()
Dim basa As Database, nabor As Recordset, Массив As Variant, i, j As Byte
Set basa = CurrentDb
Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot)
With nabor
Массив =.GetRows(3) 'копируем 3 записи в массив
End With
For i = 0 To UBound(Массив, 2)
For j = 0 To UBound(Массив, 1)
Debug.Print Массив(j, i) & " ";
Next j
Debug.Print vbch
Next i
End Sub
Результат:
Глава 21. Объекты QueryDef
Объект QueryDef представляют собой хранимое определение запроса. Он не содержит данных из таблиц, выбираемых по запросу.
Свойства объектов QueryDef
|
Свойство |
Описание |
|
DateCreated
Connect
LastUpdated
Name
RecordsAffected
Type Updatable |
Возвращает дату и время создания хранимого запроса. Содержит информацию об источнике связанной таблицы. Возвращает дату и время последнего изменения хранимого запроса. Идентифицирует объект QueryDef. Если присвоить свойству Name строку нулевой длины (“ “), будет создан временный запрос. Возвращает число записей, затронутых при последнем запуске метода Execute в объекте QueryDef. Определяет тип запроса. Определяет, можно ли вносить изменения в определение запроса. |
|
|
|
Методы объекта QueryDef
|
Метод |
Описание |
|
Close CreateProperty Execute
OpenRecordset |
Закрывает открытый объект QueryDef. Создаёт новый пользовательский объект Property. Выполняет запрос на действие для указанного объекта QueryDef. Так как, такие запросы не возвращают записи, метод Execute ничего не возвращает. Создаёт новый объект Recordset на основе объекта QueryDef. |
Использование метода Execute
Метод Execute можно запускать хранимые запросы на действие.
Синтаксис метода:
Объект.Execute источник, параметры,
где источник – имя хранимого запроса на действие в строковом формате,
параметры - необязательная целая константа, которая определяет характеристики запроса.
DbDenyWrite - запрещает другим пользователем доступ на запись.
dbInconsistent - выполняет несовместимые обновления.
dbConsistent -выполняет совместимые обновления
dbFailError - отменяет изменения при возникновении ошибок.
dbSeeChanges - генерирует ошибку в случае, если другой пользователь
изменяет редактируемые данные.
Примечание:
Если в момент вызова метода Execute для запроса на обновление таблицы или удаление какие-либо записи блокированы, то метод не обновит и не удалит блокированной записи. Но ошибка не вызовется, поэтому во избежание нарушения целостности данных нужно устанавливать параметр dbFailError.