Visual Basic - Eliminar desde un listview

Life is soft - evento anual de software empresarial
 
Vista:

Eliminar desde un listview

Publicado por josef (4 intervenciones) el 28/10/2008 18:13:38
hola necesito ayuda para eliminar datos de una bd al seleccionar una fila desde el listview y presionar un boton eliminar... ya que he intentado pero no me resulta porque solo me limpia el listview... este es el codigo que utilizo pero como les digo solo me limpia el listview y no me borra
el dato de la bd

ListView1.ListItems.Remove (ListView1.SelectedItem.Index)

agradezco su ayuda
Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Eliminar desde un listview

Publicado por Roberto Romero (2 intervenciones) el 28/10/2008 22:57:24
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar