0

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. :)

2
Contributors
5
Replies
6
Views
6 Years
Discussion Span
Last Post by Pgmer
0

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

0

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

0

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

0
' 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
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.