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

runat-"server"

/>

С данной страницей связаны две процедуры. Первая активизируется, когда страница загружается в первый раз или когда посетитель выбирает другой номер для бронирования. В процессе выполнения процедуры формируется исходная форма заказа:

Sub Page Load(ByVal Sender as Object, ByVal E as EventArgs) If Not IsPostBack then

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

DBConn - New OleDbConnection("Provider-sqloledb;" _ ft "server-localhost?" ft "Initial Catalog-INETCIO;" & "User Id-sa;" ft "Password-yourpassword;") DBCommand - New OleDbDataAdapter _ ("Select RoomID, RoomName " ft "From Rooms " ft "Order By RoomName",DBConn) DBCommand.Fill(DSRoomData, _ "Rooms")

ddlRoomID.DataSource - _ ,

DSRoomData.Tables("Rooms").DefaultView ddlRoomID.DataBind() pnlMakeReservation.Visible - True pnlReservationResponse.Visible - False End If End Sub

Текст SQL-запроса помещается в объект DataAdapter, служащий для извлечения идентификаторов комнат в список DropDownList:

DBCommand - New OleDbDataAdapter ("Select RoomID, RoomName " ft "From Rooms " ft "Order By RoomName",DBConn)

Извлеченные данные помещаются в объект DataSet:

DBCommand.Fill(DSRoomData, "Rooms")

Этот объект связывается с элементом DropDownList:

ddlRoomID.DataSource -

DSRoomData.Tables("Rooms").DefaultView ddlRoomID.DataBind()

В завершение необходимо отобразить исходную панель:pnlMakeReservation.Visible - True

а панель результатов скрыть:pnlReservationResponse.Visible - False