<% ASP на блюдечке %>. Часть 6
Использование ADO в ASP
Эволюция способов работы с данными
Методы MoveFirst, MoveLast, MoveNext и MovePrevious
Свойство PageCount, PageSize и AbsolutePage
Введение
В первых статьях серии «<% ASP на блюдечке %>» мы познакомились с ASP, даже можно сказать, изучили тонкости построения разнообразнейших Web-интерфейсов с его помощью, но, как это ни странно, обходили стороной описание компонентов ADO, хотя и использовали некоторые из них для работы с базами данных.
Настоящая статья предназначена для тех, кто хотел бы ознакомиться с основами применения компонентов ADO, тем более что теперь, рассмотрев основы ASP, SQL и принципы проектирования баз данных, сделать это будет достаточно просто. Но и это еще не все. В довершение предлагаю познакомиться с новоявленным ADO — ADO+ и понять, что же является общим, а также вникнуть в различия между ADO и ADO+.
 |
|
Что же такое ADO?
ADO (ActiveX Data Objects) — так называемые объекты данных ActiveX, представляют собой мощные интегрированные средства для создания приложений для работы с базами данных. Под приложениями при этом следует понимать не только приложения-программы, но и Web-приложения.
|
|
Эволюция способов работы с данными
С самых первых дней своего существования программные приложения служили для манипуляций с разнообразнейшими данными. Вначале данные были разрозненными и не структурированными. Постепенно их стали упорядочивать в более регулярные структуры — базы данных. Затем, по мере развития и совершенствования, базы данных переросли из локальных в более общие — распределенные. И хотя это, с одной стороны, несколько усложнило обработку баз данных, суть задач, связанных с процессами обработки, не изменилась. Эволюция породила системы упорядочивания, структуризации и управления данными — серверы баз данных. Первоначально наиважнейшей характеристикой серверов БД считалась их низкая стоимость, в жертву которой зачастую приносилась производительность и масштабируемость. На этом этапе развития архитектура приложений состояла из двух компонентов: клиента и сервера. Последний разрабатывался специально для установленного сервера БД, требования которого к операционной системе были весьма специфичными. О переходе к другому серверу БД не могло быть и речи, поскольку системы того поколения были несогласованными.
Современный подход, предложенный специалистами-разработчиками Microsoft, позволил выполнять однотипные манипуляции над разнообразнейшими наборами данных, вне зависимости от их внутренней структуры и типа сервера БД. Этот подход вошел в историю под названием UDAS (Universal Data Access Strategy), а архитектура разработки приложений в соответствии с ним известна как OLE DB. Microsoft ADO по сути представляет собой интерфейс промежуточного уровня, позволяющий создавать приложения, работающие со всевозможными, разнообразными как по своей структуре, так и по своему происхождению (серверу) базами данных единообразно, максимально просто и оптимизированно. ADO — инструмент для создания приложений в соответствии с концепцией OLE DB.
Конечно, у ADO есть свои плюсы и свои минусы. К последним, в частности, относится невозможность использования технологии вне операционных систем, поддерживающих технологию COM (вследствие того, что сами компоненты ADO являются COM- модулями). Однако плюсы при этом выглядят куда более внушительно: быстрый и удобный интерфейс к базам данных на самом высоком уровне, полнейшая переносимость разрабатываемых приложений для работы с другими базами данных.
|
|
Знакомство с ADO
В основе технологии ADO лежит объектный подход к программированию. Объекты ADO, как и всякие другие объекты, имеют свои свойства и методы, служащие для обеспечения работы с базами данных. Эти объекты, в частности, доступны в среде ASP и функционируют на уровне OLE DB. Благодаря применению ADO программы становятся легко читаемыми и эффективными.
При использовании объектов ADO в ASP-приложениях для подключения к серверу баз данных применяются соответствующие ODBC-драйверы.
|
|
Модель объектов ADO
Модель объектов ADO довольно обширна. Однако в рамках настоящей статьи мы будем рассматривать лишь те объекты ADO, без которых процесс построения Web-интерфейсов к базам данных невозможен. Эти «незаменимые компоненты» можно условно разделить на пять функциональных групп, каждая из которых используется для решения определенного круга задач:
- Объект Command содержит параметры и свойства, связанные с посылаемыми на сервер БД командами. Такими командами могут быть как вызовы хранимых серверных процедур, так и обычные команды, направляемые на сервер для решения определенных административных задач.
- Коллекция Properties, состоящая из объектов Connection, содержит информацию об устанавливаемых с сервером БД соединениях. Перечень свойств включает имя пользователя, имя учетной записи и прочие элементы, необходимые для установления соединения.
- Объект RecordSet включает определения полей и свойств, связанных с находящейся в базе данных информацией.
- Коллекция Fields помогает осуществить доступ к различным столбцам как определенных таблиц базы данных, так и полученных в результате выполнения запросов.
- Коллекция Errors содержит сообщения об ошибках, появляющихся при выполнении запроса или при подключении к серверу БД. Это позволяет создавать обработчики ошибок.
Структурная схема модели объектов ADO представляется следующим образом: 
.
|
|
Соединение с базой данных
Основа всех соединений с базой данных в модели ADO представлена методом Connection. Прежде чем выполнять какие бы то ни было манипуляции с любым из объектов ADO, требуется соединиться с базой данных (создать экземпляр объекта типа Connection):
<% Set db = Server.CreateObject(“ADODB.Connection”) ...
Рассмотрим теперь свойства объекта Connection
db.ConnectionTimeout = 15 db.CommandTimeout = 45 db.ConnectionTimeout = 15 db.Mode = adModeShareDenyRead db.Open connStr … %>
Свойство CommandTimeout — это свойство, позволяющее задать интервал времени в секундах, выделяемый на выполнение команды серверу. Значение этого интервала времени может быть как увеличено (при выполнении сложных запросов), так и уменьшено (в случае простых запросов). Правильная установка значения этого свойства крайне важна по той причине, что является индикатором загруженности сервера. Если, к примеру, выполнение того или иного запроса затягивается (количество одновременно подключенных пользователей резко возросло), то во избежание длительных простоев необходимо «принять меры». Средством, позволяющим оценить эту ситуацию, и является свойство CommandTimeout объекта Connection.
Свойство ConnectionString указывает строку, передаваемую драйверу OLE DB для инициализации источника данных ODBC.
Например:
db.Open “DSN=ishop; UID=sa;PWD=;database=ishop”
Свойство ConnectionTimeout — аналогично свойству CommandTimeout предназначено для контроля над скоростью работы с базой данных, а именно для контроля над скоростью подключения к ней. Надо отметить, что на это значение оказывает влияние и скорость передачи данных (что принципиально в случаях, когда речь идет об удаленной базе данных). По умолчанию значение этого свойства равно 15 сек.
DefaultDatabase — позволяет задать имя базы данных, автоматическое соединение с которой будет выполнено по открытии объекта Connection.
Свойство Mode — определяет тип доступа к базе данных и выполняет определенную оптимизацию соединения в соответствии с выставляемым значением. Поясним это на следующем примере. Предположим, что операции изменения с базой данных выполняться не будут. В этом случае целесообразно открыть ее со свойством Mode = adRead (то есть только для чтения), и это укажет ядру базы данных, что операции изменения производиться не будут. А поскольку ядро базы данных не встраивает поддержку «ненужных» функций в соединение, открытое с заданными свойствами, достигается определенный уровень повышения производительности. Еще одно преимущество свойства mode заключается в том, что в определенных ситуациях оно позволяет получить гарантированный монопольный доступ к определенным категориям данных, что, в свою очередь, зачастую является практически единственным способом сохранить целостность базы данных. Например, когда определенные изменения в базе данных должны быть произведены в так называемом горячем режиме (в подключенном и эксплуатируемом активном состоянии).
Возможные значения свойства Mode
| Константа | Значение | Описание |
|---|---|---|
| adModeUnknown | 0 | Неявный тип доступа. Доступ по умолчанию |
| adModeRead | 1 | Только чтение |
| adModeWrite | 2 | Только запись |
| adModeReadWrite | 3 | Чтение и запись |
| adModeShareDenyRead | 4 | Монопольный доступ только чтение |
| adModeSharedenyWrite | 8 | Монопольный доступ только запись |
| adModeShareExclusive | 12 | Монопольный доступ — как для чтения, так и для записи |
| adModeShareDenyNone | 16 | Монопольный доступ к источнику |
Свойство Provider — служит для указания альтернативного драйвера ODBC. Но поскольку в составе OLE DB имеются драйверы практически ко всем современным базам данных, использование этого свойства, скорее всего, не потребуется.
Метод Close — закрывает соединение с базой данных и все связанные с закрываемым соединением объекты RecordSet.
db.Close Set db = Nothing
Выполнение этой процедуры, тем не менее, не является обязательным, хотя оно и желательно, так как автоматическое отключение активного соединения выполняется лишь при переходе пользователя на другую страницу, при запуске другого приложения или через 20 минут после ухода с Web-сервера, а открытое соединение занимает ресурс памяти сервера, и незакрытые соединения могут поставить сервер в тупик, что особенно важно при больших транзакционных нагрузках на сервер.
Метод Execute — позволяет послать SQL-команду непосредственно ядру базы данных без использования объекта RecordSet. Использование этого метода целесообразно в том случае, когда должны быть выполнены определенные действия, не возвращающие объект типа RecordSet. Например:
…
Set db = Server.CreateObject(“ADODB.Connection”) db.Execute “UPDATE Articles SET Type = 1” …
Метод Open — открытие соединения. Метод служит для открытия доступа к базе данных и должен вызываться всякий раз перед использованием методов и коллекций объекта Connection. Пока не установлены требуемые значения свойств соединения и не осуществлен вызов метода Open, работа с объектом Recordest или с другими связанными с соединением объектами невозможна. В методе Open предусмотрено несколько параметров, каждый из которых предназначен для точного определения способа установки соединения и методов обмена информацией с базой данных.
Например:
…
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Articles"
…
Как видите, параметры UserID и Password не являются обязательными и при необходимости их значения автоматически выбираются из свойств объекта Connection. Проще говоря, если значения свойств объекта Connection уже были установлены, то указывать какие-либо параметры для вызова метода Open нет необходимости. Однако в некоторых ситуациях может потребоваться, чтобы значения этих параметров отличались от тех, что были установлены при подключении к базе данных, например, если требуется открыть соединение другому пользователю базы данных (с другими правами доступа к данным).
После установки соединения с сервером базы данных можно перейти к выполнению требуемой обработки данных в таблицах базы данных. Единственным условием для выполнения всех действий является наличие открытого объекта Connection. Именно через этот объект осуществляется доступ к объектам Command и Recordset. Кроме того, объект Connection может быть использован для посылки команд и операторов языка SQL непосредственно в ядро базы данных, без использования в качестве промежуточного звена объекта Recordset.
Для работы с сервером могут быть использованы два различных объекта — Command и Recordset. Практически вся необходимая обработка данных выполняется с помощью объекта Recordset, поскольку его набор свойств и методов обеспечивает возможность универсальной обработки столбцов таблиц базы данных и помещенных в них значений.
|
|
Объект Command
Объект Command является основополагающим в ходе выполнения любого сеанса ADO соединения с БД. Он используется для создания экземпляра объекта Recordset, по сути являющегося областью хранения промежуточных значений (этаким кэшем) и предоставляющим возможность быстрого обращения к элементам (например, определенной выборки) базы данных. Это позволяет сэкономить временные и аппаратные ресурсы сервера, поскольку в данном случае транзакции с сервером выполняются лишь с целью извлечения каждого конкретного набора отдельных значений (выборки), а вся дальнейшая обработка сводится к операциям над уже извлеченным набором как над отдельным объектом Recordset. Кроме того, следует понимать, что благодаря наличию всего одного (вместо нескольких) соединения с сервером в данном случае возможно извлечение многих значений или их наборов, что, естественно, позволяет как значительно повысить вычислительную производительность сервера, так и соптимизировать создаваемое приложение.
|
|
Метод Execute
Метод Execute применяется для выполнения любых команд языка SQL, независимо от того, будут в результате выполнения команды возвращаться какие-либо данные (результаты запросов) или нет. Этот метод может использоваться и для выполнения на сервере команд администрирования или поддержки базы данных (вызов хранимых процедур — наиболее типичный случай).
Разумеется, метод Execute может быть применен и для выборки помещаемых в объект Recordset данных, поскольку он позволяет использовать посылаемую на сервер команду для определения содержания этого объекта. Существует два способа вызова метода Execute, применение которых зависит от того, куда следует поместить полученные результаты. Если результаты выполнения команды должны быть помещены в объект Recordset — для вызова метода используется приведенный ниже синтаксис.
Set OwnRecordset = OwnCommand.Execute (команда, число_строк, режим)
К примеру:
'Создадим экземпляр объекта типа соединение и откроем его
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=Sailors"
'Создадим экземпляр объекта типа команда
Set objCmd = Server.CreateObject("ADODB.Command")
'Зададим свойства командного объекта
Set objCmd.ActiveConnection = objConn
objCmd.CommandText = strInsert & ") " & strValues & ")"
objCmd.CommandType = adCmdText
'И выполним его
objCmd.Execute
В этом случае объект Connection используется для передачи команды SQL, указанной в качестве значения параметра команда. Команда может быть представлена практически в любой допустимой форме, а не только в операторе выборки SELECT. Для этого можно просто указать в качестве значения параметра команды имя таблицы, а в параметре режима выставить значение adCmdTable, что будет соответствовать режиму извлечения содержимого всей таблицы с заданным именем. Аналогично для выполнения хранимой процедуры достаточно просто указать ее имя и соответствующий режим. Однако при довольно сложных многотабличных запросах такая форма записи, разумеется, непригодна, и приходится пользоваться довольно сложными SQL-конструкциями, например:
sSQL = "SELECT * FROM AdvertFormat" sSQL = sSQL & " LEFT OUTER JOIN AdvertDetails ON AdvertDetails.FormatID = AdvertFormat.ID" sSQL = sSQL & " LEFT OUTER JOIN MNumber ON MNumber.NumberID = AdvertDetails.MagazineID" sSQL = sSQL & " LEFT OUTER JOIN Magazine ON Magazine.MagazineID = MNumber.MagazineID" sSQL = sSQL & " LEFT OUTER JOIN AdvertLayout ON AdvertLayout.ID = AdvertFormat.LayoutID" sSQL = sSQL & " WHERE (AdvertDetails.FirmID = " & AnsiString (FirmID); sSQL = sSQL & ") AND (AdvertDetails.PayerID = " & AnsiString(PayerID); sSQL = sSQL & ") AND (AdvertDetails.MagazineID = " & AnsiString(MagazineID) & ")"
Set rs = db.Execute(sSQL)
Если метод Execute используется для непосредственной обработки информации, внесения изменений в структуру таблицы или выполнения любых других операций, не требующих создания объекта Recordset, то вызов этого метода может быть осуществлен в следующей форме:
command.Execute команда, число_строк, режим
Различие состоит в том, что выполняется простой вызов данного метода, причем после его выполнения не ожидается возвращения каких-либо значений, кроме параметра число_строк, если он имеет смысл. Суть в том, что параметры в команде не нужно брать в скобки. Если вы достаточно хорошо знакомы с Visual Basic, смысл происходящего должен быть вам понятен. При создании объекта Recordset метод Execute вызывался как функция, возвращающая значения. В данном же случае при использовании метода Execute для решения других задач он вызывается как подпрограмма.
Поясним сказанное на двух примерах:
Вызов SQL оператора UPDATE для обновления содержимого таблицы
SQLUpdate = "UPDATE Show " &_
"SET Show.free_seats=" & free_seats & " " &_
" WHERE Show_ID=" & show_id
conn.Execute(SQLupdate)
Вызов SQL оператора INSERT для вставки новой записи в таблицу
SQLquery = "SELECT max([Booking_ID]) as bookingnumber FROM booking"
Set rsBooking = conn.execute(SQLquery)
maxbookid = rsBooking("bookingnumber") + 1
SQLinsert = "INSERT INTO Booking ( show_id, booked_seats ) " & _
"VALUES ('" & show_id & "', '" & tickets & "')"
conn.Execute(SQLinsert)
|
|
Свойство ActiveConnection
Свойство ActiveConnection используется для указания объекта Connection, с которым связан данный объект Command. Если вызов методов объекта Command (например, метода Execute) выполнен до присвоения значения этому свойству, то результатом выполнения будет ошибка. Имя используемого соединения должно быть указано заранее, например следующим кодом:
Set objCmd = Server.CreateObject("ADODB.Command")
Set objCmd.ActiveConnection = objConn
Если необходимо изменить соединение, с которым связан данный объект Command, следует присвоить свойству ActiveConnection значение Nothing, после чего поместить в него новое значение, как было показано выше. Сделать это стоит потому, что фактически операции типа:
objCmd.ActiveConnection = Nothing
будет произведено удаление указателя на экземпляр объекта типа Recordset. К примеру:
…
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "softwing"
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandText = sql
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Nothing
Set cmdTemp.ActiveConnection = DataConn
cmdTemp.Execute
Set cmdTemp = Nothing
Set DataConn = Nothing
…
|
|
Свойство CommandText
Как вы уже, вероятно, догадались, свойство CommandText содержит текущую командную строку, которую необходимо передать драйверу соединения для выполнения в базе данных. Это, по сути, текст команды, которую требуется выполнить. Сюда можно поместить любую команду языка SQL, имя хранимой процедуры или имя таблицы. Если указывается имя хранимой процедуры, то следует либо — поместить перед ним SQL-команду EXEC, либо присвоить параметру режим метода Execute-значение, указывающее на обращение к хранимой процедуре.
К примеру:
objCmd.CommandText = “exec sp_additem @cartid, @itemid, @qty”
|
|
Свойство CommandTimeout
Свойство CommandTimeout является незаменимым и используется для контроля вычислительной нагрузки на сервер и на коммуникационное оборудование, что особенно существенно при создании Internet-приложений. Свойство CommandTimeout может использоваться для представления пользователю некоторых средств контроля над соединением. В свойстве CommandTimeout указывается временной интервал, на протяжении которого объект ADO будет ожидать завершения выполнения данной команды. По умолчанию принимается значение 30 — в обычной ситуации этого вполне достаточно. Однако не следует забывать о некоторых факторах, которые могут повлиять на выбираемое для данного свойства значение, например:
objCmd. CommandTimeout = 60
Если выполняемый запрос достаточно сложен, может потребоваться увеличение значения этого свойства, чтобы предоставить запросу достаточно времени для его завершения. В подобных случаях следует выполнить серию экспериментов, цель которых будет состоять не только в определении среднего приемлемого времени выполнения данного запроса, но и в выявлении случаев чрезмерного ожидания его завершения, указывающих на наличие в системе определенных проблем вычислительного характера. Установку значения свойства CommandTimeout лучше всего выполнить в файле global.asa. Подобный подход придаст дополнительную гибкость процедуре внесения изменений в масштабе всего приложения, если в этом возникнет необходимость. Вместо анализа и корректировки текстов множества файлов достаточно будет изменить одну строку глобального определения данного значения.
|
|
Объект Recordset
Наиважнейшим компонентом ADO является компонент набора данных (recordset). Набор данных — это копия определенного фрагмента базы данных в памяти компьютера, сохраняющая структуру последней. Набор данных представляет так называемое пассивное (не подключенное) к базе данных состояние, то есть фрагмент базы данных присутствует в памяти компьютера, хотя соединение с реальной базой данных уже закрыто. Этот объект предоставляет разработчику широкий набор функциональных возможностей; благодаря ему можно выполнять практически любую обработку выбранной из базы данных информации. Обработка может выполняться как динамически — на основе опроса объекта Recordset о структуре таблицы, так и статически — когда все выполняемые над данными действия жестко закодированы в приложении. В качестве примера рассмотрим следующий простой код, формирующий список ссылок на статьи газетного сайта из базы данных в зависимости от характера самих данных (текстовых или html-файлов):
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Articles"
sSQL = "SELECT * FROM Articles Where IsTopNew = '1' Order By ID DESC"
Set rs = db.Execute(sSQL)
Cnt = 0
Do While NOT Rs.EOF
If rs.Fields("Article").value <> "No Text" Then
Link = "<a href= http://localhost/ArtTempl.asp?id=" & rs.Fields("ID").value & ">" &_
"rs.Fields("Title").value & "</a>"
Else
Link = "<a href= http://localhost/Articles/" & rs.Fields("TextFile").value & ">" &_
"rs.Fields("Title").value & "</a>"
End If
Response.Write Link & "<br>"
Response.Write "<i>By " & rs.Fields("Author").value & "</i><br>"
ANN = rs.Fields("Annotation").value
If ANN <> "NA" Then
Response.Write ANN
End If
Rs.MoveNext
Cnt = Cnt + 1
Loop
db.Close Set db = Nothing %>
|
|
Коллекция Fields
Коллекция Fields — важнейший элемент объекта Recordset. Она содержит информацию, необходимую для работы с выбранными из таблиц данными. Свойства, связанные с каждым из полей в коллекции, содержат его исчерпывающее описание — от установленного в таблице типа и размера этого поля до имени для реальной длины его значения.
Для доступа к этим свойствам необходимо знать имя требуемого поля и название интересующего нас свойства, например, строка вида rs.Fields("Article").value указывает на значение поля Article текущей записи активной таблицы открытой базы данных (см. вышеприведенный пример).
|
|
