Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Страница Турнирная таблица
Страница Календарь и результаты
Страница Команда
Страница Игрок
Страница Новости
Эта процедура выводит информацию об играх текущего дня. Поэтому из базы данных извлекаются результаты всех игр, соответствующих текущей дате. Обратите внимание на использование подзапроса для извлечения названия выездной команды в игре:
-
DBCommand = New OleDbDataAdapter _
("SELECT Teams.TeamCity + ''+"_
& "Teams.TeamNickName as [Хозяева], " _
& "Games.ScoreTeaml as [Набрано очков], "
& "(Select TeamCity + ' ' + TeamNickName _
& "from Teams where TeamID - TeamID2) "
& " as [Гости], " _
& "Games.ScoreTeam2 as [Набрано очков] " _
& "FROM Games INNER JOIN "
& "Teams ON Games.TeamlDl = Teams.TeamID " _
& "Where Games.GameDate = '" _
& Today() & "'", DBConn)
-
DBCommand.Fill(DSPageData, _
"Games")
-
dgGames .DataSource =
DSPageData.Tables("Games").DefaultView
dgGames. DataBindO
-
calDateToUse.SelectedDate = Today О
-
Sub calSelectChange(ByVal Sender as Object, ByVal 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=INETC6;"
& "User, Id=sa;"
& "Password~yourpassword;")
DBCommand = New OleDbDataAdapter _
("SELECT Teams.TeamCity +''+"_
& "Teams.TeamNickName as, [Хозяева], " _
& "Games.ScoreTeaml as [Набрано очков], " _
& " (Select TeamCity + ' ' + TeamNickName "
& "from Teams where TeamID = TeamID2) " _
& " as [Гости], " _
& "Games.ScoreTeam2 as [Набрано очков] " _
& "FROM Games INNER JOIN "
& "Teams ON Games.TeamlDl = Teams.TeamID " _
& "Where Games.GameDate = '" _
& calDateToUse.Seiecteaoate & "'", DBConn)
DBCommand.Fill(DSPageData, _
"Games")
dgGames.DataSource = _
DSPageData.Tables("Games").DefaultView
dgGames.DataBind()
End Sub
-
DBCommand - New OleDbDataAdapter _
("SELECT Teams. TeamCity +''+"_
& "Teams. TeamNickName as [Хозяева], " _
& "Games. ScoreTeaml as [Набрано очков], " _
& " (Select TeamCity + ' ' + TeamNickName " _
& "from Teams where TeamID = TeamID2) "
& " as [Гости], " _
& "Games.ScoreTeam2 as [Набрано очков] " _
& "FROM Games INNER JOIN "
& "Teams ON Games.TeamlDl = Teams.TeamID " _
& "Where Games.GameDate = '" _
& calDateToUse.SelectedDate & "'", DBConn)
DBCommand.Fill(DSPageData, _
"Games")
dgGames.DataSource = _
DSPageData.Tables("Games").DefaultView
dgGames.DataBind{)
 |
 |
