I am learning from a few books and I am using their examples but I am not sure if I am getting the complete example.

What is wrong with this?
I get error:
 Object reference not set to an instance of an object.

at:
insertCmd.Parameters("@ASP").Value = sASP.ToString
__________________________________________________ __________________________________


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        Dim myCONN As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("C onnectionString"))

        Dim sSql As String = "INSERT INTO Member (ASP, VB) VALUES (@ASP, @VB)"

        Dim insertCmd As New SqlCommand(sSql, myCONN)
        insertCmd.CommandType = CommandType.Text
        insertCmd.Connection = myCONN

        insertCmd.Parameters.Add("@ASP", SqlDbType.NVarChar, 5)
        insertCmd.Parameters.Add("@VB", SqlDbType.NVarChar, 5)


        insertCmd.Parameters("@ASP").Value = sASP.ToString
        insertCmd.Parameters("@VB").Value = sVB.ToString

        Dim bSuccess As Boolean
        bSuccess = True

        Try
            myCONN.Open()
            insertCmd.ExecuteScalar()
            myCONN.Close()

        Catch ex As Exception
            bSuccess = False
            Response.Write("Failed")
            Response.End()

        Finally
            If myCONN.State = ConnectionState.Open Then
                myCONN.Close()
            End If
        End Try


        If bSuccess = True Then
            Response.Write("Success")
        End If





    End Sub


    Private Sub ck1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ck1.CheckedChanged

        If ck1.Checked Then
            sVB = "True"
        Else
            sVB = "False"
        End If

    End Sub

    Private Sub ck2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ck2.CheckedChanged
        If ck2.Checked Then
            sASP = "True"
        Else
            sASP = "False"
        End If
    End Sub
End Class

Thanks.

Hey,

Where is sASP defined? What happens if no checkboxes are checked? Then sASP has no defaults? If sASP is global, assign a default value in the Page_Load. And the values would need to be stored in the Session or Cache, because the values are destroyed after page_unload.

Brian

Hello
I didn't post the code defining sASP. sASp and sVB are defined.
What do my error code mean?
I get error:
 Object reference not set to an instance of an object.

at:
insertCmd.Parameters("@ASP").Value = sASP.ToString

It means the object reference is not set to an instance of an object. So either sASP or insertCMD isn't defined.. Most likely sASP isn't defined properly

Hal Levy
Web Developer, PDI Inc.

NOT a Wiley/Wrox Employee

Hey,

Remember, unless you are using Session or Cache, then the variables aren't containing a reference. Could you post the creation of sASP and sVB to verify?

Session or Cache are usually restablished at the last moment or in Page_Load.

Brian

Here is the full code:

Dim bVB As Boolean
Dim bASP As Boolean

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        Dim myCONN As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("C onnectionString"))

        Dim sSql As String = "INSERT INTO Member (ASP, VB) VALUES (@ASP, @VB)"

        Dim insertCmd As New SqlCommand(sSql, myCONN)
        insertCmd.CommandType = CommandType.Text
        insertCmd.Connection = myCONN

        insertCmd.Parameters.Add("@ASP", SqlDbType.NVarChar, 5)
        insertCmd.Parameters.Add("@VB", SqlDbType.NVarChar, 5)


        insertCmd.Parameters("@ASP").Value = sASP.ToString
        insertCmd.Parameters("@VB").Value = sVB.ToString

        Dim bSuccess As Boolean
        bSuccess = True

        Try
            myCONN.Open()
            insertCmd.ExecuteScalar()
            myCONN.Close()

        Catch ex As Exception
            bSuccess = False
            Response.Write("Failed")
            Response.End()

        Finally
            If myCONN.State = ConnectionState.Open Then
                myCONN.Close()
            End If
        End Try


        If bSuccess = True Then
            Response.Write("Success")
        End If
    End Sub


    Private Sub ck1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ck1.CheckedChanged

        If ck1.Checked Then
            sVB = "True"
        Else
            sVB = "False"
        End If

    End Sub

    Private Sub ck2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ck2.CheckedChanged
        If ck2.Checked Then
            sASP = "True"
        Else
            sASP = "False"
        End If
    End Sub
End Class

Help me please.