ASP.NET. Учебный курс (Г.Бучек.)

При первой загрузке страницы необходимо заполнить первый элемент DropDownList данными из базы:

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Not IsPostBack Then

Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet

DBConn - New OleDbConnection("Provider-sqlolcdb;" & "server-localhost;" _ & "Initial Catalog-INETC9;^B _ & "User Id-sa;" _ & "Password-yourpassword;") DBCommand - New OleDbDataAdapter _

("Select CourselD, CourseName From Courses" __ , DBConn) DBCommand.Fill(DSPageData, _

"Courses") ddlCourses.DataSource -

DSPageData.Tables("Courses").DefaultView ddlCourses.DataBind() End If End Sub

Данный код должен выполняться только при первой загрузке страницы. Для этого надлежит ввести такую строку:

I

If Not IsPostBack Then

Иначе код будет выполняться и после каждого щелчка на кнопке (элемент управления Button), из-за чего выбор названия курса, сделанный посетителем в первом элементе DropDownList, будет отменен.

Чтобы заполнить список элемента DropDownLis t, необходимо установить соединение с базой данных и получить данные:

Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet

Как было показано в предыдущем разделе, следует передать строку для соединения:

DBConn - New OleDbConnection("Provider-sqloledb;" t "server-localhost;" & "Initial Catalog-INETC9;" _ & "User Id-sa;" & "Password-yourpassword;")

Затем из таблицы Courses извлекаются все записи о курсах:

DBCommand - New OleDbDataAdapter __

("Select (jourselD, CourseName From Courses" DBConn)

Эти записи помещаются в таблицу Courses объекта DataSet:

, -t vfV J ,il.}

DBCommand.Fill(DSPageData, _ "Courses")