17

Теория и практические задания по ППО 2 семестр

Основы программирования с использованием ado, доступ и работа с базами данных Access.

I. Два этапа подготовки работы с базами данных:

Первый этап: создание связи.

1. В редакторе Visual Basic в окне Project Explorer выделите нужный проект. (В Access в любой момент времени доступен только один проект, поскольку нельзя, чтобы одновременно было открыто несколько баз данных. Поэтому фактически это действие можно пропустить.)

2. Выполните команду Tools / References, чтобы открыть диалоговое окно References.

3. В списке Available References установите флажок возле элемента Microsoft ActiveX Data Objects 2.7 Library

4. Шелкните на кнопке ОК.

Второй этап: создание источника данных

Всегда необходимо устанавливать связь, с помощью которой в коде можно будет запрашивать и изменять данные.

Два способа установить связь:

1) Объявить переменную типа Connection (Связь), после чего с помощью свойства Connection объекта CurrentProject установить связь:

Dim связь As Connection

Set связь = CurrentProject.Connection

2) Создать источник данных, который будет представлять определенную базу данных.

создавать источник данных нужно только один раз для одной базы данных

Для этого выполните следующие действия:

1. Откройте панель управления Windows и выберите элемент Источники данных ODBC. (В Windows XP, если у вас установлен вид по категориям, в левой части окна щелкните на элементе Переключение к классическому виду). Затем дважды щелкните на элементе Администрирование, после чего выберите Источники данных (ODBC).)

2. Во вкладке Системный DNS щелкните на кнопке Добавить. На экране появится диалоговое окно Создание нового источника данных.

3. В списке этого диалогового окна выберите элемент Microsoft Access Driver(*.mdb), после чего щелкните на кнопке Готово.

4. В текстовое поле Имя источника данных введите название нового источника данных. Это имя будет использоваться в процедурах VBA. (В примерах используется база данных db1.mdb, которая входит в поставку Microsoft Office, поэтому введите название «db1»).

1. В поле, которое расположено ниже, можно ввести описание нового источника данных, но это необязательно.

2. Щелкните на кнопке Выбрать и в появившемся диалоговом окне Выбор базы данных выберите файл базы данных Access, с которым будете работать (по умолчанию в Microsoft Office 2003 файл db1.mdb расположен по адресу С: \ Program Files\ Microsoft Office\Office11\Samples\). Затем щелкните на кнопке ОК.

3. Щелкните на кнопке ОК, чтобы вернуться в окно Администратор источников данных OBDC.

1. Щелкните на кнопке ОК.

II. Практическая работа с базой данных:

открытие набора записей

Oбъект Recordset (Набор записей).

• объявить переменную типа Recordset.

Dim нз As Recordset

• присвоить этой переменной новый объект типа Recordset.

Set нз = CreateObject("ADOBD.Recordset")

Поскольку технология ADO не встроена в Access (как и в другие приложения), то объекты данного типа необходимо объявлять явно с помощью метода VBA CreateObject.

• открыть объект типа Recordset с помощью метода Open:

Синтаксис:

Recordset.Open, Source, Connection, CursorType, LockType, Options

Recordset - Объект типа Recordset

Source - Источник набора записей. Здесь можно указать название таблицы или применить оператор select языка SQL

Connection - Используемая связь, которая в данном случае будет содержать только название источника необходимых для работы данных

CursorType - Константа (указатель), которая определяет, каким образом будет открыт набор записей

• adOpenForwardOnly - Допустимо только чтение с возможностью просмотра вперед. Эта константа используется в случаях, когда нужно быстро один раз просмотреть записи. Установлена по умолчанию.

• adOpenDynamic - Позволяет вставлять и изменять записи, а также видеть изменения, которые внесли другие пользователи.

• adOpenKeyset - Указатель набора ключей, который позволяет вставлять и изменять записи, а также видеть все изменения, внесенные другими пользователями, кроме вставки новых записей

• adOpenStatic - Создает статическую копию записей. Можно вставлять и изменять записи, но при этом не видно изменений, которые внесли другие пользователи

LockType - Константа, которая определяет параметры блокировки нового набора записей

• adLockReadOnly - Запрещает пользователю вносить изменения в записи. Установлена по умолчанию

• adLockPessimistic - В многопользовательском окружении текущая запись блокируется, как только в нее начинают вносить изменения

• adLockOptimistic - В многопользовательском окружении текущий набор записей не блокируется, пока не будет вызван метод Update

• adLockBatchOptimistic - Обновления происходят в пакетном режиме. Используется в случаях, когда нужно изменить несколько записей, а затем сразу обновить все записи

Options - Константа, которая определяет, как приложение должно интерпретировать значение источника Source. В справочной системе VBA можно найти полный список допустимых

констант из групп adCmd и adAsync

Перед открытием набора записей можно предварительно установить значения следующих свойств объекта Recordset:

• Recordset Source. Название таблицы или оператор SELECT языка SQL, который определяет источник данных для объекта Recordset.

• Recordset.ActiveConnection. Связь, которая будет использоваться для объекта Recordset.

• Recordset.CursorType. Тип указателя, который будет использоваться совместно с объектом Recordset.

• Recordset.LockType. Константа, которая определяет параметры блокировки объекта Recordset.

После задания значений этим свойствам можно вызвать метод Open без аргументов