checkbox list insert index less than size... vb.net

[lisat76]

I have tried several different way to insert checked valuse into a db I keep getting
"Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index "

The sub will insert the first checked value but will throw the above error if there is more than one box checked even if the error is thrown it will still insert the first checked value.


Here are 2 examples of code i tried

Protected Sub addPlayertoTeam(ByVal sender As Object, ByVal e As EventArgs) Handles btnInsPlayer.Click

        Dim ckbox As ListItem

        For Each ckbox In ckplayers.Items
            If ckbox.Selected Then
                Dim lbplayerval As Integer = ckbox.Value
                Dim TeamId As Integer = ddlteams.SelectedValue
                 sdsinplayers.InsertParameters(0).DefaultValue = TeamId
                sdsinplayers.InsertParameters(1).DefaultValue = lbplayerval
                sdsinplayers.InsertParameters(2).DefaultValue = username
                sdsinplayers.Insert()
                sdsinplayers.InsertParameters.Clear()

            End If

        Next
        ckplayers.DataBind()
        gviewPlTeams.DataBind()
    End Sub

    Protected Sub addPlayertoTeam(ByVal sender As Object, ByVal e As EventArgs) Handles btnInsPlayer.Click
        Dim ctr As Integer
       
        For ctr = 0 To ckplayers.Items.Count - 1
                     
            If ckplayers.Items(ctr).Selected Then
                Dim lbplayerval As Integer = ckplayers.SelectedValue
                Dim TeamId As Integer = ddlteams.SelectedValue
             
                sdsinplayers.InsertParameters(0).DefaultValue = TeamId
                sdsinplayers.InsertParameters(1).DefaultValue = lbplayerval
                sdsinplayers.InsertParameters(2).DefaultValue = username
                sdsinplayers.Insert()
                sdsinplayers.InsertParameters.Clear()

            End If

        Next
        ckplayers.DataBind()
        gviewPlTeams.DataBind()
    End Sub

i get the same error regardless of the code

 

[adamroof]

I dont think you can do a For Each on a sqldatasource.

http://msdn.microsoft.com/en-us/library/system.web.ui.webcontrols.sqldatasource.inserting.aspx

the link has some examples saying you need to extend the OnInserting event handler

This link has a real similar situation

http://www.devnewsgroups.net/group/microsoft.public.dotnet.framework.adonet/topic55648.aspx

im not a fan of posting lots of external links, but they better describe and possibly resolve your issue.

 

[jmeckley]

sdsinplayers.InsertParameters.Clear()

this removes all parameters from the collection. just delete this line and you should be good.

Jason Meckley
Programmer
Specialty Bakers, Inc.

 

[lisat76]

this removes all parameters from the collection. just delete this line and you should be good. "

If i remove the parameters.clear then it inserts the first selected value x number of times that a box is checked.
So i i check 3 different boxes with different value it
will insert the value of the first checked box 3 times.

 

[lisat76]

nevermind i got it i changed this

 Dim lbplayerval As Integer = ckplayers.SelectedValue

to this

  Dim lbplayerval As Integer = ckplayers.Items(ctr).Value

and deleted the insertparam.clear

worked like a charm thanks...