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

[Si Boelank cakep s ^_^ s]

>
> 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
>
> temen-temen aku minta tutorialmnya visual c ada yang punya g?
e-book ;