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

& "Password-yourpassword;") DBCommand - New OleDbDataAdapter _

("Select '<a href-^./auction^item.aspxTAuctianltemlD^' " _ & "+ Convert (varchar( 50), AuctionltemID) +•"•?>• + - _ & "ItemName + '</a>' as [Название], " _ t "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 dgAudtionlterns.DataBind DBCommand * New OleDbDataAdapter

("Select AuctionltemID, ItemName, " _ & "BriefDescription " & "From Auctionltems " & "Order By ItemName", DBConn) DBCommand.Fill(DSPageData,

"AuctionItems2") dgAuctionItems2.DataSource -

DSPageData.Tables(AuctionItems2) _ .DefaultView dgAuctionItems2.DataBind End Sub

Сначала описываются объекты данных:

Dim DBConn as OleDbConnection Dim DBCommand AS OleDbDataAdapter Dim DSPageData as New DataSet

Затем осуществляется подключение к базе данных:

DBConn - New OleDbConnection("Provider-sgloledb;" _ & "server-localhost;" & "Initial Catalog-INETC18;" & "User Id-sa;" & "Password-yourpassword;")

В первом запросе извлекаются данные для первого элемента DataGrid. Поскольку форматирование данных, помещаемых в элемент управления DataGrid, не осуществляется, эта операция должна производиться при чтении данных из базы.

DBCommand - New OleDbDataAdapter

Первый столбец отведен для названий товаров. Название товара связывается гиперссылкой с другой страницей Web-узла. Поэтому в запросе необходимо объединить HTML-тег anchor с ID-кодом и названием товара:

("Select '<а href-""./auction_item.aspx?AuctionItemID-' " _ & "+ Convert(varchar(50), AuctionltemID) +•"«>• + » & "IterriName + '</a>' as [Название], "