Страница 449 из 476 & "ItemName + '</А>' as [Лот], " _ ? "BriefDescription as [Описание], " В третьем столбце содержится информация о дате и времени завершения торгов:? "Convert(varchar(30), CloseDate, 100) as [Дата завершения], " В четвертом столбце указана начальная цена лота в денежном формате: ? + Convert (varchar (30), MinimumBid, 1) " & "as [Начальная цена] " Извлекаются лишь те лоты, которые все еще выставлены на аукцион: & "From Auctionltems Where CloseDate >- GetDateO " & "Order By ItemName", DBConn) Результаты выполнения запроса помещаются в элемент DataSet: DBCommand.Fill(DSPageData, _ "Auctionltems") Управляющий элемент DataGrid связывается с объектом DataSet: dgAuctionltems.DataSource - _ DSPageData.Tables("Auctionltems").DefaultView dgAuctionlterns.DataBind Вторая процедура данной страницы запускается после того, как посетитель активизирует один из заголовков столбцов. Sub Sort_Grid(ByVal Sender as Object, ByVal Б as DataGridSortCommandEventArgs) Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet Dim SortField as String If E.SortExpression.ToStringO - "Лот" Then SortField - "ItemName" Elself E.SortExpression.ToStringO - "Описание" Then SortField - "BriefDescription" Elself E.SortExpression.ToStringO - "Дата завершения" Then SortField - "CloseDate" Else SortField - "MinimumBid" End If DBConn - New OleDbConnection("Provider-sqloledb;" & "server-localhost;" _ & "Initial Catalog-INETC16;" _ & "User Id-sa;" _ & "Password-yourpassword;") DBCommand - New OleDbDataAdapter _ ("Select •<A HREF—"",/auction_item.aspx?AuctionItemID—' " __ ? "+ Convert (varchar (50), AuctionltemID) + •"">?_ + " ? "ItemName + '</A>' as [Лот], " ? "BriefDescription as [Описание], " ? "Convert(varchar(30), CloseDate, 100) as [Дата завершения], " ? "'$• + Convert(varchar(30), MinimumBid, 1) " _ ? "as [Minimum Bid] " ? "From Auctionltems Where CloseDate >- GetDateO ",
|