Trying to use an array with DirectCast

[rtwPhoenix]

The problem.

I have created an exam using the control wizard. Most answers are text answers I created the SQL db. Now when I try to read the data it always gives me cast error. I decided to put in if elseif statements to make sure that worked and everything is fine but I am sure there must be another and BETTER way.

I am new at this but need to figure a way to get it done. The only solution I had was the one attached but there has to be a way to use an array or create a new web ui control from a string.

When I try to do this: QLabel = {"QLabel" & (i) & ".text") and use I get an error tried using DirectCast on QLabel and I get a cast error any suggestions?


The code is below.

Code: ( text )

Protected Sub Wizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArg  s) Handles Wizard1.FinishButtonClick
 
        'Get Membership GUID 
        'Label2.Text = "Geeting User"
        Dim instance As MembershipUser = Membership.GetUser()
        Dim value As Object
        If instance Is Nothing Then
            Label2.Text = "NO USER IS LOGGED IN"
            Exit Sub
        End If
        value = instance.ProviderUserKey.ToString
        Dim NameId = value.ToString
        'SQL Input  
 
        Dim QGroup
        Dim QAnswer As Object
        Dim QLabel
 
 
 
 
        QGroup = Profile.Opportunity
        Dim i As Integer
        i = 0
        Do Until i > 26
            i = i + 1
 
            ' QAnswer = ("QAnswer" & (i) & ".Text")
            ' QLabel = ("QLabel" & (i) & ".Text")
            If i = 1 Then
                QLabel = QLabel1.Text
                QAnswer = QAnswer1.Text
            ElseIf i = 2 Then
                QLabel = QLabel2.Text
                QAnswer = QAnswer2.Text
            ElseIf i = 3 Then
                QLabel = QLabel3.Text
                QAnswer = QAnswer3.Text
            ElseIf i = 4 Then
                QLabel = QLabel4.Text
                QAnswer = QAnswer4.Text
            ElseIf i = 5 Then
                QLabel = QLabel5.Text
                QAnswer = QAnswer5.Text
            ElseIf i = 6 Then
                QLabel = QLabel6.Text
                QAnswer = QAnswer6.Text
            ElseIf i = 7 Then
                QLabel = QLabel7.Text
                QAnswer = QAnswer7.Text
            ElseIf i = 8 Then
                QLabel = QLabel8.Text
                QAnswer = QAnswer8.Text
            ElseIf i = 9 Then
                QLabel = QLabel9.Text
                QAnswer = QAnswer9.Text
            ElseIf i = 10 Then
                QLabel = QLabel10.Text
                QAnswer = QAnswer10.Text
            ElseIf i = 11 Then
                QLabel = QLabel11.Text
                QAnswer = QAnswer11.Text
            ElseIf i = 12 Then
                QLabel = QLabel12.Text
                QAnswer = QAnswer12.Text
 
         ' ..... Up to i =27
 
End If
 
            ' If QLabel.GetType().ToString() = "System.Web.UI.WebControls.Label" Then
            ' Dim txtLabel As Label = DirectCast(QLabel, Label)
            ' txtLabel.Text = Trim(txtLabel.Text)
            ' End If
 
            Dim connStr As String = ConfigurationManager.ConnectionStrings("MyProfileConnectionString").ConnectionString
            Dim myConnection As New SqlConnection(connStr)
            Const SQL As String = "INSERT INTO[Questions]([UserID], [QuestionGroup], [QuestLabel], [QuestAns]) Values(@UserID, @QGroup, @QLabel, @QAnswer)"
 
            Dim myCommand As New SqlCommand(SQL, myConnection)
 
            myCommand.Parameters.AddWithValue("@UserID", NameId)
            myCommand.Parameters.AddWithValue("@QGroup", QGroup)
            myCommand.Parameters.AddWithValue("@QLabel", QLabel)
            myCommand.Parameters.AddWithValue("@QAnswer", QAnswer)
 
            'For Testing Only
            'Label2.Text = NameId
 
            Try
                myConnection.Open()
                myCommand.ExecuteNonQuery()
                myConnection.Close()
            Catch ex As Exception
                'For Testing Only
                Label1.Visible = True
                Label1.Text = ex.Message.ToString
            End Try
        Loop
 

[kenobewan]

What is the error you receive?

[rtwPhoenix]

What is the error you receive?

Unable to cast object of type 'System.String' to type 'System.Web.UI.WebControls.Label'.

[Frinavale]

Protected Sub Wizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArg  s) Handles Wizard1.FinishButtonClick
 
        'Get Membership GUID 
        'Label2.Text = "Geeting User"
        Dim instance As MembershipUser = Membership.GetUser()
        Dim value As Object
        If instance Is Nothing Then
            Label2.Text = "NO USER IS LOGGED IN"
            Exit Sub
        End If
        value = instance.ProviderUserKey.ToString
        Dim NameId = value.ToString
        'SQL Input  
 
        Dim QGroup
        Dim QAnswer As Object
        Dim QLabel
 
        QGroup = Profile.Opportunity
        Dim i As Integer
        i = 0
        Do Until i > 26
            i = i + 1
 
            ' QAnswer = ("QAnswer" & (i) & ".Text")
            ' QLabel = ("QLabel" & (i) & ".Text")
            If i = 1 Then
                QLabel = QLabel1.Text
                QAnswer = QAnswer1.Text
            ElseIf i = 2 Then
                QLabel = QLabel2.Text
                QAnswer = QAnswer2.Text
            ElseIf i = 3 Then
                QLabel = QLabel3.Text
                QAnswer = QAnswer3.Text
                   ' ..... Up to i =27
 
End If
 
            ' If QLabel.GetType().ToString() = "System.Web.UI.WebControls.Label" Then
            ' Dim txtLabel As Label = DirectCast(QLabel, Label)
            ' txtLabel.Text = Trim(txtLabel.Text)
            ' End If
 
            Dim connStr As String = ConfigurationManager.ConnectionStrings("MyProfileConnectionString").ConnectionString
            Dim myConnection As New SqlConnection(connStr)
            Const SQL As String = "INSERT INTO[Questions]([UserID], [QuestionGroup], [QuestLabel], [QuestAns]) Values(@UserID, @QGroup, @QLabel, @QAnswer)"
 
            Dim myCommand As New SqlCommand(SQL, myConnection)
 
            myCommand.Parameters.AddWithValue("@UserID", NameId)
            myCommand.Parameters.AddWithValue("@QGroup", QGroup)
            myCommand.Parameters.AddWithValue("@QLabel", QLabel)
            myCommand.Parameters.AddWithValue("@QAnswer", QAnswer)
 
            'For Testing Only
            'Label2.Text = NameId
 
            Try
                myConnection.Open()
                myCommand.ExecuteNonQuery()
                myConnection.Close()
            Catch ex As Exception
                'For Testing Only
                Label1.Visible = True
                Label1.Text = ex.Message.ToString
            End Try
        Loop
 

First of all you're declaring QLabel without stating what it is. (I just find this kind of strange)

Then you're Setting QLabel to be the text stored in a Label.
Maybe try declaring what type of object QLabel is before setting it to something

Could you please post a copy of the error.

[rtwPhoenix]

[
First of all you're declaring QLabel without stating what it is. (I just find this kind of strange)

Then you're Setting QLabel to be the text stored in a Label.
Maybe try declaring what type of object QLabel is before setting it to something

Could you please post a copy of the error.

I have declared it several ways all with various results. Nothing seems to work.

RTW

[Frinavale]

I have declared it several ways all with various results. Nothing seems to work.

RTW

What is the error you're getting?

[rtwPhoenix]

I have declared it several ways all with various results. Nothing seems to work.

RTW

I have made the test using a wizard control with steps. VS 2005 .net 2.0 VB

I did not want to go back and forth to the server so I wrote the update statement at the end of the questions.

Some question sets are as long as 100 questions and we have over 35 question sets.

Looking at the code below that works it seems to me there must be an easier way of accompolishing this. I have tried everything that I have read or found for the past 5 times and nothing seems to work.

If anyone can help please do so.

Here is what I have that works.

 'SQL Input 
 
Dim QGroup
Dim QAnswer As String
Dim QLabel As String
 
'Inserted dummy string text
QLabel = "N/A"
QAnswer = "N/A"
 
QGroup = Profile.Opportunity
Dim i As Integer
i = 0
Do Until i > 11
i = i + 1
 
 
If i = 1 Then
QLabel = QLabel1.Text
QAnswer = QAnswer1.Text
ElseIf i = 2 Then
QLabel = QLabel2.Text
QAnswer = QAnswer2.Text
ElseIf i = 3 Then
QLabel = QLabel3.Text
QAnswer = QAnswer3.Text
ElseIf i = 4 Then
QLabel = QLabel4.Text
QAnswer = QAnswer4.Text
ElseIf i = 5 Then
QLabel = QLabel5.Text
QAnswer = QAnswer5.Text
ElseIf i = 6 Then
QLabel = QLabel6.Text
QAnswer = QAnswer6.Text
ElseIf i = 7 Then
QLabel = QLabel7.Text
QAnswer = QAnswer7.Text
ElseIf i = 8 Then
QLabel = QLabel8.Text
QAnswer = QAnswer8.Text
ElseIf i = 9 Then
QLabel = QLabel9.Text
QAnswer = QAnswer9.Text
ElseIf i = 10 Then
QLabel = QLabel10.Text
QAnswer = QAnswer10.Text
ElseIf i = 11 Then
QLabel = QLabel11.Text
QAnswer = QAnswer11.Text
ElseIf i = 12 Then
QLabel = QLabel12.Text
QAnswer = QAnswer12.Text
End If
 
Dim connStr As String = ConfigurationManager.ConnectionStrings("MyProfileConnectionString").ConnectionString
Dim myConnection As New SqlConnection(connStr)
Const SQL As String = "INSERT INTO[Questions]([UserID], [QuestionGroup], [QuestLabel], [QuestAns]) Values(@UserID, @QGroup, @QLabel, @QAnswer)"
 
Dim myCommand As New SqlCommand(SQL, myConnection)
 
myCommand.Parameters.AddWithValue("@UserID", NameId)
myCommand.Parameters.AddWithValue("@QGroup", QGroup)
myCommand.Parameters.AddWithValue("@QLabel", QLabel)
myCommand.Parameters.AddWithValue("@QAnswer", QAnswer)
 
'For Testing Only
'Label2.Text = NameId
 
Try
myConnection.Open()
myCommand.ExecuteNonQuery()
myConnection.Close()
Catch ex As Exception
'For Testing Only
Label1.Visible = True
Label1.Text = ex.Message.ToString & (i)
End Try
Loop
 

[Frinavale]

I have made the test using a wizard control with steps. VS 2005 .net 2.0 VB

I did not want to go back and forth to the server so I wrote the update statement at the end of the questions.

Some question sets are as long as 100 questions and we have over 35 question sets.

Looking at the code below that works it seems to me there must be an easier way of accompolishing this. I have tried everything that I have read or found for the past 5 times and nothing seems to work.

If anyone can help please do so.

Here is what I have that works.

So you fixed the problem you were having before?

[rtwPhoenix]

So you fixed the problem you were having before?

I don't think this is the correct way can I not just create some sort of loop incrementing the contorl each time? This way I don't have to write all these lines of code. Some exams are 100's of questions.

RTW