Expand|Select|Wrap|Line Numbers
- Dim rsFaculty As New ADODB.Recordset
- Dim rsDepartment As New ADODB.Recordset
- Dim oCm As New ADODB.Command
- Private Sub Disconnect()
- connect.Close
- End Sub
- Private Sub Form_Load()
- 'connect.Execute ("SELECT `t_faculty`.`FacultyFName`,`t_faculty`.`FacultyMI`,`t_faculty`.`FacultyLName`,`t_faculty`.`DepartmentID`,`t_department`.`Department`FROM `t_faculty`INNER JOIN `t_department` ON (`t_department`.`DepartmentID` = `t_faculty`.`DepartmentID`)")
- 'Call connect
- 'SQLconnection
- Call fillTree
- End Sub
- Sub fillTree()
- Dim sqlFaculty As String
- Dim sqlDepartment As String
- Dim nodeDepartment As Node
- Dim nodeFaculty As Node
- sqlDepartment = "SELECT `t_department`.`DepartmentID`FROM `t_department`"
- sqlFaculty = "SELECT `t_department`.`Department`,`t_faculty`.`FacultyFName`,`t_faculty`.`DepartmentID`FROM `t_faculty`INNER JOIN `t_department` ON (`t_department`.`DepartmentID` = `t_faculty`.`DepartmentID`)"
- tvTreeView.Nodes.Clear
- SQLconnection
- rsDepartment.Open sqlDepartment, connect, adOpenDynamic, adLockOptimistic
- Dim i As Integer, j As Integer
- With rsDepartment
- While Not .EOF
- Set nodeDepartment = tvTreeView.Nodes.Add(, , ![Department], ![Department], 1)
- nodeDepartment.Expanded = True
- Set rsFaculty = oCm.Execute(, Array(![DepartmentID]))
- While Not rsFaculty.EOF
- Set nodeFaculty = tvTreeView.Nodes.Add(nodeDepartment.Index, tvwChild, , rsFaculty![FacultyFName], 1, 1)
- j = j + 1
- rsFaculty.MoveNext
- Wend
- nodeDepartment.Text = nodeDepartment.Text & " [" & Trim(Str(j)) & "]"
- j = 0
- i = i + 1
- .MoveNext
- Wend
- End With
- Disconnect
- End Sub
Currenty i am using MySQL as a database....
I have a table t_department and another table is t_faculty...What I like to do using a treeview....I want to display in the treeview the parent node as Department name then the child nodes are list of the Faculty names...
and i always got an error :
runtime error 3265
item cannot be found in the collection corresponding to the requested name or cardinal at the underlined line above...
please help.......