Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
& DSHomeData.Tables("Listing").
Rows(0).Item("Notes")
-
DBCommand = New OleDbDataAdapter _
("Select ImagePath, ImageAlt "
& "From ListingPictures Where " _
& "ListingID = " _
& DSHomeData.Tables("Listing"). _
Rows (0) .ItemC'ListingID") _
,DBConn)
-
DBCommand.Fill(DSHomeData, _
"ListingPics")
-
dlPics.DataSource = _
DSHomeData.Tables("ListingPics").DefaultView
dlPics.DataBind()
-
IblTitle.Text = "<center>Дом = " _
& Page.Request.QueryStringC'HLCN") _
& "</CENTER>"
Изменение кода для Access
Чтобы обеспечить выполнение кода при использовании приложения Access (а не SQL-сервера), необходимо внести в него ряд изменений. Прежде всего следует изменить строку соединения с базой данных:
-
DBConn = New 01eDbConnection("PROVIDER=MicroSoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" __
& Server.MapPath(VINetBook/Cll/Access/Cll.mdb;"))
В этой строке надлежит четко указать, где расположена база данных Access.
Следующее изменение касается запроса SQL, формируемого на странице Поиск. В этом запросе используется функция Convert для преобразования данных в текст:-
Session("SearchSQL") = "Select HLCN,HousePrice, "_
& "Convert(varchar(5)/Bedrooms) + V "_
& "+ Convert(varchar(5)/Bathrooms) as BedBath, "_
& "HomeLocation, "_
& "EmailContact + '<br>' + PhoneContact "_
& "as Contactlnfo From Listings Where "_
& "HousePrice >= "_
& ddlLowestPrice.Selectedltem.Value _
& " and HousePrice <= "_
& ddlHighestPrice.Selectedltem.Value _
& " and Bathrooms >= "_
& ddlBaths.Selectedltem.Value _
& " and Bedrooms >= "_
& ddlBeds.Selectedltem.Value _
& " and HomeLocation Like %" _
& ddlPartOfTown.Selectedltem.Value & "%'" _
& " Order By " _
& ddlSort.Selectedltern.Value
-
Session("SearchSQL") = "Select HLCN, HousePrice, "
& "BedRooms & '/' " _
& "& BathRooms as BedBath, " _
& "HomeLocation, " _
& "EmailContact + '<BR>' + PhoneContact " _
& "as Contactlnfo from Listings Where " _
& "HousePriee >= "
& ddlLowestPrice.Selectedltem.Value _
& " and HousePrice <" " _
& ddlHighestPrice.Selectedltem.Value _
& " and BathRooms >= " _
& ddlBaths.Selectedltem.Value _
& " and BedRooms >= " _
& ddlBeds.Selectedltem.Value _
& " and HomeLocation Like '%" _
& ddlPartOfTown.Selectedltem.Value & "%'" _
& " Order By " _
& ddlSort.Selectedltem.Value
 |
 |
