ASP.NET. Учебный курс (Г.Бучек.)

Rows (0) .Item("SurveyInstructions^?') DBCommand - New OleDbDataAdapter _

("Select SurveyQuestionID, SurveyQuestionLong " _ ? "From SurveyQuestions Where SurveylD - " _ & Application("SurveylD"), DBConn) DBCommand.Fill(DSPageData, _

"SurveyQuestions") For I - 0 to DSPageData.Tables("SurveyQuestions"). Rows.Count - 1

Dim IcHTML - New LiteralControl

IcHTML.Text - DSPageData.Tables("SurveyQuestions"). _ Rows(I).Item("SurveyQuestionLong") & "<br>" pnlQuestions.Controls.Add(IcHTML) Dim MyDDL - New DropDownList

TempID - DSPageData.Tables("SurveyQuestions"). _ Rows (I) .ItemCSurveyQuestionID") MyDDL.ID - "Q" С TempID DBCommand jf itirwijQleDbDataAdapter _ ("Select SurveyAnswer " _

& "From SurveyAnswers Where SurveyQuestionID ? " _ & TempID, DBConn) DBCommand.Fill(DSPageData, _ TempID)

For J - 0 to DSPageData.Tables(TempID). _ Rows.Count - 1 Dim Myltem - New Listltem Myltem.Text - DSPageData.Tables(TempID). _ Rows(J).Item("SurveyAnswer") MyDDL.Items.Add(Myltem)

Next

pnlQuestions.Controls.Add(MyDDL) lcHTML2 - New LiteralControl lcHTML2.Text - "<br><br>" pnlQuestions.Controls.Add(lcHTML2)

Next End Sub

В этой процедуре понадобится объект Connection для подсоединения к базе данных:Dim DBConn as OleDbConnection

Также потребуются объект DatjaAdapter, чтобы осуществлять вчборку из базы данных:

Dim DBCommand As OleDbDataAdapter

t , ? *

и объект DataSet, который будет хранить выбранные данные:

Dim DSPageData as New DataSet

Затем объявляются две переменные цикла:

Dim I as Integer Dim J as Integer

и переменная, кбторая хранит ID текущего вопроса:

Dim TempID as String

Далее задается код ID текущей анкеты. Это та переменная, значение которой необходимо изменить для отображения другой анкеты:

Application("SurveylD") - 1