Computerized entrance examination

[paulablanca]

Hello! Can someone tell me how to create an entrance examination. I have already have a quiz creator. The only problem I have is how to display the created questions one by one just like a computerized entrance exam from a single table. Thank you very much! God Bless. :)

[Pgmer]

I think you havel already created thread for this.. :)
Did you try the sollution given there?

[paulablanca]

Ah, yeah. I forgot. Thanks by the way. I'll look for my older posts. :)

[paulablanca]

Uhm, by the way, I posted this forum because I changed my tables regarding my entrance examination I dunno how to post the next question after clicking the next button from my Questions table. :D

[Pgmer]

what is ur aproach to load the data to list box? are you using dataset?

[Pgmer]

' Form Level varibales
 Dim dsNew As New DataSet
 Dim Index As Integer = 1


'' Form load event
       Dim strCon As String = "Ur Data base connections"
        Dim conn As New SqlConnection(strCon)
        conn.Open()
        Dim comm As New SqlCommand("Select * from test", conn)
        Dim da As New SqlDataAdapter(comm)
        Dim ds As New DataSet
        da.Fill(ds)
        If ds.Tables.Count > 0 Then
            lstBox.Items.Add(ds.Tables(0).Rows(0).Item(0))
        End If

'' Button Next click Event
      Try
            Dim strCon As String = "ur data base connections"
            Dim conn As New SqlConnection(strCon)
            conn.Open()
            Dim comm As New SqlCommand("Select * from test", conn)
            Dim da As New SqlDataAdapter(comm)
            Dim ds As New DataSet
            da.Fill(ds)
            dsNew = ds
            Dim irowcount As Integer
            lstBox.Items.Clear()
            irowcount = ds.Tables(0).Rows.Count
            If Index >= irowcount Then
                MsgBox("Questionary over Thanks for  Attending...")
                Exit Sub
            End If
            If ds.Tables.Count > 0 And ds.Tables(0).Rows.Count > 0 Then
                irowcount = ds.Tables(0).Rows.Count
                lstBox.Items.Add(ds.Tables(0).Rows(Index).Item(0))
                Index = Index + 1

            End If
        Catch ex As Exception

        End Try
    End Sub