HUsing ADO.NET 2.0 with Microsoft Access Databases - Cengage ...

Programming Tutorial 37
Option Explicit On
Option Strict On
Public Class MainForm
Private Sub exitButton_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles exitButton.Click
Me.Close()
End Sub
Appendix H C5779 39147 Page 37 07/10/06--JHR
Private Sub MainForm_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the
'TriviaDataSet.Game1' table. You can move,
'or remove, it as needed.
Me.Game1TableAdapter.Fill(Me.TriviaDataSet.Game1)
End Sub
Private Sub submitButton_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles submitButton.Click
' determines whether the user's answer is correct
' keeps track of the number of incorrect answers
' displays the next record or the number of
' incorrect answers
Dim recPtrPos As Integer
Dim userAnswer As String = “”
Static numIncorrect As Integer
' store position of record pointer
recPtrPos = Game1BindingSource.Position
' determine selected radio button, which
' represents the user’s answer
Select Case True
Case aRadioButton.Checked
userAnswer = aRadioButton.Text.Replace(“&”, “”)
Case bRadioButton.Checked
userAnswer = bRadioButton.Text.Replace(“&”, “”)
Case cRadioButton.Checked
userAnswer = cRadioButton.Text.Replace(“&”, “”)
Case dRadioButton.Checked
userAnswer = dRadioButton.Text.Replace(“&”, “”)
End Select
' if necessary, update number of incorrect answers
If userAnswer _
TriviaDataSet.Game1(recPtrPos).CorrectAnswer Then
numIncorrect = numIncorrect + 1
End If
(Figure is continued on next page)