Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Файл Global.asax, объекты приложения и сеанса
Объекты Request и Response
Объекты данных и код
Списки и таблицы данных
Данный код должен выполняться только при первой загрузке страницы. Для этого надлежит ввести такую строку:
-
If Not IsPostBack Then
Иначе код будет выполняться и после каждого щелчка на кнопке (элемент управления Button), из-за чего выбор названия курса, сделанный посетителем в первом элементе DropDownList, будет отменен.
Чтобы заполнить список элемента DropDownList, необходимо установить соединение с базой данных и получить данные:
-
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
-
DBConn - New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC9;" _ .
& "User Id=°sa;" _
& "Password=yourpassword;")
-
DBCommand - New OleDbDataAdapter _
("Select CourselD, CourseName From Courses" _
, DBConn)
-
DBCommand.Fill(DSPageData, _
"Courses")
Теперь, когда имеются все записи о курсах, необходимо поместить их названия в элемент DropDownList. С этой целью элемент управления DropDownList связывается с таблицей Data Set. Сначала указывается имя таблицы объекта Data-Set, которая послужит источником данных:
-
ddlCourses.DataSource= _
DSPageData.Tables("Courses").DefaultView
-
ddlCourses.DataBind()
Когда посетитель щелкает на кнопке ОК, значение, выбранное им в элементе управления DropDownList, присваивается свойству Text элемента управления Label.
-
Sub SubmitBtn_Click(Sender As Object, E AasEventArgs)
lblMessage.Text - "По курсу: " _
& ddlCourses.Selectedltem.Text _
& ", который имеет код ID: " _
& ddlCourses.Selectedltem.Value _
& "<Ьг>Ваша оценка: " _
& ddlRating.Selectedltem.Text
End Sub
-
lblMessage.Text = "По курсу: " _
-
& ddlCourses.Selectedltem.Text _
& ", который имеет код ID: " _
-
& ddlCourses.Selectedltem.Value _
& "<Ьг>Ваша оценка: " _
-
& ddlRating.Selectedltem.Text
 |
 |
|
