Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

listview y sql

Estas en el tema de listview y sql en el foro de Visual Basic clásico en Foros del Web. Saludos señores, tengo un formulario en visual basic que ingresa, modifica y elimina registro de una base de datos en access, estoy trabajando con codigo ...
  #1 (permalink)  
Antiguo 07/11/2005, 05:02
 
Fecha de Ingreso: enero-2005
Mensajes: 39
Antigüedad: 19 años, 3 meses
Puntos: 0
listview y sql

Saludos señores, tengo un formulario en visual basic que ingresa, modifica y elimina registro de una base de datos en access, estoy trabajando con codigo sql, quisiera saber como en un listview podria mostrar una tabla con sus campos , ejemplo que tengan un boton llamado buscar y al pulsar me muestre los campos de esa tabla en el listview, seria tan amable de explicarme, gracias de antemano
  #2 (permalink)  
Antiguo 07/11/2005, 17:52
Avatar de jc_moty  
Fecha de Ingreso: septiembre-2005
Ubicación: Usulután, El Salvador
Mensajes: 477
Antigüedad: 18 años, 7 meses
Puntos: 1
Porque no probas esto; a mi me funciona bien.
Código:
Private Sub cmdBuscar_Click()
    ' Mostrar los datos en el listview
    Dim sBuscar As String
    Dim tRs As Recordset
    Dim tLi As ListItem
    '
    ' Formar la cadena de la consulta:
    ' Se busca por el nombre del autor y se muestran clasificados por el nombre
    sBuscar = "SELECT * FROM tabla WHERE campo LIKE '" & txtBusqueda & "' ORDER BY Author"
    ' Creamos un recordset del tipo "estático", el cual no es modificable
    ' para poder modificarlo, tendría que ser del tipo dbOpenDynamic
    Set tRs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
    ' Comprobar que hay datos en el recordset
    With tRs
        ' Si no hay datos...
        If (.BOF And .EOF) Then
            MsgBox "No se han encontrado los datos buscados"
        Else
            ' Mostrar los datos hallados
            ListView1.ListItems.Clear
            .MoveFirst
            Do While Not .EOF
                Set tLi = ListView1.ListItems.Add(, , .Fields("campo1") & "")
                tLi.SubItems(1) = .Fields("campo2") & ""
                tLi.SubItems(2) = .Fields("campo3") & ""
                .MoveNext
            Loop
        End If
    End With
End Sub
Saludos.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:11.