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

? "Where TeamlD - "

? Request.QueryString("TeamlD"), DBConn) DBCommand.Fill(DSPageData, "Teamlnfo")

которое затем помещается в элемент управления Label:

lblTitle.Text - DSPageData.Tables("Teamlnfo"). _ Rows(O).Item("TeamCity") ? " " ? DSPageData.Tables("Teamlnfo"). _ Rows(O).Item("TeamNickName")

Потом нужно извлечь сведения обо всех играх, в которых участвовала или собирается принимать участие команда:

DBCommand - New OleDbDataAdapter

("SELECT Convert(varchar(12), GameDate, 101) " _ & "as [Date], " _ ? "Teams.TeamCity + • ' + " _ & "Teams.TeamNickName as [Хозяева], " & "Games.ScoreTeaml as [Набрано очков], " ? "(Select TeamCity + • ' + TeamNickName " _ - & "from Teams where TeamlD - TeamID2) " ? " as [Гости], " _

? "Games.ScoreTeam2 as [Набрано очков] " ? "FROM Games INNER JOIN " _ ? "Teams ON Games.TeamlDl « Teams.TeamlD " ? "Where TeamlDl - "

? Request.QueryString("TeamlD") ? " or " ? "TeamID2 - " ? Request.QueryString("TeamlD") _ , DBConn) DBCommand.Fill(DSPageData, "Games")

Эти записи помещаются в объект DataGrid: ,.

dgGames.DataSource - _

DSPageData.Tables("Games").DefaultView dgGames.DataBind()

Далее требуется извлечь имена и идентификаторы всех игроков команды:

DBCommand - New OleDbDataAdapter ("SELECT PlayerID, ?

? "LastName + • + FirstName as PlayerName " _ ? "From Players Where TeamlD - " ? Request.QueryString("TeamlD") _ ? " Order By LastName", DBConn) ~ DBCommand.Fill(DSPageData, "Players")

Они записываются в элемент управления DropDownList:

ddl Players. DataSource - _

DSPageData.Tables("Players").DefaultView ddlPlayers.DataBind()

Кроме того, следует получить заголовки и идентификаторы всех статей, посвященных этой команде:

DBCommand - New OleDbDataAdapter _ ("SELECT TeamNewsID, Headline "