Private Sub llenarListView()
Dim sqlcon As ADODB.Connection
Set sqlcon = Me.Conectar
Dim sqlrec As New ADODB.Recordset
sqlrec.Open "call spF_visitante_all()", sqlcon, adOpenStatic, adLockOptimistic
Dim Item As ListItem
With lvwVisitante
.Refresh
.ListItems.Clear ' elimina todos los datos
.ColumnHeaders.Clear ' elimina los encabezados
.View = lvwReport 'vista de reporte
'.FlatScrollBar = True 'si la barra de desplazamiento aparece plana
.FullRowSelect = True 'determina si al seleccionar un elemento en la vista detalle, se selecciona la fila completamente
.GridLines = True 'linea en las filas y columnas
.HideSelection = False 'si el elemento seleccionado se mostrara como seleccionado cuando el listview pierde enfoque
.LabelEdit = lvwManual 'si un usuario puede modificar la etiqueta listitem o node
.BorderStyle = ccNone 'estilo de bordes
.Font.Name = "Verdana" 'fondo de letra verdana
.Font.Size = 8 ' tamaño de la letra
.Appearance = ccFlat 'apariencia 3d
.TabStop = False ' si se usara tab para desplazarce
.ForeColor = vbBlack ' color de la letra
'etiquetas de encabezados
.ColumnHeaders.Add , , UCase(sqlrec(1).Name), sqlrec(1).DefinedSize * 250 / 5
.ColumnHeaders.Add , , "FECHA", 125 * 16
.ColumnHeaders.Add , , UCase(sqlrec(3).Name), 125 * 10
.ColumnHeaders.Add , , UCase(sqlrec(0).Name), 0
End With
While Not sqlrec.EOF
Set Item = lvwVisitante.ListItems.Add(, , sqlrec!nombre)
Item.Tag = sqlrec!nombre
Item.SubItems(1) = VBA.Format$(sqlrec!fechaNacimiento, "dd-MM-yyyy")
Item.SubItems(2) = "" & sqlrec!peso
Item.SubItems(3) = "" & sqlrec!codigo
sqlrec.MoveNext
Wend
lvwVisitante.Refresh
sqlrec.Close
sqlcon.Close
Set sqlrec = Nothing
Set sqlcon = Nothing
End Sub
