Cita:
Iniciado por Avellaneda 
Hola,
para eliminar de la tabla todos los registros marcados en unl ListView con la propiedad Checkboxes a True:
(Suponemos que la primera columna del ListView contiene el campo "id" de la tabla)
Código:
Dim i As Integer
With ListView1
For i = .ListItems.Count To 1 Step -1
Next i
End With
(no necesitas abrir ningún recordset)
muchas gracias avellaneda es excelente el codigo funciona a la perfeccion, pero si no es mucha molestia pedirte un favor, lo que pasa es que ahi estas utilizando un id con numero automaticos pero la cuestion es que al eliminar uno el registro se recorre
es decir:
si tengo los registros 1,2,3,4 entonces si elimino el registro 2 me queda 1,3,4 entonces al hacer el conteo en el listview al registro 3 lo toma como registro 2 y no elimina por que no coincide, la cuestion o mi pregunta seria como le hago para que me tome mi registro numero.
es decir que en el momento que entre al ciclo if
If .ListItems(i).Checked = True Then
cn.Execute "DELETE * FROM animales WHERE id = " & .ListItems(i).Text
End If
ahi como hacerle que identifique el numero que esta en esa fila, no se si me di a explicar pero les agradeceria muchisimo si puedieran ayudarme.....
les agradezco de antemano y les envio un cordial saludo.