Технология ADO доступа к базам данных

9.9.1. Объект управления ADO Data (Adodc)

Объект Adodc (компонент Microsoft ADO Data Control 6.0 (OLEDB)) аналогичен объекту Data (п. 9.4.1), но является более современным, уни­вер­сальным, дает возможность получить доступ к локальным и удаленным базам класса клиент‑сервер и к нереляционным источникам данных по цепочке: форма, свойства связанных элементов управления DataSource и DataField, свойства ConnectionString и RecordSource элемента ADO Data, база данных. После размещения этого элемента на форме для установки связи с нужной базой и с одной из ее таблиц следует выполнить следующие действия (на примере нашей базы “Строительство.mdb”):

1. Щелкните правой кнопкой мыши; на этом объекте выберите команду ADODC Properties.

2. В появившемся окне Property Pages включите флажок User Connection String и нажмите кнопку Build.

3. Появится окно Data Link Properties, в котором выберите провайдер Microsoft.Jet.OLEDB.4.0 и нажмите кнопку Next для перехода на страницу Connection; введите (выберите) имя нашей базы “Строительство.mdb”; нажмите кнопку для тестирования соединения (рис. 9.7.1), а затем нажмите кнопку OK.

Можно подключить базу динамически из программы командами:

Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;“ & _

 “Data Source=“ & App.Path & “\Строительство.mdb; Persist Security Info=False”

4. Щелкните на вкладке RecordSource и в списке Command Type выберите строку 2-adCmdTable.

5. В списке Table or Store Procedure Name выберите имя таблицы, например Stroiki.

После размещения на форме любого связанного с базой элемента, например текстового поля TextBox, его свойству DataSource нужно задать значение, равное имени объекта Adodc, например Adodc1, а другому его свойству DataField присвоить значение, равное имени поля базы, которое используется связанным элементом.

Рассмотрим три основных свойства элемента ADO Data.

CommandType ‑ определяет тип команды, выдаваемой источнику для выбор­­ки записей: работа с текстами (1-adCmdText), таблицами (2- adCmd­Tab­le), хранимыми процедурами; запрос или другая команда, встро­ен­­ная не­посредственно в базу данных (adCmdStoreProc).

EOFAction - определяет поведение элемента при переходе к концу таблицы.

Mode   ‑ управляет доступом к данным: только чтение (1-adModeRead), монопольное использование (12-adModeShareExclusive) и др.

Имеются два варианта включения новой записи ‑ с использованием программного кода и без кода:

1. Создать кнопку Добавить с командой Adodc1.Recordset.addNew

и кнопку Изменить с командой Adodc1.Recordset.Update.

     2. Установить для элемента Adodc свойство EOFAction=2 ‑ adDo­Add­New. Перейти на последнюю запись (нажать кнопку Move Last). На­жать кнопку Next. Выведется пустая запись, ввести новые значе­ния и перей­ти на предыдущую запись.

     Дляудаления текущей записи используются команды:

Adodc1.Recordset.Delete

Adodc1.Recordset.Next или Adodc1.Recordset.Last

Событие MoveComplete  наступает, когда новая запись становится текущей и используется для вычисления некоторых значений, блокировки отдельных элементов, например командных кнопок, и др.

     Событие WillChangeRecord  возникает перед изменением текущей записи при переходе к новой записи после изменения текущей. Обычно в процедуре обработки этого события проверяют правильность введенных значений, и если значения ошибочны, то выводят сообщение об ошибке, параметру этой процедуры adStatus присваивают значение adStatusCancel.

Командные средства

     Общая схема работы в ADO: подключение библиотек ADO к при­ло­жению; подключение к источнику через объект Connection; формирование ка­талога (объект Catalog) при создании таблиц и индексов; открытие, фор­ми­рование и обработка набора данных Recordset; закрытие и удаление объектов Recordset, Catalog, Connection.

     Подключение библиотек

     Технология ADO подобна DAO (п.9.4), но является более современ­ной, универсальной, эффективной и обеспечивает дополнительный доступ к данным через Web‑сервер Internet. В приложении допускается однов­ремен­ное ис­поль­зование этих технологий с уточнением типа объектных пе­ре­менных Connection, Database, Recordset при их объявлении уточ­нителями adodb и DAO соответственно для ADO и DAO.

Пример. Dim adodb As adodb.Recordset: daodb As DAO.Recordeset

Библиотека ADO устанавливается вместе с Visual Basic 6.0 или бес­плат­но копируется с Web‑сервера фирмы Microsoft по адресу: (http: //www.microsoft.com/data/ado/.

Внимание! Перед работой c ADO командой Pro­ ject/ References выз­о­вите окно References и выберите библиотеку Micro­soft ActveX Data Objects 2.0 Library.