actualizar listview

[dark_night]

holas

tengo un listview donde muestro el resultado de una busqueda echa en la bd, y un boton k borra el registro seleccionado en el listview.
el problema es k al borrar el registro sigue apareciendo en listview hasta k se realice otra buskeda o se cierre el form y lo k intento hacer es k el registro desaparesca solo despues de ser borrado
se puede hacer???

esop
grax

[antonio2005pe]

carga de nuevo el listview con los nuevos valores

[dark_night]

para eso no tendria k hacer la consulta nuevamente??? si es ais hay otra forma k no rekiera realizar ninguna consulta

[antonio2005pe]

Como Es K Cargas El Listview?

[dark_night]

Código:

Private Sub Buscar()
  Dim Sql As String
  
  If CboBuscar.Text = "CD" Then
    Sql = "SELECT * FROM DATOS where " & CboBuscar.Text & "=" & TxtBuscar.Text & " ORDER BY TITULO"
  Else
    Sql = "SELECT * FROM DATOS where " & CboBuscar.Text & "='" & TxtBuscar.Text & "' ORDER BY TITULO"
  End If
  
  Set trs = cnn.Execute(Sql)
  
  With trs
    If (.BOF And .EOF) Then
        MsgBox "No se encontro el Registro Buscado"
    Else
        ListView1.ListItems.Clear
        .MoveFirst
        Do While Not .EOF
            Set tli = ListView1.ListItems.Add(, , .Fields("CD") & "")
            tli.SubItems(1) = .Fields("Autor") & ""
            tli.SubItems(2) = .Fields("TITULO") & ""
            tli.SubItems(3) = .Fields("PORTADA") & ""
            .MoveNext
        Loop
    End If
  End With
End Sub

asi obtengo los datos y los coloco en el listview

[antonio2005pe]

Simplemente lo borras el k ya fue eliminado de la db asi:

Código:

For i = ListView1.ListItems.Count To 1 Step -1
        If ListView1.ListItems(i).Selected Then
                ListView1.ListItems.Remove i
        End If
Next

[dark_night]

ahora si grax ^^

una pregunta..como puyedo saber si hay algun elemento del listview seleccionado????

[juanutcm]

Y como elimino el registro de la base de datos tomando como referencia el registro seleccionado en el listview.....