RE:Eliminar desde un listview
Hola Josef!!! Hago un paso previo antes de eliminar un registro, por lo menos me funciona.
Asigno 5 columnas (o las que necesites) y utilizo las 2 primeras para el código de la tabla, la columna 1 ...With = 0.
La forma que uso para cargar todos los registros en un ListView es:
'1ro.
Public Sub CargarRegistros()
Dim NOMBRE as ListItem 'Genero una una matriz de cadenas que_
representa los subelementos (2da columna en adelante)
ListView1.ListItem.Clear 'al objeto lo limpio...
'2do.
'Abro la Bd y cominzo a Cargar...
For I = 0 to (Tabla.Recordcount - 1)
Set NOMBRE = ListView1.ListItem.Add(, , Tabla.Codigo) 'Columna 1_
que no se vé
NOMBRE.SubItems(1) = Tabla.Codigo 'Columna 2
NOMBRE.SubItems(2) = Tabla.Nombre 'Columna 3
NOMBRE.SubItems(3) = Tabla.StockAcutal 'Columna 4
NOMBRE.SubItems(4) = Tabla.Rubro 'Columna 5
Next I
End Sub
'3ro.
'Y PARA ELIMINAR UN REGISTRO EN LA BD...
Private Sub BotonEliminar_Click()
With Bd.rsExisteTabla
If .State = adStateOpen Then .Close
Bd.ExisteTabla ListView1.SelectedItem.SubItems(1) 'De la columna 2
Bd.rsExisteTabla.Delete
Bd.rsExisteTabla.Close
End With
'Y por ultimo
Call CargarRegistros 'Se debe cargar el ListView sin el registro eliminado
End Sub
Bueno, espero que puedas adaptarlo y te saque del apuro. Saludos!! ROBER