Открытие источника данных
Таблица 16.5. Параметры метода OpenRecordset.
| Параметр | Тип | Обязательный или нет | Описание |
|---|---|---|---|
| <источник> | String | Обязательный | Источник записей для нового объекта Recordset. В качестве источника записей можно указать имя таблицы или запроса, а также инструкцию SQL, которая возвращает записи |
| <тип> | <константа> | Необязательный | Константа, указывающая тип открываемого объекта Recordset. Эти константы приведены в табл. 16.6 |
| <параметры> | <константы> | Необязательный | Произвольная комбинация определенных констант, задающих характеристики нового объекта Recordset. Эти константы приведены в справочной системе Access |
| <блокировки> | <константа> | Необязательный | Константа, определяющая тип блокировки объекта Recordset. Возможные константы перечислены в справке Access |
Таблица 16.6. Константы, определяющие тип набора записей.
| Константа | Тип набора записей |
|---|---|
| DbOpenTable | Открытие табличного обьекта Recordset (только в рабочей области ядра Microsoft Jet) |
| DbOpenDynaset | Открытие объекта Recordset типа динамического набора записей, аналогичного указателю ключевого набора записей ODBC |
| DbOpenDynamic | Открытие обьекта Recordset динамического типа, аналогичного динамическому указателю ODBC (только в рабочей области ODBCDirect) |
| DbOpenSnapshot | Открытие объекта Recordset типа статического набора записей, аналогичного указателю статического набора записей ODBC |
| DbOpenForwardOnly | Открытие объекта Recordset типа статического набора записей с последовательным доступом |
Далее приведен пример открытия таблицы, взятый из программного кода сервера приложения "Игра в доминирование" (программа 16.3).
Программа 16.3. Открытие таблицы в текущей базе данных
Dim db As Database Dim rs As Recordset 'Получаем доступ к текущей базе данных: Set db = CurrentDb 'Открываем таблицу сообщений для игрока(это связанная таблица): Set rs = db.OpenRecordset("Сообщения", dbOpenDynaset) 'Код использования таблицы... rs.Close 'Закрыли таблицу Set rs = Nothing ' Очистили объектные переменные Set db = Nothing