koneksi Listview dengan ADODC [VB6.0]

1. buka vb6.0 yang sudah anda install sebelumnya di komputer anda
2. tambahkan komponen listview dan ADODC
3. ketikkan koding berikut untuk menampilkan data pada listview:

Spoiler for coding tampil data listview:

Dim rssiswa As New ADODB.Recordset
Dim SQL1 As String
Dim SQL2 As String
Dim itemX As ListItem

Public Sub tampil()
With LV1
.Font.Name = "Times New Roman"
.ListItems.Clear
.ColumnHeaders.Clear

.ColumnHeaders.Add
.ColumnHeaders(1).Text = "No. Induk Siswa"
.ColumnHeaders(1).Width = 3000

.ColumnHeaders.Add
.ColumnHeaders(2).Text = "Nama Siswa"
.ColumnHeaders(2).Width = 5000

.ListItems.Clear
End With

Adodc1.RecordSource = "select * from siswa"

While Not Adodc1.Recordset.EOF
Set itemX = LV1.ListItems.Add
itemX.Text = Adodc1.Recordset.Fields("NIS")
itemX.SubItems(1) = Adodc1.Recordset.Fields("nama")
Adodc1.Recordset.MoveNext
Wend
End Sub

NB :
untuk field tabelnya, sesuaikan dengan nama field pada tabel yang sudah anda buat sebelumnya