Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Конструктор
Проект Поиск решения
Проект Бронирование номеров
Если результирующее значение равно нулю, значит, заказ может быть принят:
-
If DSRoomAvailable.Tables("RoomCount")
Rows(0).Item("TheCount") = 0 Then
-
DBInsert.CommandText = "Insert Into RoomReservations " _
& "(RoomID, ArrivalDate, DepartureDate, CustomersName, " _
& "PhoneNumber, EmailAddress) values (" _
& ddlRoomlD.Selectedltem.Value & ", "
& "'" & txtArrivalDate.text & '", "
& "'" & txtDepartureDate.text & "', " _
& "'" & txtName.text &"',"_
& "'" & txtPhoneNumber.text & "', " _
& "'" & txtEmailAddress.text S "')"
-
DBInsert.Connection DBConn
DBInsert.Connection.Open
-
DBInsert.ExecuteNonQuery()
-
IblResult.Text = "Ваш заказ принят!"
-
IblResult.Text = "К сожалению, номер занят в указанное время."
-
pnlMakeReservation.Visible = False
-
pnlReservationResponse.Visible = True
Изменение кода для Access
Для обеспечения взаимодействия приложения Бронирование номеров с базой данных Access необходимо внести в код два изменения. Первое изменение касается строки связи:
-
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog-INETCIO;"
& "User Id=sa;" _
& "Password=yourpassword;")
-
DBConn = New 01eDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/INetBook/C10/Room/Access/C10Room.mdb;"))
Возможно, путь доступа к файлу базы данных придется изменить в соответствии с его расположением на вашем сервере.
Второе изменение связано с инструкцией where в SQL-запросе, выполняющем поиск совпадающих заказов. В этой инструкции даты заключаются в одинарные кавычки:-
DBCommand = New OleDbDataAdapter _
("Select Count(RoomReservationID) as TheCount " _
& "From RoomReservations WHERE (RoomID - " _
& ddlRoomlD.Selectedltem.Value _
& ") AND "
& "('" & txtArrivalDate.text & "' BETWEEN ArrivalDate "
& "AND DepartureDate) OR (RoomID = " _
& ddlRoomlD.Selectedltem.Value _
& ") "
& "AND ('" & txtDepartureDate.text _
& "' BETWEEN ArrivalDate AND DepartureDate) " _
& "OR (RoomID = "
& ddlRoomlD.Selectedltem.Value _
& ") AND " _
& "(ArrivalDate BETWEEN "' _
& txtArrivalDate.text & "' AND '" _
& txtDepartureDate.text & "') " _
& "OR (RoomID = " _
& ddlRoomlD.Selectedltem.Value _
& ") AND " _
& "(DepartureDate BETWEEN '" _
& txtArrivalDate.text & "' AND '" _
& txtDepartureDate.text & "')", DBConn)
-
DBCommand = New OleDbDataAdapter _
("Select Count(RoomReservationID) as TheCount " _
& "From RoomReservations WHERE (RoomID = " _
& ddlRoomlD.Sefectedltem.Value _
& ") AND " _
& "(f" & txtArrivalDate.text & "# BETWEEN ArrivalDate "
& "AND DepartureDate) OR (RoomID = " _
& ddlRoomlD.Selectedltem.Value _
5 ") " _
6 "AND {#" & txtDepartureDate.text _
& "# BETWEEN ArrivalDate AND DepartureDate) " _
& "OR (RoomID = " _
& ddlRoomlD.Selectedltem.Value _
& ") AND " _
& "(ArrivalDate BETWEEN #"
& txtArrivalDate.text & "# AND t" _
& txtDepartureDate.text'& "#) " _
& "OR (RoomID = "
& ddlRoomlD.Selectedltem.Value _
& ") AND "
& "(DepartureDate BETWEEN #" _
& txtArrivalDate.text & "# AND I" _
& txtDepartureDate.text & "#)", DBConn)
 |
 |
