Tengo varios datos en un datagrid cogidos de una base de datos. Cuando voy a eliminar tengo un campo que es un check box y si está seleccionado se elimina y si no pues no.Si sólo quiero eliminar un dato me funciona perfectamente. Pero en el momento que quiero eliminar más el último que selecciono para eliminar no me le elimina. Porque puede ser.??
Les dejo el código :
Private Sub botelim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botelim.Click
Dim str As String
Dim x As Boolean = False
Dim cmdborrar As New OleDbDataAdapter
'Recorremos el data grid
'
For i = 0 To Me.dgcontador.RowCount - 1
'
'Si el item esta seleccionado se elimina de la base de datos
'
If Me.dgcontador.Item(0, i).Value = True Then
str = "DELETE * FROM contador where id_contador= " & Me.dgcontador.Item(1, i).Value
cmdborrar = New OleDbDataAdapter(str, conexion)
cmdborrar.Fill(ds, "contador")
x = True
End If
Next i
'
'si no ha elegido ningún elemento
'
If x = False Then
MsgBox("Debe elegir algún elemento a eliminar", MsgBoxStyle.Information, "Eliminar")
End If
'
'Cogemos los datos de la tabla para llenar el datagrid
'
Dim sql As OleDbDataAdapter
sql = New OleDbDataAdapter("SELECT * FROM contador", conexion)
Dim dats As New DataSet
sql.Fill(dats, "contador")
'
'Llenar el data grid con los nuevos datos
'
With Me.dgcontador
.ReadOnly = False
.DataSource = dats
.DataMember = "contador"
End With
End Sub
