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

Между элементом DropDownList и объектом DataSet устанавливается связь:

ddlMovieTheatrelD.DataSource - _

DSPageData.Tables("Theatres").DefaultView ddlMovieTheatrelD.DataBind() s

Вторая процедура запускается в результате выполнения щелчка на кнопке. Она добавляет в элемент DataGrid информацию о фильмах, которые демонстрируются в выбранном кинотеатре.

Sub SubmitTheatre_Click(Sender As Object, E As EventArgs) Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet

DBConn - New OleDbConnection("Provider«sqloledb;" & "server-localhost;" & "Initial Catalog-INETCl4;" & "User Id-sa;" & "Password-yourpassword;") DBCommand - New OleDbDataAdapter _ ("Select MovieKame as [Фильм], " & "MovieDescription as [Аннотация], " & "ShowTimes as [Сеансы] from Movies " & "Where MovieTheatrelD - " & ddlMovieTheatrelD.Selectedltem.Value _ & " Order By MovieName", DBConn) DBCommand.Fill(DSPageData,

"Movies") dgMovies.DataSource -

DSPageData.Tables("Movies").DefaultView dgMovies.DataBind End Sub

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

DBCommand - New OleDbDataAdapter

("Select MovieName as [Фильм], " & "MovieDescription as [Аннотация], " & "ShowTimes as [Сеансы] from Movies " & "Where MovieTheatrelD - " & ddlMovieTheatrelD.Selectedltem.Value & " Order By MovieName", DBConn)

Результат выполнения запроса помещается в объект DataSet:

DBCommand.Fill(DSPageData, "Movies")

С ним связывается элемент DataGrid:

dgMovies.DataSource -

DSPageData.Tables("Movies").DefaultView dgMovies.DataBind