[indoprog-vb] Re (Solusi): List View di VB

[yoen_mbozo]

ni,mudah mudahan bisa membantu



Sub RefresData()
Dim RsSiswa As New ADODB.Recordset
Dim lstView As ListItem
    StrSQL = "SELECT * from Siswa order by NIS"
Set Rs = Conn.Execute(StrSQL)
lstSiswa.ListItems.Clear
    Do While Not Rs.EOF
        Set lstView = lstSiswa.ListItems.Add(Text:=Rs("NIS"))
        lstView.SubItems(1) = "" & Rs("NAMA")
        lstView.SubItems(2) = "" & Rs("Alamat")
        lstView.SubItems(3) = "" & Rs("NoTelp")
        lstView.SubItems(4) = "" & Rs("Jekel")
        lstView.SubItems(5) = "" & Rs("TempatLahir")
        lstView.SubItems(6) = "" & Rs("tGLLAHIR")
        lstView.SubItems(7) = "" & UCase(Rs("Kelas"))
         lblJumlah.Caption = lstSiswa.ListItems.Count
        Rs.MoveNext
    Loop
     Exit Sub
End Sub