Запрос, сохраненный в базе данных, называется постоянным (persistent query). Вы можете создавать постоянные запросы в Visual Basic с помощью DAO или в Microsoft Access через его пользовательский интерфейс.

Для создания постоянного запроса с помощью DAO предназначен метод CreateQueryDef объекта Database:

Const conPath As String = _
═════"C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
Dim dbs As Database, qdf As QueryDef, rst As Recordset
Dim strSQL As String

strSQL = "SELECT FirstName, LastName, HireDate FROM Employees " _
═════& "WHERE Title = 'Sales Representative' ORDER BY HireDate;"
Set dbs = OpenDatabase(conPath)
Set qdf = dbs. CreateQueryDef( "Sales Representatives", strSQL)
Set rst = qdf.OpenRecordset

Вам не нужно добавлять объект QueryDef в набор QueryDefs. Когда Вы указываете какое-то значение для аргумента имя метода CreateQueryDef в рабочем пространстве Microsoft Jet, DAO автоматически добавляет новый объект QueryDef в набор QueryDefs объекта Database. А если Вы ставите в качестве аргумента имя пустую строку, DAO создает временный объект QueryDef.

Примечание: В рабочем пространстве ODBCDirect объекты QueryDef всегда являются временными.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997