Получение данных из базы данных
Получение данных из базы SQL Server или Access обеспечивают объекты Data-Set.
Ниже демонстрируется, как извлечь название курса из таблицы Courses:
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New oleDbConnection(“PROVIDER =Microsoft.Jet.OLEDB.4.0;”_
& “DATA SOURSE=”_
& Server.MapPath(“/Inet/Courses.mdb;”))
DBCommand = New OleDbDataAdapter_
(“Select CourseName from Coursee Where”_
& “CouseID = “ & Session(“CourseID”)_
, DBConn)
DBCommand.Fill(DSPageData,_
“CourseName”)
lblTitle.Text = “<center>Course”_
& DSPageData.Tables(“CourseName”)._
Rows(0).Item(“CourseName’)_
& “</center”
Наряду с объектом OleDbConnection необходим объект OleDbDataAdapter, который будет использоваться для получения данных из базы:
Dim DBCommand As OleDbDataAdapter
Потребуется также объект DataSet, функцией которого является сохранение полученных данных для дальнейшего использования:
Dim DSPageData as New DataSet
Когда соединение с базой данных установлено, активизируется SQL- запрос для получения необходимых данных через объект OleDbDataAdapter:
DBCommand = New OleDbDataAdapter_
(“ Select CourseName from Courses Where”_
& “CourseID = “&Session(“CourseID”)_
, DBConn)
Затем выполняется SQL- инструкция с помощью метода Fill объекта OleDbDataAdapter.
Метод имеет два параметра. Первый параметр представляет собой имя объекта DataSet, в который необходимо поместить данные из базы. Второй параметр – это имя, используемое для задания записи или группы записей в объекте DataSet:
DBCommand.Fill(DSPageData,_
“CourseName”)
Объект DataSet теперь содержит все записи, полученные посредством SQL-запроса. Присвоим название курса свойству Text элемента управления Label:
lblTitle.Text = “<center>Course”_
& DSPageData.Tables(“CourseName”)._
Rows(0).Item(“CourseName’)_
& “</center>”
Взаимодействие с клиентом
Рассмотрим средства для Web-узлов, которые могут использоваться практически любой компанией. Эти средства дают возможность вести диалог с клиентами.
Обсудим проект Анкета. Приложение Анкета динамически создает вопросник для посетителя, чтобы выявить его мнение об определенном аспекте деятельности компании. Ответы, выбранные посетителем, записываются в базу данных.
Проект Анкета
Приложение Анкета удобно использовать для проведения опроса посетителей по различным темам. Приложение является очень гибким в том смысле, что может генерировать различные анкеты с необходимым числом вопросов и ответов. Одна страница приложения позволяет посетителю отвечать на вопросы. Другая страница предназначена для менеджера, который просматривает результаты опроса.
Описание проекта
Приложение будет состоять из двух страниц. Первая страница предназначена для посетителя (рис.13.1)
Посетителю предлагается серия вопросов с возможными вариантами ответов(перечисление ответов осуществляется посредством элементов управления DropDownList). В данном примере посетителю задается четыре вопроса.
Рис. 13.1. Окно проекта Анкета
При рассмотрении кода вы увидите, что в элемент управления Panel динамически добавляются элементы, их число зависит от количества вопросов в анкете.
Ответив на вопросы, посетитель нажимает кнопку OK для передачи своих ответов в базу данных. Текст сообщения также взят из базы данных. Для разных опросов можно применять различные сообщения.