Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Проект Анкета
Проект Подробности
Проект Поиск магазина
Поскольку заранее не известно, сколько вопросов содержится в анкете, необходимо в цикле обработать все элементы, находящиеся в элементе управления Panel. Для этого потребуются такие объекты:
-
Dim MyControl as Control
Dim MyDDL as DropDownList
-
DBConn= New OleDbConnection("Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETCS;" _
& "User Id=sa;"
& "Password-yourpassword;")
-
DBInsert.Connection = DBConn
DBInsert.Connection.Open
-
For Each MyControl in pnlQuestions.Controls
-
If MyControl.GetTypeО.FullName = _
"System.Web.UI.WebControls.DropDownList" Then
-
MyDDL = MyControl
-
DBInsert.CommandText - "Insert Into SurveyResponses " _
& "(SurveyQuestionID, SurveyResponse) " _
& "values (" _
& Mid(MyDDL.ID, 2) & ", "
& " ' ' "
& ReplacefMyDDL.Selectedltem.Text, "'", "''") _
& "') "
DBInsert.ExecuteNonQuery ()
-
Next
-
DBCommand = New OleDbDataAdapter _
("SelectSurveyResponse " _
& "From Surveys Where SurveylD = " _
& Application("SurveylD"), DBConn)
DBCommand.Fill(DSPageData, _
"Surveylnfo")
-
IblMessage.Text = DSPageData.Tables("Surveylnfo"). _
Rows(0).Item("SurveyResponse")
-
pnlQuestions.Visible = False"
-
butOK.Visible - False
 |
 |
|
