Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Конструктор
Проект Поиск решения
Проект Бронирование номеров
Вторая процедура, связанная со страницей, запускается в результате выполнения щелчка на кнопке Далее.
-
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSQuestion as DataSet
Dim DBUpdate As New OleDbCommand
DBConn « New OleDbConnection ("Providers=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC10;" _
& "User Id=sa;"
& "Password=yourpassword;")
DSQuestion = New DataSet()
DBCommand = New OleDbDataAdapter _
("Select ChoiceText, ChoiceCost " _
& "From QuestionChoices Where " _
& "ChoicelD = " _
& ddlResponses.Selectedltern.Value,DBConn)
DBCommand.Fill(DSQuestion, _
"Choicelnfo")
DBUpdate.CommandText = "Update OrderChoices set " _
& "ChoicelD = " _
& ddlResponses.Selectedltem.Value & ", " _
& "ChoiceText = '" _
& DSQuestion.Tables("Choicelnfo").Rows(O).Item("ChoiceText") _
& "', " & "ChoiceCost = "
& DSQuestion.Tables("Choicelnfo").Rows(O).Item("ChoiceCost") _
& " Where OrderChoicelD = " _
& Session("CurrentOrderChoicelD")
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
Response.Redirect("./summary.aspx")
End Sub
В процессе выполнения второй процедуры потребуется обновить данные, касающиеся сделанного посетителем выбора.
Необходимо извлечь стоимость объекта, выбранного посетителем, и сопутствующий текст:-
DBCommand = New OleDbDataAdapter _
("Select ChoiceText, ChoiceCost " _
& "From QuestionChoices Where " _
& "ChoicelD - " _
& ddlResponses.Selectedltern.Value,DBConn)
-
DBCommand.Fill(DSQuestion, _
"Choicelnfo")
-
DBUpdate.CommandText = "Update OrderChoices set " _
& "ChoicelD = " _
& ddlResponses.Selectedltern.Value & ", " _
& "ChoiceText = '" _
& DSQuestion.Tables("Choicelnfo").Rows(O).Item("ChoiceText") _
& '", " & "ChoiceCost - " _
& DSQuestion.Tables("Choicelnfo").Rows(O).ItemC'ChoiceCost") _
& " Where OrderChoicelD = " _
& Session("CurrentOrderChoicelD")
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
-
Response.Redirect("./summary.aspx")
Изменение кода для Access
Для обеспечения взаимодействия приложения с базой данных Access необходимо внести в код единственное изменение, а именно модифицировать строку соединения с базой данных:
-
DBConn = New OleDbConnection("Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC10;" _
& "User Id=sa;"
& "Password=yourpassword;")
-
DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE-" _
& Server.MapPath("/INetBook/C10/Object/Access/C100bject.mdb;"))
Возможно, путь доступа к файлу базы данных придется изменить в соответствии с его расположением на вашем сервере.
 |
 |
