Visual Basic

shreekar wrote:

Dim dr As IDataReader = db.ExecuteReader(strSQL)

<br />
Dim dr As IDataReader = db.ExecuteReader(objCommand)<br />

Public Class Form1<br />
    Dim mode As Integer<br />
    Dim words(30) As String<br />
    Dim definitions(30) As String<br />
    Dim synonyms(30) As String<br />
    Dim sentences(30) As String<br />
    Dim rotation As Integer<br />
    Dim temp As String<br />
    Dim Wordnumber As Integer<br />
<br />
    Private Sub CreateCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateCard.Click<br />
        mode = 1<br />
        Wordnumber = 1<br />
        Label1.Text = "Card Created"<br />
        temp = Word.Text<br />
        words(Wordnumber) = temp<br />
        temp = Def.Text<br />
        definitions(Wordnumber) = temp<br />
        temp = Sentence.Text<br />
        sentences(Wordnumber) = temp<br />
        temp = Syn.Text<br />
        synonyms(Wordnumber) = temp<br />
        Wordnumber = Wordnumber + 1<br />
    End Sub

<br />
    Private Sub flipcard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Flipcard.Click<br />
        synstudymode.Text = synonyms(rotation)<br />
        sentencestudymode.Text = sentences(rotation)<br />
        defstudymode.Text = sentences(rotation)<br />
        wordstudymode.Text = words(rotation)<br />
        If words(rotation) = "" Then<br />
            wordstudymode.Text = "You have completed one rotation."<br />
            rotation = 1<br />
        End If<br />
        rotation = rotation + 1<br />
    End Sub<br />