This is my code to display the database "supplier":
Sub displaylist()
Dim lst ListView1.Items.Clear()
rs = New ADODB.Recordset
With rs
.Open("select * from tblsupplier order by suppID asc", cn, 2, 3)
Do While Not .EOF
lst = New ListViewItem
lst = ListView1.Items.Add(.Fields(0).Value)
lst.SubItems.Add(.Fields(1).Value)
lst.SubItems.Add(.Fields(2).Value)
lst.SubItems.Add(.Fields(3).Value)
MoveNext()
Loop
End With
End Sub
Software/Hardware used: management information system
Discuss This Question: 1  Reply