Buenas noches, a ver si alguien me puede ayudar. Necesito cargar en listview con procedencias de usuarios, las que deben estar sin repetir (hasta acá lo hice). Pero a su vez quiero que aparezca en el listview el conteo de usuarios que vienen de la misma procedencia.
Ejemplo:
Tabla
Rojo
Rojo
Rojo
Blanco
Blanco
Azul
Verde
Listview
Rojo 3
Blanco 2
Azul 1
Verde 1
A quien tenga un momento para dedicarle a éste tema le dejo el código cómo lo tengo hasta ahora:
Código:
Private Sub Cargar_Listado_Click()
Me.ListView1.ListItems.Clear
Dim rsConsulta6 As ADODB.Recordset
Set rsConsulta6 = New ADODB.Recordset
Dim li As ListItem
rsConsulta6.Open "SELECT Procedencia FROM Historial GROUP BY Procedencia", cnn, adOpenDynamic, adLockBatchOptimistic
While (rsConsulta6.EOF = False)
Set li = ListView1.ListItems.Add(, , rsConsulta6("Procedencia"))
rsConsulta6.MoveNext
Wend
'Aquí Sumo la Cantidad de lugares de Procedencia sin repetir
For i = 1 To ListView1.ListItems.Count
Total = ListView1.ListItems.Count
Next
TextTotal = Total
End Sub
Gracias!!!!