Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД
Подождите немного. Документ загружается.
pcbCursor As Integer) As Integer
Declare Function oSQLGetData Lib "odbc32.dll" _
Alias "SQLGetData" (ByVal hstmt As Long, ByVal icol As_ Integer, _
ByVal fCType As Integer, rgbValue As Any, _
ByVal cbValueMax As Long, pcbValue As Long) As Integer
Declare Function oSQLGetInfo Lib "odbc32.dll" _
Alias "SQLGetInfo" (ByVal hdbc As Long, _
ByVal fInfoType As Integer, ByRef rgbInfoValue As Any, _
ByVal cbInfoMax As Integer, cbInfoOut As Integer) As_ Integer
Declare Function oSQLGetStmtOption Lib "odbc32.dll" _
Alias "SQLGetStmtOption" (ByVal hstmt As Long, _
ByVal fOption As Integer, pvparam As Any) As Integer
Declare Function oSQLNumResultCols Lib "odbc32.dll" _
Alias "SQLNumResultCols" (ByVal hstmt As Long, pccol As_ Integer) As Integer
Declare Function oSQLSetCursorName Lib "odbc32.dll" _
Alias "SQLSetCursorName" (ByVal hstmt As Long, _
ByVal szCursor As String, ByVal cbCursor As Integer) As_ Integer
Declare Function oSQLSetPos Lib "odbc32.dll" _
Alias "SQLSetPos" (ByVal hstmt As Long, _
ByVal irow As Integer, ByVal fOption As Integer, _
ByVal fLock As Integer) As Integer
Declare Function oSQLSetStmtOption Lib "odbc32.dll" _
Alias "SQLSetStmtOption" (ByVal hstmt As Long, _
ByVal fOption As Integer, ByVal bparam As Long) As_ Integer
8.5. Remote Data Objects
Технология Remote Data Objects (RDO) - объекты для доступа к внешним данным - доступна,
если на компьютере установлена версия Visual Basic 4.0 Entreprise. Очень мало, а в некоторых
случаях и совсем не уступающая по скорости доступа к данным, по отношению к прямому
использованию ODBC API, данная технология значительно проще в использовании. Особенно
тем, кто знаком с DAO - набором объектов для доступа к данным.
В этом параграфе мы рассмотрим практические вопросы использования технологии RDO в
приложении клиент-сервер.
RDO представляет собой тонкую прослойку кода над ODBC API и менеджером драйверов,
которая устанавливает соединения, создает наборы данных и курсоры, выполняет другие
сложные процедуры, требуя минимума ресурсов рабочей станции, так как все процессы
происходят на сервере.
Есть определенные различия при визуальной работе с RDO в Visual Basic и Access. В Visual
Basic у вас есть возможность воспользоваться элементом управления ActiveX - RemoteControl,
который еще в большей степени скрывает сложность работы с внешними данными. Вам
достаточно установить лишь несколько свойств этого объекта, и вы получаете доступ к
необходимой информации.
Используя RDO или объект RemoteControl, вы обходите процессор данных. При этом вы
можете иметь доступ к внешним данным любого формата, хотя лучше использовать метод для
доступа к данным на сервере таких баз данных, как MS SQL Server или Oracle. При работе с RDO
вы можете использовать как синхронный, так и асинхронные процессы, поэтому при большой
выборке данных с сервера ваше приложение не будет блокировано на период получения данных.
В табл. 8.7 приводятся эквиваленты объектов DAO для объектов RDO.
RDO оперирует понятиями "строка", а не "запись" и "колонка", а не "поле". Так же как DAO,
все объекты в RDO содержатся в коллекциях, исключение составляет только rdoEngine. Иерархия
объектов RDO приведена на рис. 8.13. Когда RDO инициализируется в первый раз, то создается
экземпляр объекта rdoEngine и коллекция rdoEnvirinments, состоящая из одного объекта
rdoEnvironments(0).
converted to PDF by HupBaH9I
Рис. 8.13.
Для установки связи с источником данных ODBC и необходимой базой данных необходимо
создать объект rdoConnection. Если у вас нет необходимого источника данных, то вы можете
создать его с помощью метода rdoRegisterDataSource или с помощью диалоговых средств
Администратора ODBC.
Таблица 8.7. Соответствие объектов RDO объектам DAO
Объект RDO Эквивалентный объект DAO
rdoEngine DBEngine
Отсутствует User, Group
rdoEnvironment Workspace
rdoConnection Database
rdoTable TableDef
Отсутствует Index
rdoResultset Recordset
Forward-only - type Похоже на Forward-Only
Snapshot
rdoColumn Field
rdoPreparedStatement
QueryDef
Существует два подхода к выполнению запросов и созданию результирующего набора данных:
• Использование запроса, который будет применяться только один раз. В этом случае
воспользуйтесь методами OpenResulset или Execute, выполняющими SQL запрос для
существующего объекта rdoConnection и создающими объект rdoResultset или
выполняющими запрос действия.
• Использование запроса, который будет применяться неоднократно и дополнительно
может иметь параметры. Воспользуйтесь методом CreatePreparedStatement для создания
объекта rdoPreparedStatement, который может использоваться в любое время, когда он
снова понадобится и для которого можно изменять значения параметров перед каждым
повторным использованием. После того как объект rdoPreparedStatement будет создан,
используйте методы OpenResultset и Execute с объектом rdoPreparedStatement, для того
чтобы создать объект rdoResulset или выполнить запрос действия. Для того чтобы
изменить параметры, используйте установки объекта rdoParameter.
Используя аргументы метода OpenResultset или свойства объекта rdoPreparedStatement, вы
можете установить тип курсора и другие атрибуты объекта rdoResultset.
Перед тем как начать работать с RDO, необходимо, используя команду References меню Tools,
подключить объекты RDO к вашему проекту. В списке доступных объектов они так и будут
называться - Microsoft Remote Data Object. Если вы работаете в Access, то достаточно наличия
этих объектов на компьютере, но, как указывалось выше, для этого необходимо установить Visual
Basic Entreprise Edition. После того как эти условия выполнены, вы можете свободно обращаться
ко всем методам и свойствам этих объектов.
Самым верхним в иерархии объектов является rdoEngine. Вспомните об объекте dbEngine из
DAO. С помощью следующей строчки вы уже обращаетесь к RDO:
converted to PDF by HupBaH9I
rdoEngine.rdoDefaultCursorDriver = rdUseOdbc
Объект rdoEngine имеет следующие свойства:
- rdoDefaultCursorDriver - может принимать три значения, которые являются
предопределенными константами:
Константа Значение
Описание
rdUseIfNeeded
0 ODBC драйвер будет использовать
соответствующий тип курсора. Курсоры
сервера будут использоваться, если они
доступны.
rdUseODBC 1 В данном случае RDO использует
библиотеку курсоров ODBC. Наиболее
подходящий путь при работе с выборками
небольшого объема.
RdUseServer 2 Драйвер ODBC использует курсоры
сервера. Подходит для большинства
операций при обработке больших массивов
данных, но приводит к резкому
возрастанию сетевого трафика.
Курсором является логический набор данных, управляемый источником данных или
Диспетчером ODBC.
- rdoDefaultErrorTreshold - данное свойство устанавливает или возвращает установку по
умолчанию для свойства ErrorTreshold объекта rdoPreparedStatement. Суть использования
данного свойства заключается в том, что каждая ошибка имеет свойство Number. Если свойство
Number больше значения свойства ErrorTreshold, то ошибка не генерируется, в противном случае
генерируется перехватываемая ошибка, которая либо заканчивает работу приложения, либо
обрабатывается, если это предусмотрено в коде или системе. Если установить это свойство
равным -1, то, соответственно, никакого объекта для отсечения перехватываемых ошибок не
будет.
- rdoDefaultLoginTimeout - возвращает или устанавливает количество секунд, в течение
которых ODBC драйвер прекратит попытку установить соединение с источником данных и
возвратит перехватываемую ошибку. Значение по умолчанию - 15 с. Если это значение равно 0,
то попытка установить соединение с источником данных, используя текущую процедуру
регистрации, будут продолжаться неопределенное время.
Свойства rdoDefaultPassword и rdoDefaultUser устанавливают пароль и пользователя по
умолчанию для всякого вновь создающегося объекта rdoEnvironment.
Объект rdoEngine имеет два метода. Метод rdoRegisterDataSource служит для занесения в
Регистр Windows информации о вновь создаваемом источнике данных ODBC. Таким образом вы
можете создавать источники данных, минуя диалоговое окно Администратора ODBC. Это очень
удобно при распространении вашего приложения. Хотя есть и другие способы внести
информацию о новом источнике данных в Регистр Windows.
Приведем синтаксис этого метода:
rdoRegisterDataSource cDataSourceName, cDriverName, lSilent, cAttributes
где
• cDataSourceName - имя, которое вы хотите присвоить источнику данных. В дальнейшем
остальные методы, которым необходимо связаться с базой данных, для которой вы
создаете источник данных, будут использовать это имя. Например, метод OpenConnection.
• cDriverName - строковое выражение, являющееся именем драйвера, зарегистрированным
в Регистре Windows. При этом обращаем внимание, что драйвер уже должен быть
установлен.
• lSilent - логическое выражение, которое указывает, будет ли появляться диалог ODBC, в
котором вы укажете специфичную для данного драйвера информацию. Если вы укажете
это значение равным True, то вам надо будет указать всю необходимую информацию в
аргументе cAttributes.
• cAttributes - строковое выражение, в котором вы указываете дополнительную
информацию для драйвера. Для каждого драйвера эта информация специфична.
Параметры, которые необходимо описать, вы можете посмотреть в Регистре Windows,
найдя описание источника данных, которые устанавливает связь с базой данных
подобного формата. Например так, как это показано на рис. 8.14.
converted to PDF by HupBaH9I
Для работы с внешними данными RDO использует объект окружения (rdoEnvironment). При
этом одно окружение в коллекции создается автоматически. Этого окружения вполне достаточно
для работы с данными, так как с помощью него вы можете создать сколько угодно соединений и
одновременно редактировать таблицы из нескольких баз данных, даже разного формата. Но
иногда необходимо обрабатывать более сложные ситуации, в которых надо вести несколько
транзакций одновременно. Тогда имеет смысл создавать дополнительные объекты
rdoEnvironment. Здесь необходимо отметить, что ODBC не поддерживает возможности вложенных
транзакций. Выход из положения можно найти, если приложение, с данными которого вы
работаете, поддерживает вложенные транзакции. Тогда вы можете использовать SQL выражения,
которые будут передаваться на сервер и создавать сложные вложенные и пересекающиеся
транзакции.
Объект rdoEnvironment создается с помощью метода rdoCreateEnvironment и имеет следующий
синтаксис:
set Variable = rdoCreateEnvironment(Name, User, Password)
где
• Variable - объектная переменная, которая ссылается на объект rdoEnvironment.
• Name - строковая переменная, которая становится уникальным именем объекта
Environment.
• User - имя пользователя объекта rdoEnvironment.
• Password - пароль пользователя.
Приведенная ниже программа демонстрирует установку и чтение некоторых из
вышеприведенных свойств и использование методов rdoRegisterDataSource и
rdoCreateEnvironment.
Const rServerDSN = "ToAutostore"
Const rServerUser = "UID=sa;DATABASE=autostore"
Dim grdfEnv As rdo.rdoEnvironment
Dom grdfConn As rdo.rdoConnection
Dim sqlAttr As String
strAttr = "Description=Connect to autostore" & _
Chr$(13) & "OemToAnsi=No" & _
Chr$(13) & "Address=\\MAINSERVER\AUTOSTORE\" _ & Chr$(13) & _
"Database=Autostore"
rdoEngine.rdoRegisterDatasource rServerDSN, _ "SQL Server", True, sqlAttr
If grdfEnv Is Nothing Then
rdoEngine.rdoDefaultCursorDriver = rdUseOdbc
Set grdfEnv = rdoEngine.rdoCreateEnvironment _
("", "", "")
Set grdfConn = grdfEnv.OpenConnection _
(rServerDSN, rdDriverNoPrompt, False, _
rServerUser)
grdfConn.QueryTimeout = 0
End If
Коллекция rdoEnvironments содержит в себе все объекты rdoEnvironment объекта rdoEngine.
Она имеет всего один метод Item, который устанавливает доступ к конкретному объекту в
зависимости от его порядкового номера в коллекции. То есть вы можете обращаться к первому
объекту в коллекции с помощью метода Item, например:
Set grdfConn = rdoEnvironments.Item(0).grdfEnv.OpenConnection _
(rServerDSN, rdDriverNoPrompt, False, _
rServerUser)
В то же время следующий пример эквивалентен предыдущему:
Set grdfConn = rdoEnvironments(0).grdfEnv.OpenConnection _
(rServerDSN, rdDriverNoPrompt, False, _
rServerUser)
Коллекция rdoEnvironments имеет свойство Count, которое используется только для чтения и
возвращает количество объектов в коллекции.
Объект rdoEnvironment содержит три метода для работы с транзакциями. Это методы
BeginTrans, CommitTrans и RollBackTrans. Эти методы очень похожи на соответствующие методы
converted to PDF by HupBaH9I
объекта Workspace из DAO. Но имеет смысл напомнить еще раз, что нельзя использовать
вложенные транзакции. В то же время вы можете управлять транзакциями на сервере с помощью
SQL команд BEGIN TRANSACTION, COMMIT TRANSACTION, ROLLBACK TRANSACTION,
передавая их на сервер с помощью запросов действия.
BEGINTRANS начинает транзакцию.
COMMITTRANS прекращает текущую транзакцию и сохраняет все изменения.
ROLLBACKTRANS заканчивает текущую транзакцию и восстанавливает базы данных в
текущем объекте rdoEnvironment в то состояние, в котором они находились до начала
транзакции.
Объект rdoEnvironment имеет метод Close. При работе с этим методом необходимо помнить, что
вы не можете закрыть окружение по умолчанию, то есть объект rdoEnvironments(0). Если
текущий объект rdoEnvironment содержит открытые соединения, которые используются
объектами rdoResulset, то после закрытия объекта rdoEnvironment все текущие транзакции
прекращаются и базы данных возвращаются в первоначальное состояние.
Метод OpenConnection служит для создания и открытия соединений, которые являются
единственной коллекцией, содержащейся в объекте rdoEnvironment и объекты которой
используются для доступа к данным в базе данных, указанной в источнике данных. Этот метод
имеет следующий синтаксис:
Set Connection = Environment.OpenConnection(DataSourceName[,
Prompt[, Readonly[, Connect]]])
Connection - объектная переменная, которая ссылается на объект rdoConnection.
Environment - выражение, которое обозначает существующее окружение.
DataSourceName - строковое выражение, обозначающее имя источника данных, так как оно
зарегистрировано в Реестре Windows. При этом если не указать его, то есть ввести пустую строку
или указать несуществующий источник данных, то будет выведено диалоговое окно ODBC для
выбора источника данных из списка существующих. Тем не менее, если аргумент Prompt имеет
значение rdDriverNoPrompt, будет сгенерирована перехватываемая ошибка и никакого
диалогового окна выведено не будет. В то же время можно ввести имя источника данных в
аргументе Connect в параметре DataSourceName.
Prompt может принимать одно из четырех значений предопределенных констант. В
зависимости от этого значения диспетчер ODBC драйверов требует от пользователя ввода
DataSourceName (имени источника данных), имени пользователя и пароля.
Значение аргумента Описание
rdDriverNoPrompt Диспетчер драйверов
использует информацию из
аргументов
DataSourceName и Connect
для построения строки
соединения. Если
необходимая информация
не будет обеспечена, то
метод OpenConnection
возвратит ошибку.
RdDriverPrompt Диспетчер драйверов
выводит диалог ODBC и
строит строку соединения
по информации, введенной
пользователем в этом
диалоге.
rdDriverComplete Диспетчер драйверов
выводит диалог ODBC
только в случае недостатка
информации в аргументах
DataSourceName и Connect.
rdDriverCompleteRequired
Диспетчер драйверов ведет
себя так же, как в случае,
когда данный аргумент
равен rdDriverComplete, за
исключением того, что в
диалоге ODBC отключены
элементы,
converted to PDF by HupBaH9I
предоставляющие
информацию, которая
больше не нужна.
• Readonly - определяет, будет ли соединение открыто для доступа только для чтения или
для чтения и записи.
• Connect - строковое выражение, используемое для открытия баз данных. Эта строка
составляет ODBC аргументы соединения и зависит от конкретного используемого
драйвера.
Иногда могут возникнуть причины, по которым вы не сможете установить соединение, среди
них такие, как отсутствие прав доступа к источнику данных, неправильное соединение сети,
отсутствие или отключение источника данных. Некоторые серверы баз данных имеют
ограничение на количество соединений по разным причинам, в том числе и ограничение по
ресурсам.
Создав объект rdoConnection, вы можете использовать его для
• Создания объектов rdoResultset или rdoPreparedStatement, используя методы
OpenResultset или CreatePreparedStatement, в зависимости от решаемых задач.
• Доступа к таблицам базы данных и колонкам каждой таблицы, используя объекты
rdoTable и rdoColumn в коллекциях rdoConnections(0).rdoTables и
rdoTables(n).rdoColumns.
• Начала, завершения или отката транзакции, используя методы Begin-Trans, CommitTrans
и RollbackTrans.
• Отсоединения от источника данных и освобождения ресурсов, используя метод Close.
Объект rdoEnvironment имеет несколько свойств, которые перечислены в следующей таблице.
Свойство Описание
CursorDriver
Служит для установки и чтения
значения, устанавливающего тип
курсора, который будет создан. Может
иметь три значения: rdUsedIfNeeded,
rdUseODBC, rdUseServer.
hEnv Возвращает значение указателя ODBC
окружения, которое можно
использовать для вызова ODBC API
функций.
LoginTimeOut
При использовании баз данных ODBC
возможны задержки из-за сетевого
трафика или напряженного
использования источника данных
ODBC. Чтобы избежать неопределенно
долгого ожидания, можно установить
время, после которого диспетчер
драйверов ODBC сгенерирует ошибку.
Name Имя объекта.
Password Возвращает пароль, используемый во
время создания объекта
rdoEnvironment.
UserName Возвращает или устанавливает имя
пользователя объекта rdoEnvironment.
Следующая коллекция объектов, которая входит в объект rdoEngine, называется rdoErrors и
служит для обработки ошибок при работе с RDO.
Всякий раз, когда диспетчер ODBC пытается выполнить запрос RDO, может возникнуть
ошибка. Подобные ошибки могут иметь различные причины и вызывать различные последствия
для вашей программы, вплоть до полного прекращения процесса выполнения запроса или даже
вашей процедуры или функции. Как только ошибки возникли, информация о них помещается в
коллекцию rdoErrors. Далее появляется возможность исследовать каждый объект rdoError
коллекции rdoErrors на предмет причины возникновения ошибки и выполнения дальнейших
converted to PDF by HupBaH9I
действий. Visual Basic также создает перехватываемую ошибку во время возникновения
ошибочных ситуаций. Поэтому имеет смысл использовать конструкцию
On Error Goto <<метка>>
для обработки информации, содержащейся в объектах коллекции rdoError и для принятия
последующих решений. Два свойства - rdoDefaultErrorTreshold и ErrorTreshold - позволяют
понизить или повысить ограничения на ситуации, которые могут вызвать фатальные ошибки.
Добавим в предыдущий пример строчки, которые будут заниматься обработкой ошибок:
Function rdfInitialize() As Boolean
Const rServerDSN = "ToAutostore"
Const rServerUser = "UID=sa;DATABASE=autostore"
Dim errX As rdo.rdoError
Dim grdfEnv As rdo.rdoEnvironment
Dim grdfConn As rdo.rdoConnection
Dim sqlAttr As String
strAttr = "Description=Connect to autostore" & _
Chr$(13) & "OemToAnsi=No" & _
Chr$(13) & "Address=\\MAINSERVER\AUTOSTORE\" _ & Chr$(13) & _
"Database=Autostore"
rdoEngine.rdoRegisterDatasource rServerDSN,_ "SQL Server", _
True, sqlAttr
If grdfEnv Is Nothing Then
rdoEngine.rdoDefaultCursorDriver = rdUseOdbc
Set grdfEnv = rdoEngine.rdoCreateEnvironment _
("", "", "")
Set grdfConn = grdfEnv.OpenConnection _
(rServerDSN, rdDriverNoPrompt, False, _
rServerUser)
grdfConn.QueryTimeout = 0
End If
rdfInitializeExit:
DoCmd.Hourglass False
Exit Function
rdfInitializeErr:
For Each errX In rdoEngine.Errors
MsgBox "Ошибка " & errX.Number & " вызвана " _
& errX.Source & ": " & errX.Description, _
vbCritical, "rdfInitialize()"
Next errX
rdfInitialize = False
Resume rdfInitializeExit
End Function
Коллекция rdoErrors имеет два метода. Метод Clear служит для удаления всех объектов
rdoError из коллекции. Метод Item предназначен для доступа к объектам rdoError по их индексу.
Впрочем, следующие строчки эквивалентны:
myRdoError=rdoEngine.rdoErrors.Item(1)
myRdoError=rdoEngine.rdoErrors(1)
Свойство Count возвращает количество объектов rdoError в коллекции.
Следующая таблица описывает свойства объекта rdoError.
Свойство
Описание
Description
Возвращает строковое выражение,
содержащее описание ошибки.
HelpContext
Если в свойстве HelpFile указан файл
помощи Microsoft Windows, свойство
HelpContext используется для того, чтобы
автоматически выводить раздел помощи,
который он идентифицирует.
converted to PDF by HupBaH9I
Help-File Указывает полный путь к файлу помощи.
Source Возвращает строковое выражение. При
возникновении ошибки во время
операций ODBC объект rdoError
добавляется в коллекцию rdoErrors. Если
ошибка возникла внутри RDO,
возвращаемое значение начинается с
выражения "MSRDO32". Объектный
класс, который явился инициатором
ошибки, также может быть добавлен к
значению свойства Source.
SQLRet-
Code
Возвращает код ошибки последней
операции RDO. Значение имеет тип Long
и может равняться одной из следующих
констант:
rdSQLSuccess - операция завершилась
успешно;
rdSQLSuccessWithInfo - операция
завершилась успешно и доступна
дополнительная информация;
rdSQLNoDataFound - нет никаких
доступных дополнительных данных;
rdSQLError - ошибка, случившаяся во
время выполнения операции;
rdSQLInvalidHandle - предоставленный
указатель указан неверно.
SQL-State Символьная строка, возвращаемая
свойством SQLState, состоит из
двухсимвольного значения класса, за
которым следует трехсимвольное
значение подкласса. Значение класса
"01" указывает на предупреждение и
сопровождается кодом, возвращаемым
rdSQLSuccessWithInfo.
Следующим объектом в иерархии RDO является rdoConnection, который представляет собой
физическое соединение с сервером. Объект rdoConnection имеет методы для работы с
транзакциями, но в данном случае налицо явный пример полиморфизма, так как здесь диапазон
действия этих методов ограничивается ODBC процессами, использующими указатель текущего
соединения. То есть, если вы применяете параллельные транзакции, каждая их которых
использует свое соединение или объект rdoConnection, то можете завершить каждую транзакцию
отдельно, применяя методы CommitTrans каждого объекта по очереди. Если необходимо
завершить все транзакции в текущем окружении, то используйте метод CommitTrans (или
RollbackTrans) объекта rdoEnvironment.
С помощью объекта rdoConnection мы имеем доступ к трем объектам, находящимся на
последних уровнях иерархии RDO. Объект rdoTable предоставляет таблицы и представления
(View), хранящиеся в базе данных. Объект rdoTable позволяет нам узнать много полезной
информации о таблице или представлении на сервере. С его помощью можно получить сведения
о типе таблицы, количестве записей и возможности модификацииь ее данных, что является
достаточно важным свойством, так как представления на сервере очень часто не позволяют
изменять содержимое строк и колонок, которые они порождают. В то же время для объекта
rdoTable нет методов для перемещения по записям, поэтому достаточно затруднительно вывести
информацию о записи, которая не является первой. Объекты rdoTable входят в коллекцию
rdoTables. При этом мы можем обращаться к любому ее объекту по его имени, то есть следующим
образом:
Set myrdEnv =rdoEngine.rdoEnvironment(0)
Set myrdConn=myrdEnv.OpenConnection("Toautostore", _ rdDriverNoPrompt, False)
Set myrdTable = myrdConn.rdoTables("account")
Последнюю строчку можно переписать следующим образом:
Set myrdTable = myrdConn.rdoTables!account
Если вы знаете порядковый номер объекта rdoTable в коллекции rdoTables, то возможно и
такое обращение:
converted to PDF by HupBaH9I
Set myrdEnv =rdoEngine.rdoEnvironment(0)
Set myrdConn=myrdEnv.OpenConnection("Toautostore", _ rdDriverNoPrompt, False)
Set myrdTable = myrdConn.rdoTables(2)
Вторым объектом на этом уровне иерархии, который мы рассмотрим, будет объект rdoResults.
При разработке интерфейса конечного пользователя именно этот объект является самым
главным. Следующий код показывает простейший пример получения и использования этого
объекта.
Создайте в Visual Basic 4.0 Entreprise Edition форму, в которой разместите текстовое поле с
названием text1.
Private Sub Form_Load()
'Создается переменная объекта окружения -
'соответствует Workspace
Dim RDE As rdo.rdoEnvironment
' Создается переменная соединения - объекта,
' служащего для скрытия
' сложной работы функций ODBC API,
' и который позволяет нам подсоединятся
' к данным любого формата при наличии,
' естественно, соответствующего
' драйвера
Dim rdConn As rdo.rdoConnection
' Ниже создаются объекты таблицы,
' колонки, набора данных, ошибки
Dim rdoTab As rdo.rdoTable
Dim rdoCol As rdo.rdoColumn
Dim rdoRst As rdo.rdoResultset
Dim errX As rdoError
' Свойство rdoDefaultCursorDriver определяет, какой
' курсор будет
' использоваться для перемещения по данным -
' курсор ODBC или сервера
' в нашем случае мы выбрали курсор
' сервера, так как при работе с данными
' большого набора это лучший выбор
rdoEngine.rdoDefaultCursorDriver = rdUseServer
'Инициализация переменной окружения
Set RDE = rdoEngine.rdoCreateEnvironment("", "", "")
'Инициализация переменной соединения
Set rdConn = RDE.OpenConnection("myteach",_rdDriverNoPrompt, False)
'Инициализация обработчика ошибок
On Error GoTo rdfInitializeErr
' Данная строчка помещена из методических
' соображений,
' потому что вы вполне можете
' ее опустить и написать следующую строчку как Set rdorst=
'rdConn.OpenResultset("MyTable",rdOpenDynamic,rdConcurValues).
'Мы просто хотим указать, что при обращении
'в методе OpenResultset к
'объекту rdoTable требуется его имя.
'Впрочем, об этом сказано в Справке.
Set rdoTab = rdConn.rdoTables("MyTable")
'Инициализация переменной набора данных
Set rdoRst = rdConn.OpenResultset(rdoTab.Name, _
rdOpenDynamic, rdConcurValues)
'Инициализация переменной колонки
Set rdoCol = rdoRst.rdoColumns(1)
rdoRst.Edit
rdoCol.Value = 27
rdoRst.Update
Me!text1 = rdoCol.Value
Exit Sub
rdfInitializeErr:
If Err.Number = rdoEngine.rdoErrors(0).Number And _
rdoEngine.rdoErrors.Count >> 1 Then
converted to PDF by HupBaH9I
For Each errX In rdoEngine.rdoErrors
MsgBox "Error " & errX.Number & " вызвана " _
& errX.Source & ": " & errX.Description,_
vbCritical, "rdfInitialize()"
Next errX
Else
MsgBox "Error " & Err.Number & " вызвана " _
& Err.Source & ": " & Err.Description, _
vbCritical, "rdfInitialize()"
End If
End Sub
Объект rdoResultset можно создать с помощью метода OpenResulset, который применяется к
объектам rdoConnection, rdoTable и rdoPreparedStatement (о последнем объекте речь впереди). В
силу этого метод OpenResultset имеет два вида синтаксиса, один из которых относится к объекту
rdoConnection
Set Variable = Connection.OpenResultset(Source[,
Type[, Locktype[, Options]]])
другой к объектам rdoTable и rdoPrepraredStatement
Set Variable = Object.OpenResultset([ Type[,
Locktype [, Options]]])
Пример первого варианта синтаксиса можно найти в предыдущей процедуре
Set rdoRst = rdConn.OpenResultset(rdoTab.Name, _
rdOpenDynamic, rdConcurValues)
Первым аргументом является источник данных, которым может быть объект rdoTable, как
показано в предыдущем примере, объект rdoPreparedStatement или SQL выражение.
Таким образом, мы можем создать совершенно одинаковый набор данных, используя
различные варианты синтаксиса и объекты в качестве аргументов. Например, используем SQL
выражение:
Set rdoRst=rdConn.OpenResulset("SELECT * FROM MYTABLE", _
rdOpenDynamic, rdConcurValues)
При использовании второго варианта синтаксиса аргумент Source (источник данных)
отсутствует, так как объект, к которому вы применяете метод, сам по себе является источником
данных.
Set rdoTab = rdConn.rdoTables("MyTable")
Set rdorst=rdoTab.OpenResultset(rdOpenDynamic,rdConcurValues)
Если сравнить два последних фрагмента, становится видно, что первый вариант более гибок,
так как, добавив условие с помощью ключевого слова WHERE, мы можем значительно сократить
выборку и соответственно значительно уменьшить нагрузку на ресурсы, выиграв при этом в
скорости выполнения.
Теперь самое время поговорить об объекте rdoPreparedStatement, после чего мы продолжим
разговор о методе OpenResulset.
Объект rdoPreparedStatement создается с помощью метода объекта rdoConnection
CreatePreparedStatement, который имеет следующий синтаксис:
Set Prepstmt = Connection.CreatePreparedStatement(Name, Sqlstring)
Аргумент Name - это имя вновь создаваемого объекта rdoPreparedStatement. Следующий
аргумент - Sqlstring - является правильным выражением SQL. Оба аргумента обязательны, но их
можно заменить пустой строкой (""). Объект, созданный с помощью этого метода, автоматически
добавляется к коллекции rdoPreparedStatements. При этом если вы не снабдили его именем, то
есть использовали пустую строку, то обращаться к нему можно с помощью переменной объекта
prepstmt или по порядковому номеру в коллекции - rdoPreparedStatements(2).
У вновь созданного объекта rdoPreparedStatement имеется коллекция rdoParameters, с
помощью которой вы можете передавать параметры в аргумент Source метода OpenResultset.
Например:
converted to PDF by HupBaH9I