One Record at a time Or Panel Control Paging
I'm working a Quiz page that loads questions dynamically from SQL server so that I don't have to worry about set number of questions.
At this point all questions load on one page. What I would like to do is load them one question at a time then click next to go on to next question, click previous if needed and store all answers until submit button is clicked when all questions answered. Below is the code I have so far:
DBCommand = New OleDbDataAdapter _
("Select SectionQuestionID, QuestionText " _
& "From SectionQuestions Where CourseSectionID = " _
& Session("CourseSectionID"), DBConn)
DBCommand.Fill(DSPageData, "QuizQuestions")
For I = 0 To DSPageData.Tables("QuizQuestions").Rows.Count - 1
Dim lcHTML = New LiteralControl
lcHTML.Text = "<b><br>" _
& DSPageData.Tables("QuizQuestions").Rows(I).Item("Q uestionText") & "</b><br>"
pnlQuestions.Controls.Add(lcHTML)
Dim MyDDL = New RadioButtonList
TempID = DSPageData.Tables("QuizQuestions").Rows(I).Item("S ectionQuestionID")
MyDDL.ID = "Q" & TempID
DBCommand = New OleDbDataAdapter _
("Select AnswerText " _
& "From QuestionAnswers Where SectionQuestionID = " _
& TempID, DBConn)
DBCommand.Fill(DSPageData, TempID)
For J = 0 To DSPageData.Tables(TempID).Rows.Count - 1
Dim MyItem = New ListItem
MyItem.Text = DSPageData.Tables(TempID).Rows(J).Item("AnswerText ")
MyDDL.Items.Add(MyItem)
Next
pnlQuestions.Controls.Add(MyDDL)
Dim lcHTML2 = New LiteralControl
lcHTML2.Text = "<br><br>"
pnlQuestions.Controls.Add(lcHTML2)
Next
What to do, what to do????
|