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 | |
 semoga membantu!! |