Key Not Unique [Resolved]
I get a Key not Unique error message when I add a record to a parent node without a child node, but when I add a record to a parent node that already has a child it works.
VB Code:
Private Sub initializeTree()
tvwItems.ImageList = imgList
Dim nodClass As Node
Dim nodTitle As Node
tvwItems.LineStyle = tvwRootLines
tvwItems.Nodes.Clear
'Initialize the recordsets
Set rsClass = New ADODB.Recordset
Set rsTitle = New ADODB.Recordset
'Open the Class recordset
strSQLClass = "SELECT id, classification FROM tblClassification ORDER BY classification"
rsClass.Open strSQLClass, conTree, adOpenStatic, adLockOptimistic
'set node for treeview
If rsClass.RecordCount > 0 Then
While Not rsClass.EOF
Set nodClass = tvwItems.Nodes.Add(, , (rsClass.Fields("classification")), (rsClass.Fields("classification")), 1)
'Opens the recordset for Title
strSQLTitle = "SELECT id, title, classification, code, dateadded FROM tblSnipplets WHERE classification LIKE '" & (rsClass.Fields("classification")) & "%'"
rsTitle.Open strSQLTitle, conTree, adOpenStatic, adLockOptimistic
'set node for treeview
If rsTitle.RecordCount > 0 Then
While Not rsTitle.EOF
Set nodTitle = tvwItems.Nodes.Add((rsClass.Fields("classification")), tvwChild, CStr(rsTitle.Fields("id")) & " id", (rsTitle.Fields("title")), 2)
' Set nodTitle = tvwItems.Nodes.Add
nodTitle.Tag = rsTitle.Fields("Id").Value
rsTitle.MoveNext
DoEvents
Wend
End If
rsTitle.Close
rsClass.MoveNext
DoEvents
Wend
End If
rsClass.Close
End Sub