Получение результатов запроса в Access с помощью 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 = "INSERT INTO CityTbl ([City], [State])" stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');» DoCmd. SetWarnings False DoCmd. RunSQL (строкаSQL)
stringSQL = "INSERT INTO CityTbl ([City], [State])" stringSQL = stringSQL & "ЗНАЧЕНИЯ ('Даллас', 'Техас');" DoCmd. SetWarnings False DoCmd. RunSQL (строкаSQL)
Шаг 5
Введите следующее, чтобы определить свой запрос и открыть набор записей:
stringSQL = "ВЫБРАТЬ CityTbl. * FROM CityTbl;" Установите RecordSt = dBase. OpenRecordset (строкаSQL)
ШАГ 6
Введите следующее, чтобы создать «цикл For» и отобразить результаты запроса в окне сообщения:
Запись MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields ("City"). Value & "," & RecordSt. Fields ("State"). Value) RecordSt. MoveNext Next rCnt
Нажмите «F5», чтобы выполнить подпрограмму.
