Шаг 106 - Свойство Restartable

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

Значение
Возвращаемое значение имеет тип Boolean и содержит значение True, если объект Recordset поддерживает метод Requery. Для табличных объектов Recordset всегда возвращается значение False.

Замечания
Значение свойства Restartable проверяют перед вызовом метода Requery для объекта Recordset. Если данное свойство имеет значение False, то для повторного выполнения запроса следует вызвать метод OpenRecordset для базового объекта QueryDef.

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

Sub RestartableX()

	Dim dbsNorthwind As Database
	Dim rstTemp As Recordset

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

	With dbsNorthwind
		' Открывает табличный объект Recordset 
		' и печатает его свойство Restartable.
		Set rstTemp = .OpenRecordset("Сотрудники", dbOpenTable)
		Debug.Print "Табличный набор записей для таблицы 'Сотрудники'"
		Debug.Print "    Restartable = " & rstTemp.Restartable
		rstTemp.Close
		' Открывает объект Recordset из инструкции SQL 
		' и печатает его свойство Restartable.
		Set rstTemp = .OpenRecordset("SELECT * FROM Сотрудники")
		Debug.Print "Объект Recordset, открытый из инструкции SQL"
		Debug.Print "    Restartable = " & rstTemp.Restartable
		rstTemp.Close
		' Открывает объект Recordset сохраненного объекта QueryDef
		' и печатает его свойство Restartable.
		Set rstTemp = .OpenRecordset("Список товаров")
		Debug.Print "Объект Recordset, открытый из объекта QueryDef (" & rstTemp.Name & ")"
		Debug.Print "    Restartable = " & rstTemp.Restartable
		rstTemp.Close
		.Close
	End With
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 20.03.2002