ListView Visual Basic 6

[franco55]

Este es otro ejemplo:


Private Sub Form_Load()
'APERTURA Y CARGAR DE EL LISTVIEW'

Set rs = New ADODB.Recordset

rs.Open "Select * from paciente", cn, 2, 3

ListView1.ListItems.Clear

Do While Not rs.EOF
Set subelemento = ListView1.ListItems.Add(, , rs.Fields("id_pac"))
subelemento.SubItems(1) = rs.Fields("dnipac")
subelemento.SubItems(2) = rs.Fields("apellidopac")
subelemento.SubItems(3) = rs.Fields("nombrepac")
subelemento.SubItems(4) = rs.Fields("fechanacimiento")
subelemento.SubItems(5) = rs.Fields("dompaci")
subelemento.SubItems(6) = rs.Fields("telparticular")
subelemento.SubItems(7) = rs.Fields("telcelular")
subelemento.SubItems(8) = rs.Fields("sexo")
subelemento.SubItems(9) = rs.Fields("codpostal")
subelemento.SubItems(10) = rs.Fields("localidad")
subelemento.SubItems(11) = rs.Fields("mailpac")
rs.MoveNext
Loop
End Sub