Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Страница Турнирная таблица
Страница Календарь и результаты
Страница Команда
Страница Игрок
Страница Новости
а дата и текст статьи — в другом элементе управления Label:
-
IblMessage.Text = DSPageData.Tables("News"). _
Rows(0).Item("DateEntered") & "<BR>"
& DSPageData.Tables("News"). _
Rows(O).Item("News")
Изменение кода для Access
Чтобы использовать это приложение с базой данных Access вместо базы данных SQL Server, требуется внести несколько изменений. Во-первых, следует изменить связующую строку так, чтобы указать нужного провайдера и обращаться к необходимой базе данных:
-
DBConn = New 01eDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE»"
& Server.MapPath("/INetBook/C6/"
& "Access/C6,mdb;"))
-
DBCommand = New OleDbDataAdapter _
("Select '<A HREF=""./team.aspx?TeamID=' & " _
& "Convert(varchar(10), TeamID) & '"">' " _
& "& TeamCity & ' ' & TeamNickName & '' as " _
& "[Пустынный дивизион (Щелкните для получения дополнительной" _
& "информации)], " _ & "Round((Convert(float, NumWins) / " _
& "(NumWins & NumLoses)) * 100, 0) as [Очки], " _
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Division ='Пустынный' " _
& "Order By Convert(float, NumWins) / " _
& "(NumWins & NumLoses) DESC" _
, DBConn)
-
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 = New OleDbDataAdapter _
("SELECT Format(GameDate, ""m/d/yyyy"") "
& "as [Дата], " _
& "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 TeamlDl = " _
& Request.QueryString("TeamID") 4 " or " _
& "TeamID2 = " & Request.QueryStringf"TeamID") _
, DBConn)
 |
 |
