Visual Basic 6.0 : Display Data from Database To Listview

Sample Codes Here:

Private Sub Form_Load()
Dim mylist As ListItem
lv1.ListItems.Clear
lv1.ColumnHeaders.Clear
Dim rs As New ADODB.Recordset, i As Integer
lv1.ColumnHeaders.Add , , "STUDENT ID", lv1.Width * 0.2
lv1.ColumnHeaders.Add , , "FIRST NAME", lv1.Width * 0.2, 2
lv1.ColumnHeaders.Add , , "MIDDLE NAME", lv1.Width * 0.3, 2
lv1.ColumnHeaders.Add , , "LAST NAME", lv1.Width * 0.3, 2


rs.Open "Select * from tblSTI", con, adOpenDynamic
If Not rs.EOF Then

For i = 1 To rs.RecordCount
Set mylist = lv1.ListItems.Add()

mylist.Text = rs!SID
mylist.SubItems(1) = rs!Fn
mylist.SubItems(2) = rs!Mn
mylist.SubItems(3) = rs!ln
rs.MoveNext
Next

Exit Sub

End If

End Sub

Watch video below