AdptCalls.Fill(dsCalls)

DsCalls.Clear

ByVal e As System.EventArgs) Handles butView.Click

Private Sub butView_Click(ByVal sender As System.Object, _

End Sub

Private Sub Page_PreRender(ByVal sender As Object, _

End Sub

End If

Next

DrpContacts.Items.Add(lstNew)

For Each rowNext In dsContacts.Contacts

Dim rowNext As dsContacts.ContactsRow

AdptContacts.Fill(dsContacts)

If Not IsPostBack Then

ByVal e As System.EventArgs) Handles MyBase.Load

Private Sub Page_Load(ByVal sender As System.Object, _

Dim adptCalls As SqlDataAdapter

Dim adptContacts As SqlDataAdapter

Dim ContactMgmt As SqlConnection

Imports System.Data.SqlClient

8. Web-форма Calls использует для доступа к данным компоненты, определенные в файле Global.asax, поэтому вам понадобятся ссылки на компоненты (они хранятся в переменных состояния), созданные во время выполнения задания 2. Ниже показан код, объявляющий ряд объектов и обрабатывающий событие Page_Load. Этот код получает ссылки на компоненты для работы с БД, делая их доступными коду формы:

Dim dsContacts As New dsContacts()

' Получить сеансовые переменные состояния.

ContactMgmt = Session("ContactMgmt")

adptContacts = Session("adptContacts")

adptCalls = Session("adptCalls")

dsCalls = Session("dsCalls")

dsContacts = Session("dsContacts")

' Этот код выполняется при первом отображении формы.

' Заполнить набор данных Contacts.

' Для каждой строки таблицы...

'...создать новый элемент списка.

Dim lstNew As New ListItem()

lstNew.Text = rowNext.FirstName & " " & rowNext.LastName

lstNew.Value = rowNext.ContactID

' добавить элемент к раскрывающемуся списку.

' Выбрать первый элемент в списке.

drpContacts.SelectedIndex = 0

9. Web-форма Calls модифицирует набор данных Calls во время выполнения. Чтобы после обработки страницы записать набор данных обратно в переменную состояния, необходимо добавить к обработчику события Page_PreRender (это последнее событие, которое обрабатывается перед отображением страницы) следующий код:

ByVal e As System.EventArgs) Handles MyBase.PreRender

' Записать набор данных в сеансовую переменную состояния.

Session("dsCalls") = dsCalls

10. Добавьте к обработчикам события Click кнопок View и Add следующий код:

' Создать команду для выборки из набора данных.

adptCalls.SelectCommand.CommandText = "SELECT * FROM Calls " & _

"WHERE ContactID=" & drpContacts.SelectedItem.Value

' Очистить набор данных.

' Заполнить набор данных сведениями о звонках.

' Связать элемент управления DataList с данными.

dlstCalls.DataBind()

Дата добавления: 2014-12-27