Отримати результати запиту в Access за допомогою VBA.
Знання того, як читати результати запиту Microsoft Access, може допомогти вам зробити вашу програму Access більш динамічною. Access є частиною пакету Microsoft Office і використовується для створення реляційних баз даних. Visual Basic for Applications (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 (stringSQL)
Крок 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.* З CityTbl;" Встановіть RecordSt = dBase. OpenRecordset (stringSQL)
Крок 6
Введіть наступне, щоб створити «цикл для» та відобразити результати запиту у вікні повідомлення:
RecordSt. MoveFirst Для rCnt = 0 Для RecordSt. RecordCount MsgBox (RecordSt. Fields("City").Value & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext Next rCnt
Натисніть «F5», щоб виконати підпрограму.
