Adding Items to TreeView & ListView from Database.

[debasisdas]

This sample code displays employee name in the treeview control from the emp table of Scott schema in oracle database.

To start with

Select Microsoft windows common controls 6.0 (SP6) from components
Add a TreeView and a ListView control to the form.

Add this sample code to the form
=============== ===========

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
 
Private Sub Form_Load()
con.Open "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=das"
 
call TREE
End Sub
 
Public Sub TREE()
tv1.Visible = False
tv1.Nodes.Clear
tv1.Visible = True
 Dim scontactname As String
 Dim currentalpha As String
 
    rs1.Open "select * from emp  order by ename", con, adOpenDynamic, adLockOptimistic
    If (rs1.RecordCount > 0) Then
        rs1.MoveFirst
    End If
    For indx = Asc("A") To Asc("Z")
        currentalpha = Chr(indx)
        Set contactnode = tv1.Nodes.Add(, , currentalpha, currentalpha)
    If (Not rs1.EOF) Then
        Do While UCase(Left(rs1!ename, 1)) = currentalpha
           With rs1
                If (Not IsNull(!ename)) Then
                    scontactname = !ename
                End If
            End With
            DoEvents
                Set contactnode = tv1.Nodes.Add(currentalpha, tvwChild, rs1!ename, scontactname)
                rs1.MoveNext
                If (rs1.EOF) Then
                    Exit Do
                End If
                Loop
                End If
                Next
 
                rs1.Close
                DoEvents
End Sub
 

To display the details of the record as selected from the Treeview control.

Add the column headers in the listview from property pallet as the field name from the table if desired.

Add the following sample code
=============== =========

Private Sub tv1_NodeClick(ByVal Node As MSComctlLib.Node)
LV1.ListItems.Clear
rs.Open "select * from EMP where ENAME = '" & tv1.SelectedItem.Key & "'", con, adOpenDynamic, adLockOptimistic
 
Dim li1 As ListItem
Set li1 = LV1.ListItems.Add()
If Not rs.EOF Then
 
If IsNull(rs(0)) Then
li1.Text = ""
Else
li1.Text = rs(0)
End If
 
If IsNull(rs(1)) Then
LV1.ListItems(1).ListSubItems.Add , , ""
Else
LV1.ListItems(1).ListSubItems.Add , , rs(1)
End If
 
If IsNull(rs(2)) Then
LV1.ListItems(1).ListSubItems.Add , , ""
Else
LV1.ListItems(1).ListSubItems.Add , , rs(2)
End If
 
If IsNull(rs(3)) Then
LV1.ListItems(1).ListSubItems.Add , , ""
Else
LV1.ListItems(1).ListSubItems.Add , , rs(3)
End If
If IsNull(rs(4)) Then
LV1.ListItems(1).ListSubItems.Add , , ""
Else
LV1.ListItems(1).ListSubItems.Add , , rs(4)
End If
If IsNull(rs(5)) Then
LV1.ListItems(1).ListSubItems.Add , , ""
Else
LV1.ListItems(1).ListSubItems.Add , , rs(5)
End If
If IsNull(rs(6)) Then
LV1.ListItems(1).ListSubItems.Add , , ""
Else
LV1.ListItems(1).ListSubItems.Add , , rs(6)
End If
If IsNull(rs(7)) Then
LV1.ListItems(1).ListSubItems.Add , , ""
Else
LV1.ListItems(1).ListSubItems.Add , , rs(7)
End If
 
End If
rs.Close
End Sub