oldi

<% ASP на блюдечке %>. Часть 6

Использование ADO в ASP

Рубен Садоян, rouben@iname.com

Введение

Что же такое ADO?

Эволюция способов работы с данными

Знакомство с ADO

Модель объектов ADO

Соединение с базой данных

   Объект Command

   Метод Execute

   Свойство ActiveConnection

   Свойство CommandText

   Свойство CommandTimeout

   Объект Recordset

   Коллекция Fields

   Свойство Name

   СвойствоValue

   Методы AddNew и Update

   Метод Close

   Метод Delete

   Методы MoveFirst, MoveLast, MoveNext и MovePrevious

   Метод Open

   Метод Update

   Свойство BOF

   Свойство EOF

   Свойство RecordCount

   Свойство PageCount, PageSize и AbsolutePage

Что же такое ADO+?

Введение

В первых статьях серии «<% 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 текущей записи активной таблицы открытой базы данных (см.  вышеприведенный пример).

В начало

В начало