• ГЛАВА 15. РАБОТА С ВНЕШНИМИ БАЗАМИ ДАННЫХ
• СОЗДАНИЕ ЗАПРОСОВ С ПОМОЩЬЮ MICROSOFT QUERY
• ЧТО ТАКОЕ ODBC?
• MICROSOFT JET
• DАО — ОБЪЕКТНЫЙ ДОСТУП К ДАННЫМ
• ПОРЯДОК РАБОТЫ ПРИ ОБЪЕКТНОМ ДОСТУПЕ К ДАННЫМ
  • Создание рабочей области
  • Открытие базы (источника) данных
  • Объект Recordset
• ПРИМЕР ПРИЛОЖЕНИЯ

Глава 15.

Работа с внешними базами данных

Создание запросов с помощью Microsoft Query

В Microsoft Office входит отдельная программа, которая называется Microsoft Query, предоставляющая доступ к базам данных, созданных с помощью таких программных средств, как dBASE, Access, Paradox, Microsoft SQL Server и т. п. Эта программа позволяет отбирать информацию из базы данных, сортировать, редактировать и копировать ее на рабочий лист. Используя Microsoft Query, можно получить данные на основе заданных пользователем критериев. Excel связывается с Microsoft Query посредством механизма DDE (Dynamic Data Exchange — динамический обмен данными). Microsoft Query работает с внешними источниками данных через драйверы ODBC (Open Database Connectivity), которые являются разработанным Microsoft стандартом для работы с базами данных. Для получения данных по запросу посредством драйвера ODBC используется язык запросов SQL (Structured Query Language).

Рассмотрим последовательность создания запроса при помощи Microsoft Query на основе простой базы данных о студентах, созданной в Access (рис. 15.1).

Выполните команду Данные, Внешние данные, Создать запрос (Data, Get External Data, New Database Query). Появится диалоговое окно Выбор источника данных (Choose Data Source) (рис. 15.2). В этом окне выберите источник данных, например базу данных, составленную в Access 97. Нажмите кнопку Параметры (Options), при помощи появившегося окна Источник данных (Data Source) можно установить папки, в которых следует искать источник данных. Итак, выберите базу данных, составленную в Access 97, в качестве источника и нажмите кнопку ОК.

В появившемся диалоговом окне Select Database (рис. 15.3) в списке Database Name выберите имя файла базы данных (в данном случае студенты.mdb) и нажмите кнопку ОК, что приведет к запуску мастера запросов.

Рис. 15.1. База данных о студентах

Рис. 15.2. Диалоговое окно Выбор источника данных

Рис. 15.3. Диалоговое окно Select Database

Откроется диалоговое окно Создание запроса: выбор столбцов (Query Wizard — Choose Columns) (рис. 15.4), которое позволяет добавлять столбцы или поля в список Столбцы запроса (Query Columns). При нажатии на кнопку >, расположенную в средней части диалогового окна Создание запроса: выбор столбцов (Query Wizard Choose Columns), выбранный столбец добавляется в запрос, кнопка < служит для удаления выбранного столбца из списка столбцов запроса, а кнопка « позволяет удалить все столбцы запроса. В рассматриваемом случае в список Столбцы запроса (Query Columns) добавим все поля базы данных, кроме поля номер. Нажмите кнопку Далее > (Next >), переходя к следующему шагу работы мастера запросов.

Рис. 15.4. Диалоговое окно Создание запроса: выбор столбцов

Откроется диалоговое окно Создание запроса: отбор данных (Query Wizard -Filter Data) (рис. 15.5), которое позволяет отфильтровать данные в выбранных полях. Для фильтрации данных в списке Столбцы для отбора, выделите столбец, по которому будет производиться фильтрация. В первом раскрывающемся списке выбирается операция отбора, а во втором, содержащем все имеющиеся в выбранном поле значения, выберите нужное или введите свое. При необходимости ввести дополнительную операцию отбора выберите переключатель и (AND) или или (OR), и воспользуйтесь следующими раскрывающимися списками для ввода критериев фильтрации и т. д. Завершив создание критериев фильтрации, нажмите кнопку Далее > (Next >), переходя к следующему шагу работы мастера запросов. В рассматриваемом случае проведем фильтрацию по полю группа, установив критерий равно значению Экономика, и полю предмет с критерием равно значению информатика, т. е. отобразим только информацию о результатах сдачи информатики студентов-экономистов. Отметим, что визуально выбранные поля отличаются от невыбранных тем, что они выделяются полужирным шрифтом.

Рис. 15.5. Диалоговое окно Создание запроса: отбор данных

Откроется диалоговое окно Создание запроса: порядок сортировки (Query Wizard - Sort Data) (рис. 15.6), которое позволяет отсортировать данные в выбранных полях в порядке возрастания или убывания. Отсортируем данные по фамилиям в порядке возрастания. Нажмите кнопку Далее > (Next >), переходя к следующему шагу работы мастера запросов.

Рис. 15.6. Диалоговое окно Создание запроса: порядок сортировки

Откроется диалоговое окно Создание запроса: заключительный шаг (рис. 15.7). При желании еще раз воспользоваться тем же запросом его можно сохранить, используя кнопку Сохранить запрос (Save Query). Для завершения создания запроса выберите флажок Вернуть данные в Microsoft Excel (Return Data to Microsoft Excel) и нажмите кнопку Готово (Finish).

Рис. 15.7. Диалоговое окно Создание запроса: заключительный шаг

На экране отобразится диалоговое окно Возврат данных в Microsoft Excel (Returning External Data to Microsoft Excel) (рис. 15.8). выберите переключатель Имеющийся лист и укажите адрес верхней левой ячейки, куда надо поместить данные, нажмите кнопку ОК. Полученный результат запроса данного примера показан на рис. 15.9.

Рис. 15.8. Диалоговое окно Возврат данных в Microsoft Excel

Рис. 15.9. Результат запроса

Макрорекордер записывает перечисленные выше действия в виде следующего макроса:

Sub Макрос1()

'

' Макрос1 Макрос

' Макрос записан 03.06.99 (Андрей)

'

'

With ActiveSheet.QueryTables

.Add(Connection:=Array(Array(

"ODBC;DSN=MS Access 97

Database;DBQ=C:\МУ_DОС\студенты.mdb;

DefaultDir=C:\MY__DOC;Driverld=25;

FIL=MS Aceess;MaxBufferSize=512;PageT-imeo")

, Array("ut=5;")),

Destination:=Range("Al"))

.Sql = Array( "SELECT ПервыйКурс.Фамилия,

ПервыйКурс.Группа, ПервыйКурс.Предмет,

ПервыйКурс.Оценка" & Ghr(13) & "" & Chr(10) & "FROM

`C:\МY_ООС\СТУДЕНТЫ` .ПервыйКурс

ПервыйКурс" & Chr(13) & "" & Ghr,(10) & "WHERE (ПервыйКурс.Группа='Экономика')

AND (ПервыйКурс.Предмет='Инф" ,"орматика')"

& Chr(13) & "" & Chr(10) &

"ORDER BY ПервыйКурс.Фамилия")

.FieldNames = True

.RefreshStyle = xlInsertDeleteCells

.RowNumbers = False

.FillAdjacentFormulas = False

.RefreshOnFileOpen = False

.HasAutoFormat = True

.BackgroundQuery = True

.TablesOnlyFromHTML = True

.Refresh BackgroundQuery:=False

.SavePassword = True

.SaveData = True

End With

End Sub

Для удобства расположения этого макроса на листе, выделенные цветом две группы строк по три и по четыре строки соответственно, составляющие единые строки, не разбиты на подстроки знаками переноса. Во всяком случае, нельзя было бы ограничиться только добавлением знаков переноса, т. к. их лимит уже исчерпан. На самом деле, корректная запись макроса не представляет никаких усилий. Достаточно было бы ввести дополнительные строковые переменные, которым были бы присвоены выделенные строковые выражения. Но в этом случае макрос визуально сильно бы отличался от того, который был создан макрорекордером. Поэтому, во имя получения максимального приближения к "реальной боевой ситуации" (работы макрорекордера) и большей наглядности, приходится идти на небольшую жертву -оставить в макросе не скорректированными заранее оговоренные ошибки, которые не должны вызвать у читателя никаких затруднений.

Центральную роль в данном макросе играют: инструкция SELECT, указывающая выбираемые поля, инструкция WHERE, задающая критерий отбора записей и инструкция ORDER BY, устанавливающая порядок вывода записей.

В макросе используется семейство QueryTables. Семейство QueryTables является семейством всех объектов QueryTable, представляющих собой внедренные на рабочий лист результаты запроса по внешней базе данных посредством Microsoft Query. Основными методами семейства QueryTables являются Add и item. Несмотря на громоздкость макроса макрос1, метод Add имеет простую синтаксическую структуру:

Add(Connection, Destination, Sql)

Аргументы:

Что такое ODBC?

Для унификации способа работа с базами данных, созданными разными средствами (например, Access, FoxPro, SQL Server и т. д.), Microsoft разработал интерфейс доступа к данным, называемый протоколом ODBC (Open Database Connectivity - открытая связь с базой данных). Ввод, получение и работа с данными происходит при помощи структурированного языка запросов (SQL, Structured Query Language). Протокол ODBC обеспечивает стандарт передачи данных из одного приложения в другое.

Кроме того, он позволяет создавать, удалять, редактировать, сортировать и фильтровать поля, записи и таблицы.

Microsoft Jet

Microsoft Jet — это ядро базы данных, которое обеспечивает возможность доступа к данным из любого приложения, поддерживающего OLE Automation, в частности VBA и Excel, независимо от интерфейса конкретной системы управления базами данных. Ядро Jet хранит свою информацию по умолчанию в файлах с базами данных, имеющих расширение mdb. Такие файлы содержат таблицы, модули, формы, отчеты, запросы и индексы. Конечно, формат mdb — это не единственный формат баз данных, с которыми работает Microsoft Jet. Он поддерживает форматы баз данных, созданных с помощью FoxPro, dBASE и т. д.

DАО — объектный доступ к данным

Объектный доступ к данным (DAO, Data Access Objects) создавался как объектно-ориентированный интерфейс ядра базы данных Jet, т. е. для обеспечения взаимодействия между приложением, например VBA, и ядром базы данных Jet. В Office 97 включена новая версия DАО - DАО 3.5, которая позволяет манипулировать данными в обход ядра Jet. В DАО 3.5 можно напрямую связываться с источниками данных через ODBCDirect, что делает приложения более быстродействующими.

Объекты доступа к данным являются логическим представлением реляционной базы данных: входящих в нее таблиц, записей, полей, индексов и т. д.

Всего имеется 17 типов объектов доступа к данным. На рис. 15.10 представлены объекты доступа к данным первых четырех иерархических уровней. В верхней части иерархии объектов доступа находится объект DBEngine, непосредственно процессор ядра базы данных Jet. Объект Error, являющийся элементом семейства Errors, хранит информацию об ошибках, возникающих при объектном доступе к данным. Объект DBEngine также содержит в себе семейство workspaces объектов workspace, которые устанавливают именованные сеансы работы пользователя. Каждый объект workspace включает семейство Databases, которое состоит из одного или более объектов Database, являющихся открытыми базами данных. Объект TabieDef, элемент семейства TabieDefs, представляет сохраненное определение основной или присоединенной таблицы. Объект QueryDef, элемент семейства QueryDefs, представляет сохраненное определение запроса в базе данных Microsoft Jet или временное определение запроса в рабочей области ODBCDirect. Объект Recordset, элемент семейства Recordsets, представляет набор записей в основной таблице или набор записей, который получается в результате выполнения запроса. В объектах Container группируются однотипные объекты, а объект Relation представляет связь между полями таблиц или запросами.

Рис. 15.10. Иерархия объектов DАО

Для возможности использования объектов доступа необходимо задать ссылку на библиотеку DАО 3.5. Для этого в редакторе VBA необходимо выбрать команду Сервис, Ссылки (Tools, References) и в появившемся диалоговом окне Ссылки (References) установить флажок напротив элемента Microsoft DAO 3.5 Object Library

Порядок работы при объектном доступе к данным

При извлечении информации с помощью объектного доступа к данным надо:

• Создать рабочую область (объект Workspace)
  
• Открыть базу (источника) данных (объект Database)
  
• Создать набор записей (объект Recordset)
  
• Выполнить непосредственную работу с конкретными записями и полями
  

Создание рабочей области

Рабочую область можно создать методом CreateWorkspace объекта DBEngine.

Синтаксис:

Set РабочаяОбласть = CreateWorkspace(Name, UserName, Password, UseType)

Аргументы:

Например, для создания рабочей области Microsoft Jet можно использовать следующие две инструкции:

Dim РабочаяОбласть As CreateWorkspace

Set РабочаяОбласть = DBEngine.CreateWorkspace(Name:="МояОбласть", UserName:="admin", Password:="", UseType:=dbUseJet)

Рабочую область ODBCDirect можно создать следующим образом (ссылка на объект DBEngine применяется по умолчанию, поэтому во второй инструкции объект DBEngine опущен):

Dim РабочаяОбласть As CreateWorkspace

Set РабочаяОбласть = CreateWorkspace(Name:="МояОбласть", UserName:="UID'V Password:="", UseType:=dbUseODBC)

Открытие базы (источника) данных

Открыть базу данных можно методом OpenDatabase объекта Workspace.

Синтаксис:

Set БазаДанных = РабочаяОбласть.OpenDatabase (name, options, readonly, connect)

Аргументы:

дМС ЪБЛТЩФЙС ВБЪЩ ДБООЩИ УМЕДХЕФ РТЙНЕОСФШ НЕФПД close.

оБРТЙНЕТ, ДМС ПФЛТЩФЙС ВБЪЩ ДБООЩИ У СДТПН Microsoft Jet НПЦОП ЙУРПМШЪПЧБФШ УМЕДХАЭЙЕ ДЧЕ ЙОУФТХЛГЙЙ:

Dim вБЪБдБООЩИ As Database

Set вБЪБдБООЩИ = тБВПЮБСпВМБУФШ

.OpenDatabase (Name:="C: \рТЙНЕТ.mdb",

Options:=True)

пВЯЕЛФ Recordset

рПУМЕ ПФЛТЩФЙС ВБЪЩ ДБООЩИ НПЦОП УПЪДБФШ ПВЯЕЛФ Recordset. пВЯЕЛФ Recordset РТЕДУФБЧМСЕФ УПВПК ЪБРЙУЙ ЙУИПДОПК ФБВМЙГЩ ВБЪЩ ДБООЩИ ЙМЙ ТЕЪХМШФЙТХАЭЙК ОБВПТ ЪБРЙУЕК, ЧПЪЧТБЭБЕНЩЕ Ч ТЕЪХМШФБФЕ ЪБРТПУБ. пО РПЪЧПМСЕФ ХРТБЧМСФШ ДБООЩНЙ Ч ВБЪЕ ДБООЩИ ОБ ХТПЧОЕ ЪБРЙУЙ. оБ ХТПЧОЕ РПМЕК ХРТБЧМЕОЙЕ ДБООЩНЙ ПУХЭЕУФЧМСЕФУС ПВЯЕЛФПН Field.

йНЕАФУС УМЕДХАЭЙЕ ФЙРЩ ПВЯЕЛФБ Recordset;

уПЪДБОЙЕ ПВЯЕЛФБ Recordset

пВЯЕЛФОБС РЕТЕНЕООБС ФЙРБ Recordset УПЪДБЕФУС РТЙ РПНПЭЙ НЕФПДБ openRecordSet. лБЛ Й ДМС МАВПК ПВЯЕЛФОПК РЕТЕНЕООПК, ЕЕ ОБДП УОБЮБМБ ПВЯСЧЙФШ, Б ФПМШЛП РПФПН ХУФБОПЧЙФШ УУЩМЛХ ОБ ПВЯЕЛФ, ЧПЪЧТБЭБЕНЩК НЕФПДПН OpenRecordSet.

уЙОФБЛУЙУ ДМС ПВЯЕЛФПЧ Connection Й Database:

Set оБВПТъБРКУЕК = ПВЯЕЛФ.OpenRecordset (йУФПЮОЙЛ, фЙР, рБТБНЕФТЩ, вМПЛЙТПЧЛЙ)

уЙОФБЛУЙУ ДМС ПВЯЕЛФПЧ QueryDef, Recordset Й TableDef: Set оБВПТъБРКУЕК = пВЯЕЛФ.OpenRecordset (фЙР, рБТБНЕФТЩ, вМПЛЙТПЧЛЙ) бТЗХНЕОФЩ:

нЕФПДЩ Й УЧПКУФЧБ ПВЯЕЛФБ Recordset

рТЙЧЕДЕН ОБЙВПМЕЕ ЮБУФП ЙУРПМШЪХЕНЩЕ НЕФПДЩ Й УЧПКУФЧБ ПВЯЕЛФБ Recordset, РПЪЧПМСАЭЙЕ БОБМЙЪЙТПЧБФШ, ТЕДБЛФЙТПЧБФШ ЪБРЙУЙ ВБЪЩ ДБООЩИ. уРПУПВ ЙИ РТЙНЕОЕОЙС ВХДЕФ РПЛБЪБО ОБ РТЙНЕТЕ РТПУФПЗП РТЙМПЦЕОЙС ДМС ТБВПФЩ У ВБЪПК ДБООЩИ, ТБЪТБВПФБООПЗП Ч УМЕДХАЭЕН ТБЪДЕМЕ.

нЕФПДЩ ПВЯЕЛФБ Recordset.

уЧПКУФЧБ ПВЯЕЛФБ Recordset.

рТЙНЕТ РТЙМПЦЕОЙС

тБУУНПФТЙН ТБВПФХ У ВБЪПК ДБООЩИ ОБ РТЙНЕТЕ УМЕДХАЭЕЗП РТПУФПЗП РТЙМПЦЕОЙС, Ч ЛПФПТПН ЙУРПМШЪХАФУС ЧУЕ ПУОПЧОЩЕ ПРЕТБГЙЙ У ЪБРЙУСНЙ. вБЪБ ДБООЩИ ОБИПДЙФУС Ч ЖБКМЕ УФХДЕОФЩ.mdb, УПЪДБООЩН Ч Access, Й УПУФПЙФ ЙЪ ПДОПК ФБВМЙГЩ рЕТЧЩКлХТУ. ч ФБВМЙГЕ ЙНЕАФУС ЮЕФЩТЕ РПМС: жБНЙМЙС, зТХРРБ, РТЕДНЕФ Й пГЕОЛБ. рТЙ ЪБРХУЛЕ РТЙМПЦЕОЙС ОБ ЬЛТБОЕ ПФПВТБЦБЕФУС ДЙБМПЗПЧПЕ ПЛОП уФХДЕОФЩ РЕТЧПЗП ЛХТУБ.

тЙУ. 15.11. дЙБМПЗПЧПЕ ПЛОП уФХДЕОФЩ РЕТЧПЗП ЛХТУБ

рТЙЧПДЙНБС ОЙЦЕ РТПЗТБННБ:

1. рТЙ БЛФЙЧЙЪБГЙЙ ДЙБМПЗПЧПЗП ПЛОБ ЧЩЧПДЙФ Ч РПМС ЧЧПДБ ЙОЖПТНБГЙА П РЕТЧПН УФХДЕОФЕ Й Ч ОБДРЙУЙ ЧУЕЗП ЪБРЙУЕК ХЛБЪЩЧБЕФ ПВЭЕЕ ЮЙУМП ЪБРЙУЕК Ч ФБВМЙГЕ.
   
2. рТЙ ОБЦБФЙЙ ЛОПРПЛ > Й < РТПЙУИПДЙФ РЕТЕНЕЭЕОЙЕ ОБ ПДОХ ЪБРЙУШ ЧРЕТЕД Й ОБЪБД УППФЧЕФУФЧЕООП, Б РТЙ ОБЦБФЙЙ ЛОПРПЛ >> Й << — РЕТЕНЕЭЕОЙЕ Ч ЛПОЕГ Й ОБЮБМП ФБВМЙГЩ УППФЧЕФУФЧЕООП.
   

рТЙ ОБЦБФЙЙ ЛОПРЛЙ ОБКФЙ РТПЙУИПДЙФ РПЙУЛ РЕТЧПК ЪБРЙУЙ ЙЪ ФБВМЙГЩ У ХЛБЪБООПК ЖБНЙМЙЕК (ЕУМЙ ФБЛПК ЪБРЙУЙ ОЕФ, ФП РТЙ РПНПЭЙ УЧПКУФЧБ Bookmark ХЛБЪБФЕМШ ЧПЪЧТБЭБЕФУС Ч ФХ ЦЕ РПЪЙГЙА, ПФЛХДБ ОБЮБМУС РПЙУЛ). рТЙ ОБЦБФЙЙ ЛОПРЛЙ ОБКФЙ ДБМЕЕ ЙЭЕФУС РПУМЕДХАЭБС ЪБРЙУШ У ФПК ЦЕ ЖБНЙМЙЕК.

1. рТЙ ОБЦБФЙЙ ЛОПРЛЙ хДБМЙФШ ХДБМСЕФУС ЪБРЙУШ.
   
2. рТЙ ОБЦБФЙЙ ЛОПРЛЙ ОПЧБС ЪБРЙУШ УПЪДБЕФУС ОПЧБС ЪБРЙУШ РП ДБООЩН, ЧЧЕДЕООЩН Ч РПМС ЧЧПДБ.
   
3. рТЙ ОБЦБФЙЙ ЛОПРЛЙ тЕДБЛФЙТПЧБФШ ЧОПУСФУС ЙЪНЕОЕОЙС Ч ЪБРЙУШ ЙЪ ВБЪЩ ДБООЩИ.
   
4. рТЙ ОБЦБФЙЙ ЛОПРЛЙ ъБЛТЩФШ ЪБЛТЩЧБАФУС ВБЪБ ДБООЩИ Й ДЙБМПЗПЧПЕ ПЛОП.
   
5. рТЙ ЧЩВПТЕ РЕТЕЛМАЮБФЕМС ИПТПЫЙУФЩ Й ПФМЙЮОЙЛЙ Ч ДЙБМПЗПЧПН ПЛОЕ ЧЩЧПДСФУС ДБООЩЕ ФПМШЛП П ИПТПЫЙУФБИ Й ПФМЙЮОЙЛБИ, Б РТЙ ЧЩВПТЕ РЕТЕЛМАЮБФЕМС ЧУЕ — ЧЩЧПДЙФУС ЙОЖПТНБГЙС ПВП ЧУЕИ УФХДЕОФБИ.
   

'

' рЕТЕНЕООЩЕ ХТПЧОС НПДХМС

'

Dim тБВПЮБСпВМБУФШ As Workspace

Dim вБЪБдБООЩИ As Database

Dim ъБРЙУШ As Recordset

Dim ъБРЙУШдХВМШ As Recordset

Dim жБНЙМЙС As String

Dim лТЙФЕТЙК As String

Dim ъБЛМБДЛБ As Variant

'

Private Sub CommandButton1_Click()

'

' оБКФЙ ЪБРЙУШ РП ЖБНЙМЙЙ

'

' ъБРПНЙОБЕФУС ОБ ЪБЛМБДЛЕ ФЕЛХЭБС ЪБРЙУШ

ъБЛМБДЛБ = ъБРЙУШ.Bookmark

'

' уЮЙФЩЧБЕФУС ЖБНЙМЙС ЙЪ РПМС жБНЙМЙС, ОБ ЕЕ ПУОПЧЕ

' УПЪДБЕФУС ЛТЙФЕТЙК РПЙУЛБ Й ЙЭЕФУС РЕТЧБС ЪБРЙУШ У

' РПДПВОПК ЖБНЙМЙЕК '

жБНЙМЙС = Trim(TextBoxl.Text)

лТЙФЕТЙК = "[жБНЙМЙС]="' & жБНЙМЙС & "'"

ъБРЙУШ.FindFirst лТЙФЕТЙК

' еУМЙ ЪБРЙУШ У ХЛБЪБООПК ЖБНЙМЙЕК ОБКДЕОБ, ФП ПОБ ПФПВТБЦБЕФУС

' Ч ДЙБМПЗПЧПН ПЛОЕ.

' еУМЙ ЪБРЙУШ ОЕ ОБКДЕОБ, ФП ПФПВТБЦБЕФУС УППВЭЕОЙЕ Й

' РТЙ РПНПЭЙ ЪБЛМБДЛЙ РТПЙУИПДЙФ ЧПЪЧТБФ Л ЪБРЙУЙ, У ЛПФПТПК

' ВЩМ ОБЮБФ РПЙУЛ

'

If ъБРЙУШ.NoMatch = False Then

рПЛБЪБФШъБРЙУШ Else

MsgBox "ъБРЙУШ ОЕ ОБКДЕОБ", vblnformation, "уФХДЕОФЩ"

ъБРЙУШ.Bookmark = ъБЛМБДЛБ

рПЛБЪБФШъБРЙУШ End If

End Sub

Private Sub CommandButtonlO_Click()

'

' рЕТЕИПД Л РПУМЕДОЕК ЪБРЙУЙ

'

'

ъБРЙУШ.MoveLast рПЛБЪБФШъБРЙУШ

End Sub

'

Private Sub CommandButton2_Click()

' оБКФЙ УМЕДХАЭХА ЪБРЙУШ РП ЖБНЙМЙЙ

'

ъБЛМБДЛБ = ъБРЙУШ.Bookmark

жБНЙМЙС = Trim(TextBoxl.Text)

лТЙФЕТЙК = "[жБНЙМЙС]='" & жБНЙМЙС & "'"

ъБРЙУШ.FindNext лТЙФЕТЙК

If ъБРЙУШ.NoMatch = False Then

рПЛБЪБФШ ъБРЙУШ Else

MsgBox "вПМШЫЕ ФБЛЙИ ЪБРЙУЕК ОЕФ", vblnformation, "уФХДЕОФЩ"

ъБРЙУШ.Bookmark = ъБЛМБДЛБ

рПЛБЪБФШ ъБРЙУШ

End If

End Sub

Private Sub CommandButton3_Click()

'

' хДБМЕОЙЕ ЪБРЙУЙ

'

With ъБРЙУШ

.Delete

.MoveNext End With рПЛБЪБФШъБРЙУШ

End Sub

'

Private Sub CommandButton4_Click()

'

' дПВБЧМЕОЙЕ ЪБРЙУЙ

'

With ъБРЙУШ .AddNew

.Fields("жБНЙМЙС").Value = TextBoxl.Text

.Fields("зТХРРБ").Value = TextBox2.Text

.Fields("рТЕДНЕФ").Value = TextBox3.Text

.Fields("пГЕОЛБ").Value = TextBox4.Text .Update

End With

'

Exit Sub

'

End Sub

Private Sub CommandButton5_Click()

'

' тЕДБЛФЙТПЧБОЙЕ ЪБРЙУЙ

'

With ъБРЙУШ .Edit

.Fields("жБНЙМЙС").Value = TextBoxl.Text

.Fields("зТХРРБ").Value = TextBox2.Text

.Fields("рТЕДНЕФ").Value = TextBox3.Text

.Fields("пГЕОЛБ").Value = TextBox4.Text

.Update End With End Sub

Private Sub CommandButton6_Click()

'

' ъБЛТЩФЙЕ ЪБРЙУЙ, ВБЪЩ ДБООЩИ Й ПЛОБ

'

ъБРЙУШ.Close

вБЪБдБООЩИ.Close

тБВПЮБСпВМБУФШ.Close

UserForml.Hide

End Sub

Private Sub CommandButton7_Click()

' рЕТЕИПД Л РЕТЧПК ЪБРЙУЙ

'ъБРЙУШ.MoveFirst рПЛБЪБФШ ъБРЙУШ

End Sub

Private Sub CommandButton8_Click()

'

' рЕТЕИПД Л РТЕДЩДХЭЕК ЪБРЙУЙ

'ъБРЙУШ.MovePrevious

'

' еУМЙ ДПУФЙЗОХФБ РЕТЧБС ЪБРЙУШ, ФП ПФПВТБЦБЕФУС УППВЭЕОЙЕ

'

If ъБРЙУШ.BOF = True Then

ъБРЙУШ.MoveFirst

MsgBox "рЕТЧБС ЪБРЙУШ", vblnformation, "уФХДЕОФЩ"

End If

'рПЛБЪБФШъБРЙУШ

End Sub

'

Private Sub CommandButton9_Click()

' рЕТЕИПД Л РПУМЕДХАЭЕК ЪБРЙУЙ

'

ъБРЙУШ.MoveNext

' еУМЙ ДПУФЙЗОХФБ РПУМЕДОСС ЪБРЙУШ, ФП ПФПВТБЦБЕФУС УППВЭЕОЙЕ

'

If ъБРЙУШ.EOF = True Then

ъБРЙУШ.MoveLast

MsgBox "рПУМЕДОСС ЪБРЙУШ", vblnformation, "уФХДЕОФЩ"

End If

рПЛБЪБФШъБРЙУШ

End Sub

'

Private Sub OptionButtonl_Click()

'

' пФПВТБЦЕОЙЕ ДБООЩИ ФПМШЛП П ИПТПЫЙУФБИ Й ПФМЙЮОЙЛБИ

'

' уПЪДБОЙЕ ЛПРЙЙ ЪБРЙУЙ

'

Set ъБРЙУШдХВМШ = ъБРЙУШ.Clone

'

' жЙМШФТБГЙС ЪБРЙУЕК РП ЛТЙФЕТЙА

'

ъБРЙУШ.Filter = "[пГЕОЛБ] >= 4"

'

' уПЪДБОЙЕ ПФЖЙМШФТПЧБООПК ЪБРЙУЙ

'

Set ъБРЙУШ= ъБРЙУШ.OpenRecordset()

If ъБРЙУШ.RecordCount > 0 Then

'

' еУМЙ ПФЖЙМШФТПЧБООБС ЪБРЙУШ УХЭЕУФЧХЕФ, ФП ПОБ ПФПВТБЦБЕФУС

' Ч ДЙБМПЗПЧПН ПЛОЕ

'рПЛБЪБФШъБРЙУШ

Else

'

' еУМЙ ПФЖЙМШФТПЧБООПК ЪБРЙУЙ ОЕФ, ФП ПФПВТБЦБЕФУС УППФЧЕФУФЧХАЭЕЕ

' УППВЭЕОЙЕ, ЧПУУФБОБЧМЙЧБЕФУС РЕТЧПОБЮБМШОЩК ПВЯЕЛФ Recordset

' Й ЧЩВЙТБЕФУС РЕТЕЛМАЮБФЕМШ чУЕ

'

MsgBox "фБЛЙИ УФХДЕОФПЧ ОЕФ", vblnformation, "уФХДЕОФЩ"

Set- ъБРЙУШ = ъБРЙУШдХВМШ.Clone

Set ъБРЙУШ = ъБРЙУШ.OpenRecordset()

OptionButton2.Value = True

End If

End Sub

Private Sub OptionButton2_Click()

'

' пФПВТБЦЕОЙЕ ЧУЕИ УФХДЕОФПЧ

'

Set ъБРЙУШдХВМШ = ъБРЙУШ.Clone

Set ъБРЙУШ = ъБРЙУШдХВМШ.OpenRecordset()

ъБРЙУШдХВМШ.Close

рПЛБЪБФШъБРЙУШ

End Sub

'

Private Sub UserForm_Initialize()

'

' уПЪДБОЙЕ ТБВПЮЕК ПВМБУФЙ

'

Set тБВПЮБСпВМБУФШ = CreateWorkspace(Name:="", UserName:="admin",

Password:="", UseType:=dbUseJet)

'

' пФЛТЩФЙЕ ВБЪЩ ДБООЩИ УФХДЕОФЩ.mdb

Set вБЪБдБООЩИ = _

тБВПЮБСпВМБУФШ.OpenDatabase

(Name:="C:\MY_DOC\УФХДЕОФЩ.mdb",

Options:=True)

'

'

' уПЪДБОЙЕ ЪБРЙУЕК

'

Set ъБРЙУШ = вБЪБдБООЩИ.OpenRecordset("рЕТЧЩКлХТУ",dbOpenDynaset)

'

' рТЙОХДЙФЕМШОПЕ РЕТЕНЕЭЕОЙЕ ОБ РПУМЕДОАА ЪБРЙУШ ДМС ФПЗП,

' ЮФПВЩ ПРТЕДЕМЙФШ ЮЙУМП ЪБРЙУЕК ъБРЙУШ.MoveLast

'

' чЩЧПД ЮЙУМБ ЪБРЙУЕК Ч ОБДРЙУЙ оПНЕТ ЪБРЙУЙ ЙЪ

'

'

Labels.Caption = "чУЕЗП ЪБРЙУЕК " & CStr(ъБРЙУШ.RecordCount)

'

' рТЙОХДЙФЕМШОПЕ РЕТЕНЕЭЕОЙЕ ОБ РЕТЧХА ЪБРЙУШ

'ъБРЙУШ.MoveFirst

'

' чЩЧПД РЕТЧПК ЪБРЙУЙ Ч РПМС ДЙБМПЗПЧПЗП ПЛОБ

'

рПЛБЪБФШъБРЙУШ With UserForm1

.Caption = "уФХДЕОФЩ РЕТЧПЗП ЛХТУБ"

.OptionButton2.Value = True End With

End Sub

'

Sub рПЛБЪБФШъБРЙУШ()

'

' рТПГЕДХТБ ЧЩЧПДБ ЪБРЙУЙ Ч РПМС ДЙБМПЗПЧПЗП ПЛОБ

'

TextBoxl.Text = ъБРЙУШ.Fields("жБНЙМЙС").Value

TextBox2.Text = ъБРЙУШ.Fields("зТХРРБ").Value

TextBox3 .Text = ъБРЙУШ.Fields ("рТЕДНЕФ.").Value

TextBox4.Text = ъБРЙУШ.Fields("пГЕОЛБ").Value

'

End Sub