Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Конструктор
Проект Поиск решения
Проект Бронирование номеров
и сформировать SQL-запрос в объекте DataAdapter для извлечения идентификатора только что помещенной записи:
-
DBCommand = New OleDbDataAdapter _
("Select Max(ObjectOrderlD) as MaxID " _
& "From ObjectOrders",DBConn)
-
DBCommand.Fill(DSQuestion, _
"CurrentlD")
-
Session("ObjectOrderlD") = _
DSQuestion.Tables("CurrentlD").Rows(O).Item("MaxID")
-
DBCommand = New OleDbDataAdapter _
("Select ObjectQuestionID, " _
& "ObjectQuestionText, PicPath, " _
& "PicAltText from ObjectQuestions " _
& "Where Sequence = " _
& Session("CurrentSequenceNumber"),DBConn)
-
DBCommand.Fill(DSQuestion, _
"CurrentQuestion")
-
DBCommand = New OleDbDataAdapter _
("Select ChoicelD, ChoiceText " _
& "From QuestionChoices " _
& "Where ObjectQuestionID = " _
& DSQuestion.Tables("CurrentQuestion"). _
Rows(O).Item("ObjectQuestionID"),DBConn)
-
DBCommand.Fill(DSQuestion, _
"CurrentResponses")
-
IblTitle.BorderWidth = New Unit("7px")
IblTitle.BorderStyle = 9
IblTitle.Width = New Unit("90%")
IblTitle.Font.Size = New FontUnit("25pt")
IblTitle.Font.Name = "Arial"
-
IblTitle.Text = Application("TitleText")
-
imgStepPicture.AlternateText = _
DSQuestion.Tables("CurrentQuestion").Rows(O).Item("PicAltText")
-
imgStepPicture.ImageUrl = _
DSQuestion.Tables("CurrentQuestion").Rows(O).ItemC'Pi cPath")
-
imgStepPicture.BorderWidth = New Unit("7px")
-
IblQuestion.Font.Size = New FontUnit("12pt")
IblQuestion.Font.Name = "Verdana"
-
IblQuestion.Text =_
DSQuestion.Tables'f"CurrentQuestion") .Rows(O) .Item("ObjectQuestionText")
 |
 |
|
