Как получить доступ к результатам запроса VBA

Знание того, как читать результаты запроса Microsoft Access, может помочь вам сделать ваше приложение Access более динамичным. Access является частью пакета Microsoft Office и используется для создания реляционных баз данных. Visual Basic для приложений (VBA) можно использовать в Access для создания приложений Windows и извлечения данных из базы данных. Запрос создается с использованием инструкций языка структурированных запросов (SQL) для запроса информации из базы данных.

Шаг 1

Запустите Microsoft Office Access 2007 и выберите «Пустая база данных», затем нажмите «Создать». Нажмите «Инструменты базы данных» и выберите «Visual Basic». Щелкните поле «Вставить» и выберите «Модуль».

Введите «Private sub readQueryResults» и нажмите «Enter», чтобы создать новую подпрограмму.

Шаг 2

Введите следующее, чтобы объявить переменные, которые вы будете использовать для чтения результатов запроса:

Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer

Шаг 3

Введите следующее, чтобы создать таблицу «CityTbl»:

stringSQL ="СОЗДАТЬ ТАБЛИЦУ CityTbl (ТЕКСТ города (25), ТЕКСТ штата (25));" DoCmd.RunSQL (строкаSQL)

Шаг 4

Введите следующее, чтобы добавить две новые записи в таблицу «CityTbl»:

stringSQL ="ВСТАВИТЬ В CityTbl ([Город], [Штат] ) " stringSQL =stringSQL &"ЗНАЧЕНИЯ ("Форт-Уэрт", "Техас");" DoCmd.SetWarnings False DoCmd.RunSQL (stringSQL)

stringSQL ="ВСТАВИТЬ В CityTbl ([Город], [Штат] ) " stringSQL =stringSQL &"ЗНАЧЕНИЯ ('Даллас', 'Техас');" DoCmd.SetWarnings False DoCmd.RunSQL (stringSQL)

Шаг 5

Введите следующее, чтобы определить запрос и открыть набор записей:

stringSQL ="ВЫБЕРИТЕ CityTbl.* FROM CityTbl;" Установить RecordSt =dBase.OpenRecordset(stringSQL)

Шаг 6

Введите следующее, чтобы создать «Цикл по элементам» и отобразить результаты запроса в окне сообщения:

RecordSt.MoveFirst For rCnt =0 To RecordSt.RecordCount MsgBox (RecordSt.Fields("Город").Value &", " &RecordSt.Fields("Штат").Value) RecordSt.MoveNext Next rCnt

Нажмите «F5», чтобы выполнить подпрограмму.