[RESOLVED] [2005] CommandText not Initialized Help Please :)

[tuber]

I am changing some code on this program at work and this actually worked before so I guess I broke it.

I'm getting the error "Execute Reader: CommandText has not been initialized"

Private Function Process_Invoice_HRA(ByVal strCode As String) As Boolean
        Notify("Invoice")

        Dim strPlanYear As String
        Dim strEmployerNumber As String

        Select Case Mid(strCode, 1, 1)
            Case "("
                strPlanYear = Mid(strCode, 4, 4)
                strEmployerNumber = Mid(strCode, 8, strCode.Length - 8)
            Case "-"
                strPlanYear = Mid(strCode, 4, 4)
                strEmployerNumber = Mid(strCode, 13, strCode.Length - 13)
        End Select

     
        EmployerDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(1).Value = strPlanYear


        Try
            DsErEeEp1.Clear()
            EmployerDataAdapter.Fill(DsErEeEp1)
            PlanDataAdapter.Fill(DsErEeEp1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

EDIT: I'm getting this error on the Fill.

[Hack]

I'm a little confused.

I don't see where you are using a datareader, and I don't see where you are creating the dataadapter before you use it.

[tuber]

This is the code that was originally there.

Private Function Process_Invoice_HRA(ByVal strCode As String) As Boolean
        Notify("Invoice")
        Dim strPlanYear As String = Mid(strCode, 4, 4)
        Dim strEmployerNumber As String = Mid(strCode, 8, strCode.Length - 8)

        EmployerDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(1).Value = strPlanYear

        DsErEeEp1.Clear()
        EmployerDataAdapter.Fill(DsErEeEp1)
        PlanDataAdapter.Fill(DsErEeEp1)


        Notify(DsErEeEp1.Tables("Employer").Rows(0).Item("Employer_first_name") & " " & DsErEeEp1.Tables("Employer").Rows(0).Item("Employer_last_name") & " " & strPlanYear)

And here is the new code.. Why would a Select Statement cause this?

  Private Function Process_Invoice_HRA(ByVal strCode As String) As Boolean
        Notify("Invoice")

        Dim strPlanYear As String
        Dim strEmployerNumber As String

        Select Case Mid(strCode, 1, 1)
            Case "("
                strPlanYear = Mid(strCode, 4, 4)
                strEmployerNumber = Mid(strCode, 8, strCode.Length - 8)
            Case "-"
                strPlanYear = Mid(strCode, 4, 4)
                strEmployerNumber = Mid(strCode, 13, strCode.Length - 13)
        End Select

        EmployerDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(0).Value = CInt(strEmployerNumber)
        PlanDataAdapter.SelectCommand.Parameters(1).Value = strPlanYear


            DsErEeEp1.Clear()
            EmployerDataAdapter.Fill(DsErEeEp1)
            PlanDataAdapter.Fill(DsErEeEp1)
     

            Notify(DsErEeEp1.Tables("Employer").Rows(0).Item("Employer_first_name") & " " & DsErEeEp1.Tables("Employer").Rows(0).Item("Employer_last_name") & " " & strPlanYear)

[tuber]

The Adapter is created graphically.

[Hack]

No, your select case would not cause that. All it is doing is parsing an employee number (or, at least, that is what it looks like it is doing)

[tuber]

yeah, it's a barcode actually but you're right. But honestly, that's all i changed. And i have the old compiled code and it works. When I step through all of my variables are correct too.

[tuber]

Sorry for wasting your time. I have the weirdest things happen to me all the time with Visual Studio. Probably cause i don't know what i'm doing, or i like to experiment to much. The problem was, I guess, that when I reloaded the existing item (I had messed some stuff up so i reloaded that form in my project to start fresh) It deleted all the command text in the adapters i made graphically. Sorry I wasted your time Hack.

[Hack]

It was not a waste of my time and I'm glad you got it resolved.