Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов |
|||
Обработка элемента управления будет осуществляться на стороне сервера:
Задаем название столбца: HeaderText="Название"
/>
При загрузке страницы необходимо заполнить элементы управления DataGrid. Выполняемые для этого запросы к базе данных отличаются друг от друга, так как в первом элементе DataGr id столбцы создаются автоматически на основе полученных из базы данных, а во втором — нет:
Dim DBConn as OleDbConnection Dim DBCommand AS OleDbDataAdapter Dim DSPageData as New DataSet DBConn = New OleDbConnection("Provider=sqloledb;" _ & "server=localhost;" _ & "Initial Catalog=INETClS;" _ & "User Id=sa;" & "Password=yourpassword;") DBCommand - New OleDbDataAdapter _ ("Select '<a href=""./auction_item.aspx?AuctionItemID=' " _ & "+ Convert(varchar(50), AuctionltemlD) +•"">• + " _ & "ItemName + '' as [Название], " _ & "BriefDescription as [Описание], " _ & "Convert(varchar(30), CloseData, 120) " _ & "as [Окончание торгов], " _ & ""$" + Convert(varchar(30), MinimumBid, 1) " _ & "as [Минимальная заявка] " _ & "From Auctionltems " _ & "Order By ItemName", DBConn) DBCommand.Fill(DSPageData, _ "Auctionltems") dgAuctionltems.DataSource - _ ' DSPageData.Tables("Auctionltems") _ .DefaultView dgAuctionltems.DataBind DBCommand = New OleDbDataAdapter _ ("Select AuctionltemlD, ItemName, " _ & "BriefDescription " _ & "From Auctionltems " _ & "Order By ItemName", DBConn) DBComma.nd,.Fill (DSPageData, _ "Auctionltems2") dgAuctionItems2.DataSource = _ DSPageData.Tables(Auctionltems2) _ .DefaultView dgAuctionItems2.DataBind End Sub
Dim DBCommand AS OleDbDataAdapter Dim DSPageData as New DataSet
|
|||