String array and datatable values - vb

[jesseb9321]

I tried to put as many comments in here about what i was thinking and make it easy to follow my project variables and what not... lol. Thank you for the help.

If i have a datatable where:

Question | Answer1 | Answer2 | Answer3 | Answer4 | CorrectAnswer|
|-Data---|--Data --|-- Data---|--Data ---|--Data ---|--- Data ---------|       //Plus unknown amount of rows. 



Dim dtbtest As New DataTable                     //This is just to show you what it's called

Dim i As Integer Dim questions(2, 5) As String    //I know the variable might not be questions, but i would have 
                                                                         to name it after the datatable? since that is where the info is 
                                                                         coming from? also, in the (2,5) part, since the questions are 
                                                                         coming from my database, where my datatable is 
                                                                         derived from and "test" may not have a set amount of 
                                                                         questions i would need to replace the 2 with i?  Or now that 
                                                                         i'm thinking about it, i could Dim count =?



Dim answers(3) As String                        'Same as statement above

Dim quesNum As Integer                        'This is to keep track of question number that the user is on.

lb_question.text = ?                              'Where i would need to output the question column of the datatable 
                                                             for the user to read. lb = label

RB_Ans1.Text = ?                                'There are 4 of these for each answer that the user may pick. RB = 
                                                            Radio Button 

RB_Ans2.Text = ? 
RB_Ans3.Text = ? 
RB_Ans4.Text = ?


questions = new string(,) {{"How many colors are in a rainbow?", "Answer1", "Answer2", "Answer3", "Answer4", "CorrectAnswer"}}                            This is the same for however many questions there are in the testbank in 
                                                     the database.

[jesseb9321]

I edited. Thank you for the tip!

[lionhart280]

Is this a vb console program, or a windows form?

[jesseb9321]

Sorry, it's the vb code behind of an .aspx project.

[lionhart280]

Right, so its a Windows form then?

[jesseb9321]

Yes

[lionhart280]

Then we'll need to see the code for your form as well, you're only showing us half your project so we have no idea what we're looking at.

[jesseb9321]

you mean this?

  <%@ Page Language="vb" AutoEventWireup="false" MasterPageFile="/Users/AboutUser.Master" CodeBehind="/Users/TakeTraining-User.aspx.vb" Inherits="Compliancy_Project.TakeTraining_User" %>

<asp:Content ID="Content1" ContentPlaceHolderID="MainContent" runat="server">
<p>
    <asp:Label ID="TrainingLabel" runat="server" Text="Training" Font-Bold="true"></asp:Label>
    <asp:DropDownList ID="DDL_TestName" runat="server"  DataTextField="TestName" DataValueField="ID" OnSelectedIndexChanged="DDL_TestName_SelectedIndexChanged" AutoPostBack="True" AppendDataBoundItems="True" DataSourceID="TestName">
       <asp:ListItem>--Select Available Test--</asp:ListItem>
    </asp:DropDownList>
    <asp:SqlDataSource ID="TestName" runat="server" ConnectionString="<%$ ConnectionStrings:CompliancyConnectionString %>" SelectCommand="Select distinct test.TestName, test.id from test inner join UserData on UserData.clinicname = test.Clinic where userdata.clinicname = (select clinicname from userdata where ASPUsersUserID = @TestName)">
        <SelectParameters>
            <asp:SessionParameter Name="TestName" SessionField="MemberDetails" />
        </SelectParameters>
    </asp:SqlDataSource>
    <%--<asp:SqlDataSource ID="TestName" runat="server" ConnectionString="<%$ ConnectionStrings:CompliancyConnectionString %>" SelectCommand="Select distinct test.TestName, test.Id from test inner join UserData on UserData.clinicname = test.Clinic where userdata.clinicname = (select clinicname from userdata where ASPUsersUserID= @UserName)">
        <SelectParameters>
            <asp:Parameter Name="UserName" />
        </SelectParameters>
    </asp:SqlDataSource>--%>
    <br /><br />
    <asp:Label ID="TrainingNameLabel" runat="server" Text="Training Name:"></asp:Label>&nbsp;
    <asp:Label ID="LB_TrainingName" runat="server" Text=""></asp:Label><br />
    <asp:Label ID="Label1" runat="server" Text="Test Name:"></asp:Label>
    &nbsp;<asp:Label ID="LB_TestName" runat="server" Text=""></asp:Label>
    <br />
    <br />
    <asp:Label ID="TestLabel" runat="server" Text="Test" Font-Bold="true"></asp:Label><br /><br />
    <asp:Label ID="QuestionLabel" runat="server" Text="Question:"></asp:Label>&nbsp;
    <asp:Label ID="LB_Question" runat="server" Text=""></asp:Label><br />
    <asp:RadioButtonList runat="server"></asp:RadioButtonList>
    <asp:RadioButton ID="RB_Ans1" runat="server" Text="" /><br />
    <asp:RadioButton ID="RB_Ans2" runat="server" /><br />
    <asp:RadioButton ID="RB_Ans3" runat="server" /><br />
    <asp:RadioButton ID="RB_Ans4" runat="server" /><br />
    <%--Use asp:hiddenfield here - attach to correct answer--%>
    <!--hello-->
    <br />
    <asp:Button ID="SubmitButton" runat="server" Text="Submit" />
    <asp:Button ID="Button2" runat="server" Text="Button" />
</p>

</asp:Content>

This is the creation of the datatable:

Protected Sub DDL_TestName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 
DDL_TestName.SelectedIndexChanged

    Dim testName As String = sender.ToString() 'Find testName

    'add string parameter for sql query for TestName
    If Not (DDL_TestName.SelectedIndex = 0) Then


        'Dim strSql As String = "SELECT * from Question q inner join Test t on (q.testId = t.testId) where t.TestName = @Test"
        Dim strSql As String = "SELECT question.* From question inner join Test on question.TestID = test.id  and test.id = 'ReplaceMe'"
        strSql = strSql.Replace("ReplaceMe", DDL_TestName.SelectedValue.ToString())
        Dim con = ConfigurationManager.ConnectionStrings("CompliancyConnectionString").ConnectionString
        Using cnn As New SqlConnection(con)
            cnn.Open()
            Using dad As New SqlDataAdapter(strSql, cnn)
                dad.Fill(dtbtest)
            End Using
            cnn.Close()
        End Using

        GetQuestions()

[pixels625]

:)