Пример динамического способа формирования объектов

Синтаксис: SolverSolve(UserFinish, ShowRef),

где UserFinish – параметр, принимающий логические значения. Значение False (по умолчанию) приводит к отображению диалога Результаты поиска решения, позволяющего сохранить сценарий работы, а значение True – запрещает вывод этого диалога;

ShowRef – ссылка на макрос, который должен выполняться между итерациями Поиска решения.

Если список ограничений оптимизационной задачи уже задан, то в коде из него можно удалять ограничения функцией SolverDelete.

SolverDelete(CellRef, Relation, FormulaText)

При работе с Поиском решения имеются еще две полезные функции, позволяющие сохранить модель (SolverSave) в ячейках и загрузить (SolverLoad) ее из диапазона ячеек рабочего Листа: SolverSave(Area) SolverLoad(Area)

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

Например, SolverSave ("Лист1!А1:A3").

Строка маршрута к файлу Solver. xla (переменная s) заключена в дополнительные апострофы, а перед объектом Solver необходимо всегда ставить восклицательный знак.

Для запуска методов объекта Solver используется функция Run, в которой первый аргумент – это имя объекта и метода (типа String), а второй и последующие аргументы – это параметры метода.

52. Пример динамического способа формирования объектов на форме VBA Excel.

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

Достаточно типичной задачей является использование в приложении неких внешних ActiveX-объектов (приложений или объектов). Например, вы хотите обратиться к приложению Excel.

Sub Late() ' Пример позднего связывания с внешним объектом Excel

 Dim ObjExcel As Object 'Описываем переменную типа Object

 Set ObjExcel = CreateObject("Excel. Application") 'и создаем объект на базе класса Excel. Application

'задаем свойства книги и листа

With ObjExcel

 .WorkBooks. Add

 .ActiveSheet. Name = "37 вопрос"

 .Visible = True

 MsgBox(“Имя активного листа “) & ActiveSheet. Name

End With

 ObjExcel. Quit

 Set ObjExcel = Nothing

End Sub

Достоинство раннего связывания: работают подсказки и синтаксический контроль при создании исполняемого модуля. Но этот вариант (точнее вся программа, независимо от того было или не было обращение к EarlyBinding) будет работать только в случае наличия ссылки (Project|References) на реально существующее приложение.

Достоинство второго варианта — в возможности динамической настройки на используемый объект в ходе выполнения программы. Причем ссылку на него не нужно устанавливать заранее, поэтому при физическом отсутствии Excel на компьютере, ошибка произойдет только в момент выполнения данной процедуры (не говоря о том, что эту ошибку можно программно обработать и продолжить работу в другом режиме).
51. Пример решения системы нелинейных уравнений с использованием объектной модели MS Excel.

Пример. Используя объектную модель MS Excel, решить систему нелинейных уравнений при начальных условиях x(0)=0 и y(0)=0.

Dim ObjExcel As Object, s As String, sF As String

Private Sub Command1_Click()

Const xlDoNotSaveChanges = 0

Set ObjExcel = CreateObject("Excel. Application")

With ObjExcel

.WorkBooks. Add

.ActiveSheet. Name = "Solver"

.Visible = True

.DisplayAlerts = False

End With

ObjExcel. Range("A1").Name = "x"

ObjExcel. Range("A1").Value = Text3

ObjExcel. Range("A2").Name = "y"

ObjExcel. Range("A2").Value = Text4

Func$ = "$A$3" ‘Целевая функция

XY$ = "$A$1:$A$2" ‘Изменяемые ячейки

sF = "=(" & Text1 & ")^2+(" & Text2 & ")^2"

‘Введение формулы в ячейку

ObjExcel. Range("A3").Formula = sF

‘Полный путь к файлу Solver. xla заключен в дополнительные апострофы

s = "’C:Program FilesMicrosoft OfficeOFFICE11LibrarySOLVERSolver. xla’"

‘Параметры Поиска Решения

ObjExcel. Run s & "!Solver. SolverOptions", 100, 100, 0.000001, False, False, 1, 1, 1, 5, False, 0.0001, False ‘ Поиск. Решения

ObjExcel. Run s & "!Solver. SolverOK", Func, 3, 0, XY

ObjExcel. Run s & "!Solver. SolverSolve" ‘Выполнить Поиск

Text3 = ObjExcel. Cells(1, 1) ‘Вывод решения системы в поля

Text4 = ObjExcel. Cells(2, 1)

ObjExcel. ActiveWindow. Close SaveChanges:=xlDoNotSaveChanges

ObjExcel. Quit

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Caption = "Решение системы НУ с помощью программы ‘Поиск решения’"

Command1.Caption = "Поиск решения"

Command2.Caption = "Выход"

Text3 = ""

Text4 = ""

Text1 = "x^2+y^2-1"

Text2 = "2*x+3*y-0.9"

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set ObjExcel = Nothing

End Sub

53. Объектная модель (объекты и коллекции) MS Access.

Модель объектов Access отлична от моделей других офисных приложений. Включает она две модели.

Модель объектов приложения Access, которая управляет текущим сеансом работы (открытие форм и отчетов), а также предназначена для создания интерфейса разрабатываемой БД (рис.123). В ней работа с таблицами (изменение структуры таблицы, полей, и т. д.) не представлена. Эта модель используется только для открытия БД.

Модель объектов доступа к данным DAO (Data Access Objects), предназначенная для управления данными (добавления, извлечения, обработки) в локальной или удаленной БД, а также для программного управления самими базами данных, их объектами и структурой.

Рис.123. Фрагмент объектной модели MS Access

На верхнем уровне модели объектов приложения Access располагается объект Application. Он включает в себя четыре семейства Forms, Reports, Modules, References, содержащих объекты, соответствующие всем открытым формам, отчетам, модулям и ссылкам на внешние библиотеки, которые используются в приложении.

В представленном фрагменте модели присутствуют восемь объектов:

Screen – для управления внешним видом экрана и работы с активной формой, отчетом или элементами управления.

DoCmd – для выполнения команд Access.

VBE – для доступа к функциональным средствам редактора Visual Basic for Application.

DBEngine – объект библиотеки DAO, используется для доступа к данным.

CurrentProject ссылается на программный проект (представляющий совокупность всех программных модулей) текущей БД или проекта MS Access.

CodeProject ссылается на программный проект кода той БД (или проекта MS Access), в которой выполняется (и содержится) код VBA.

Эти объекты содержат семейства объектов AccessObjects, соответствующих реальным объектам БД или проекта: AllForms, AllReports, AllMacros, AllModules, AllDataAccessPages.

CurrentData ссылается на объекты, сохраненные приложением-источником данных (ядром Jet или SQL-сервером) в текущей БД.

CodeData ссылается на объекты, сохраненные приложением-источником данных (ядром Jet или SQL-сервером) в той БД, в которой выполняется (и содержится) код VBA.

Эти объекты содержат также семейства объектов AccessObjects: AllTables, AllQueries, AllViews, AllStoredProcedures, All Functions, AllDatabaseDiagrams.

Перечисленные семейства включают в себя все реальные объекты БД, независимо от того, открыты они или закрыты в данный момент.

В комплект поставки MS Access входит 32-разрядные драйвера ODBC для MS SQR Server, а также драйверы для Excel, FoxPro, Paradox, Access, dBase и текстовых файлов.

ODBC (Open DataBase Connectivity – открытое соединение с БД) – стандартный протокол (интерфейс), предназначенный для доступа к внешним (удаленным) данным, хранящимся на серверах БД, которые используют язык SQL.

Удаленные БД могут быть сосредоточены на одном компьютере (сервере БД) или распределены по нескольким компьютерам-серверам. Удаленные БД часто называют БД клиент-сервер, а системы управления ими – системами управления базами данных (СУБД) клиент-сервер.

Клиентами БД являются рабочие станции (или клиентские приложения), подключенные к серверу (или серверному приложению).

СУБД клиент-сервер получают инструкции SQL от клиентских приложений, выполняют их и возвращают результирующее множество записей обратно клиентскому приложению.

54. Свойства и методы объекта Application объектной модели MS Access.

Объект Access. Application, запуск Access из внешнего приложения, свойства и методы объекта Access. Application

Объектная модель Access по своей архитектуре сильно отличается от объектных моделей Word и Excel. Возможно, это объясняется тем, что Access — не "родной", как Word и Excel, а приобретенный продукт третьей фирмы.

Один из немногих моментов, в котором программирование в Access похоже на программирование в Word и Excel — это наличие объекта Application, который находится на вершине иерархии объектной модели Access. Он точно так же может использоваться для программного запуска Access из других приложений, и его свойства и методы доступны из любой части кода. Запуск Access из другого приложения может выглядеть так:

Dim appAccess As Object

Set appAccess = CreateObject("Access. Application")

appAccess. Visible = True

MsgBox appAccess. Name

Если не поставить свойство Visible в True, то по умолчанию Access откроется в невидимом окне (увидеть его можно будет только в списке процессов в Task Manager). Если запустить такой код из процедуры Word или Excel, то по умолчанию по завершении работы этой процедуры объект будет удален из оперативной памяти (поэтому здесь и поставлено окно сообщения, чтобы этот процесс задержать).

Можно программно запускать Access еще множеством разных способов — через объектную модель Windows Explorer, через командный интерпретатор операционной системы (в этом случае можно использовать интересные параметры командной строки Access — см. доп. материалы на компакт-диске), через текстовый ярлык *.mad, через API и т. п.

На практике программным образом запускать Access приходится достаточно редко — поскольку обычно удобнее всего оболочку приложения, запускающего Word, Excel и т. п. делать именно в Access. Открывать Access для доступа к данным базы данных в файле MDB не рекомендуется — для этой цели лучше использовать объекты ADO, более простые и удобные и менее ресурсоемкие.

Теперь — о свойствах и методах объекта Application. Как можно убедиться, их набор в Access мало похож на соответствующий набор в Word и Excel. Вначале — о наиболее важных свойствах:

·  AutomationSecurity — позволяет определить уровень безопасности при открытии базы данных. По умолчанию используется значение msoAutomationSecurityByUI — использовать то, что настроено на графическом экране через меню Макрос -> Безопасность. Можно вообще запретить открытие файлов баз данных с макросами ( msoAutomationSecurityForceDisable), но чаще используется значение msoAutomationSecurityLow, которое позволяет открыть файл данных без лишних вопросов;

·  BrokenReference — возможность проверить, есть ли разорванные ссылки (когда ваше приложение не может найти модуль dll или другую базу данных). Наличие конкретной ссылки можно проверить при помощи объекта Reference;

·  CodeContextObject — очень полезное свойство, которое позволяет определить, из какого объекта базы данных (формы, отчета и т. п.) был запущен модуль/макрос. Это свойство можно, например, использовать для обнаружения источника ошибок;

·  CodeData — еще одно важнейшее свойство. Оно позволяет получить доступ к коллекциям AllDatabaseDiagrams, AllFunctions, AllQueries, AllStoredProcedures, AllTables и AllViews. Правда, в этих коллекциях находятся одни и те же объекты AccessObject. Возможностей у них на первый взгляд не так много, но на самом деле при помощи этого объекта мы получаем возможность настраивать десятки свойств для таблиц, запросов, диаграмм и других объектов базы данных Excel. Пример применения свойства CodeData для получения информации о всех таблицах в базе данных может выглядеть так:

For Each oTable In CodeData. AllTables

Debug. Print oTable. Name

Next

·  CodeProject  — используется для тех же целей, что и CodeData, но предоставляет доступ к коллекциям программных модулей AllForms, AllReports, AllMacros, AllModules и AllDataAccessPages.

·  свойство CommandBars возвращает коллекцию объектов CommandBar — то есть панелей инструментов Access. Эту коллекцию можно использовать для настройки пользовательского интерфейса приложения, построенного на основе Access.

·  CurrentData действует аналогично CodeData и CodeProject. Это свойство позволяет получать доступ к тем же коллекциям, включая полученные с внешнего источника данных (SQL Server). Аналогично работает свойство CurrentProject.

·  свойства CurrentObjectName и CurrentObjectType позволяют определить, какой объект на момент запуска процедуры находился в фокусе (из какого объекта был вызван данный код). Эти свойства, конечно, удобно использовать для проверок, когда один и тот же код может быть вызван разными способами. При этом свойство CurrentObjectType ведет себя несколько неожиданно. Оно возвращает значение из перечисления в обычных ситуациях, но если вызвавшего объекта уже нет (объектная ссылка установлена в Nothing) или информацию о нем получить не удалось, это свойство почему-то возвращает True.

·  свойство DataAccessPages позволяет получить ссылку на одноименную коллекцию, в которой находятся объекты всех Web-форм базы данных (они называются страницами доступа к данным) — объектов DataAccessPage.

·  свойство DBEngine позволяет получить ссылку на объект DBEngine, при помощи которого можно просмотреть или настроить свойства ядра Jet, на котором работает Access. Например, при помощи этого свойства можно сжать базу данных, настроить для нее пароль, определить используемую кодировку и т. п.

·  свойство DoCmd позволяет получить доступ к еще одному очень важному объекту — DoCmd, при помощи которого можно выполнить множество важных операций. Фактически этот объект — основная "рабочая лошадка" Access с точки зрения VBA. Он будет рассмотрен в отдельном разделе. Сам объект DoCmd создавать нет необходимости — он и так всегда доступен через свойство объекта Application, например:

Application. DoCmd. RunSQL "Delete from table1"

·  свойство Forms позволяет вернуть ссылку на коллекцию объектов Form. От уже рассмотренной коллекции AllForms эта коллекция отличается двумя моментами:

o  в ней находятся только открытые в настоящий момент формы;

o  в ней находятся не объекты AccessObject, а объекты Form с гораздо богатым набором свойств и методов.

·  свойство MenuBar позволяет не совсем стандартным образом настроить пользовательское меню (уровня всего приложения, если для формы предусмотрено свое меню, оно будет иметь приоритет), вернуться к показу встроенного меню или вообще отключить показ меню. Для нестандартной работы с контекстным меню предусмотрено свойство ShortcutMenuBar.

·  свойство Modules действует аналогично свойству Forms. Оно позволяет получить доступ к одноименной коллекции с объектами Module, представляющими стандартные модули и модули классов. У объектов Module намного больше свойств и методов, чем у объекта AccessObject;

·  свойства Printers и Printer возвращают все установленные в системе принтеры и принтер по умолчанию соответственно. При помощи объекта Printer можно настроить множество свойств принтера, которые будут использоваться при печати.

·  свойство References позволяет получить ссылку на коллекцию объектов Reference (ссылки на библиотеки типов). Можно использовать для проверки работоспособности ссылок или для добавления ссылок программным способом.

·  свойство Reports работает аналогично свойствам Forms и Modules, позволяя получить доступ к коллекции объектов Report.

·  Screen — это свойство позволяет получить доступ к специальному объекту Screen, при помощи которого можно получить доступ к активным элементам Access — формам, отчетам, элементам управления и т. п. (В Word и Excel свойства Active… встроены непосредственно в объект Application). При помощи этого объекта можно также изменить вид курсора мыши и вернуться к предыдущему элементу управления.

·  свойство UserControl позволяет определить, как именно был запущен Access — вручную пользователем или программным способом из другого приложения (в зависимости от этого, к примеру, можно решить, закрывать Access автоматически или положиться на пользователя).

·  свойство Version позволяет вернуть версию Access (например, для дополнительных проверок работоспособности приложений). Для Access 2003 эта версия — 11.0.

·  свойство Visible позволяет сделать Access видимым для пользователя (или наоборот, спрятать). По умолчанию Accesss, запущенный программным способом, невидим для пользователя, и для этого свойства необходимо установить True.

Методов у объекта Application также очень много (плюс часть методов достаточно искусственно перенесена в объект DoCmd). Ниже представлены самые важные из них:

·  AccessError() — очень важное свойство для обработки ошибок. Оно позволяет получить описание тех ошибок, для которых стандартное Err. Description возвращает "Application-defined or object-defined error" — ошибок библиотек Access и DAO.

·  метод BuildCriteria() позволяет очень быстро и удобно сконструировать критерий отбора записей, который может применяться в SQL-запросах, фильтрах для формы и отчетов, и т. п. Возвращает правильно сконструированное строковое значение.

·  CloseCurrentDatabase() — возможность закрыть текущую базу данных без закрытия Access. Обычно применяется для того, чтобы затем открыть следующую базу данных без запуска нового экземпляра Access.

·  CodeDb() — возвращает объект DAO. Database, представляющий базу данных, в которой в настоящее время выполняется код (обычно используется, когда у вас есть специальная библиотечная база данных с программными модулями, выполняющими различные операции с другими базами данных). Ссылку на такой же объект для текущей базы данных можно получить при помощи метода CurrentDb().

·  CompactRepair() — возможность сжать/починить базу данных Access и вернуть код ошибки (можно также записать протокол). Сжимаемая/ремонтируемая база данных должна быть в настоящий момент закрыта.

·  ConvertAccessProject() — возможность выполнить еще одну служебную операцию, на этот раз по преобразованию версии базы данных Access. Возможны варианты от acFileFormatAccess2 до acFileFormatAccess2002.

·  метод CreateAccessProject() позволяет программным образом создать проект Access (программный интерфейс для доступа к SQL Server). Для того, чтобы его сразу создать и открыть, можно использовать метод NewAccessProject(), а чтобы просто открыть существующий — OpenAccessProject().

·  CreateAdditionalData() — возможность создать объект AdditionalData, который можно использовать вместе с методом ExportXML() при экспорте родительской таблицы в файл XML. Применение этого объекта позволяет экспортировать набор таблиц.

·  CreateControl() — возможность программным образом создать элемент управления на форме. Принимает множество параметров, которые определяют данный элемент управления. Для создания элемента управления в отчете используется метод CreateReportControl(). Удаление — при помощи соответственно DeleteControl() и DeleteReportControl().

·  CreateForm() — возможность также программным образом создать форму Access (и получить ссылку на объект созданной формы). Затем можно настроить свойства этой формы, добавить для нее элементы управления и т. п. Создание таким же образом отчета можно произвести при помощи метода CreateReport().

·  CreateGroupLevel() — возможность программным образом создать группировку в отчете (или отсортировать записи). Принимает имя отчета, столбец, по которому производится сортировка, формулы для создания верхнего и нижнего колонтитула групп.

·  CreateNewWorkgroupFile() — возможность программным способом создать файл рабочей группы с разрешениями для пользователей. На графическом экране эту операцию можно выполнить из меню Сервис->Защита->Администратор рабочих групп.

·  CurrentUser() — этот метод позволяет получить в виде строкового значения имя текущего пользователя базы данных. По умолчанию работа производится от имени пользователя Admin.

·  методы, которые начинаются на D…, очень удобны для выполнения различных операций, не прибегая к коду SQL — напрямую из Access:

·  DAvg(), DSum(), DCount(), DMax(), DMin() и т. п. позволяют применить агрегатные функции к столбцу (или набору записей) в таблице или представлении;

·  DLookup() — исключительно удобный метод, который позволяет найти и вернуть нужное вам значение из таблицы или представления (включая двоичные объекты, например, шаблоны Word). Точно также принимает в качестве параметров имя таблицы или представления, имя столбца и фильтр. Если условию фильтра удовлетворяет несколько значений, то возвращается первое.

·  DFirst() и DLast() — несмотря на свои названия, эти методы работают одинаково, возвращая случайное значение из столбца таблицы или представления.

·  Echo() позволяет перерисовать экран Access и в качестве бесплатного приложения вывести текст в строку состояния.

·  очень удобен во многих ситуациях метод Eval(). Он позволяет произвести над текстовой строкой операции, как будто эта текстовая строка встретилась в коде VBA. Этот метод возвращает значение типа Variant — чтобы уместились любые возвращаемые значения. Например,

Eval("1+1")

вернет 2, а

Eval("МояФункция()")

вернет то, что возвращает эта функция. Eval() очень удобно использовать, чтобы избежать громоздких проверок и преобразований типов, например, когда мы принимаем разные значения, вводимые пользователем.

·  методы ExportXML() и ImportXML() позволяют экспортировать и импортировать наборы таблиц с данными (включая информацию о ключах, индексах, кодировках и т. п.) в XML-совместимый текстовый файл. При этом экспорт и импорт из Access при помощи этих методов можно производить не только для баз данных Access, но и баз данных SQL Server начиная с версии 6.5.

·  методы GetOptions() и SetOptions() позволяют получить информацию/установить те десятки настроек, которые доступны через меню Сервис->Параметры. Например, чтобы по нажатии клавиши <Enter> в таблице производился переход не вправо (по умолчанию), а вниз, можно использовать код

Application. SetOption "Move After Enter", 2

·  hWndAccessApp() — очень нужный метод для тех, кто работает с Windows API. позволяет вернуть указатель на окно Access.

·  метод NewCurrentDatabase() позволяет создать и сразу открыть новую базу данных Access. Для открытия существующей базы данных можно использовать метод OpenCurrentDatabase().

·  Nz() — исключительно удобная функция для практической работы. Позволяет возвращать пустую строку или другое значение, если значение в данном столбце таблицы не определено ( Null). Опытные разработчики очень часто используют эту функцию, чтобы избежать ошибок при обращении к пустым значениям (любым, включая Memo), например, при поиске по таблице.

·  Quit() — понятно. Может ничего не сохранять, сохранять все или спрашивать у пользователя.

·  RefreshDatabaseWindow() — возможность обновить окно базы данных. Обычно применяется после программного создания форм, отчетов и т. п.

·  метод Run() позволяет вызвать процедуру или функцию VBA из кода и передать ей до 30 параметров. Может использоваться для вызова пользовательских или встроенных функций, но, поскольку их можно вызвать и стандартными способами. чаще всего используется при вызове процедуры Access из внешней откомпилированной программы, например, DLL или EXE.

·  RunCommand() — возможность выполнить одну из десятков встроенных команд Access (практически все, что есть в панелях управления и встроенных меню). Например, чтобы максимизировать окно Access, можно воспользоваться командой

RunCommand acCmdAppMaximize

·  SysCmd() — возможность выполнить множество служебных операций: получить информацию о домашнем каталоге, о версии Access, о состоянии указанного вами объекта базы данных, запустить градусник в строке состояния и т. п.

55. Интерфейсы объектов данных и интерфейсы прикладного уровня программирования.

Кроме ОМ DAO для доступа к данным могут использоваться объектные модели RDO (Remote Data Objects), ADO (ActiveX Data Objects) и SQL—DMO (Distributed Management Object).

DAO лучше подходит для работы с записями в локальной БД MS Access, a RDO – для работы с базами данных SQL Server. Каждая ОМ имеет свой интерфейс (API) или ядро БД.

Существуют три типа интерфейсов прикладного уровня: файловые (включая ISAM), ODBC и OLE DB (приближенных к данным).

Данные, записанные как текст, хранятся в файлах и доступны при использовании традиционного файлового ввода/вывода. Для ускорения операций информацию хранят в двоичном формате индексно-последовательного метода доступа ISAM (Indexed Sequential Access Method).

OLE DB – универсальный интерфейс для всех форматов хранения данных, основанный на технологии COM.

56. Объектная модель DAO рабочей области MS Jet. Объекты и семейства. Пример открытия БД Access.

DAO – это СОМ-интерфейс ядра MS Jet. Он был создан для работы с БД Access, FoxPro или dBase, но его можно применять и для доступа к ODBC-совместимым базам данных. Для использования в программе ОМ DAO нужно установить ссылку на объектную библиотеку MS DAO 3.6 Object Library.

Модель DAO, начиная с версии 3.5 (MS Office 97) включает в себя две объектные модели (ОМ), соответствующие двум «рабочим областям» (РО), доступным из любого клиента Automation. В первой ОМ доступ к данным осуществляется с помощью ядра MS Jet, используя РО MS Jet. Во второй ОМ осуществляется прямой доступ к источнику данных ODBC по технологии «клиент-сервер», используя РО ODBCDirect[1] в обход ядра MS Jet, обеспечивая, тем самым, выигрыш в производительности.

[1] ODBCDirect – технология, которая позволяет получить доступ к источникам данных ODBC, непосредственно с помощью методов объектов доступа к данным (DAO), которые окружают ядро базы данных MS Jet

Рис.126. Объектная модель DAO

рабочей области MS Jet

При работе с DAO не нужно создавать объект Workspase – это происходит автоматически.

Dim db As Database, rs As Recordset

‘Подключиться к БД и открыть ее можно методом

‘OpenDatabase — вернет ссылку на объект Database

Set db = OpenDatabase("C:db2.mdb")

Mysql="SELECT * FROM Сотрудники"

Set rs = db.OpenRecordSet(Mysql, dbOpenDynaset, _ dbReadOnly)

‘OpenRecordSet возвращает ссылку на объект
‘RecordSet. Установив соединение с БД,
‘приложение может запросить сведения, добавить
‘новые, обновить старые, удалить существующие
‘записи, используя объект RecordSet.