TreeView- Fehlermeldung: Key ist unique in Collection

18/02/2009 - 09:55 von Andreas Ahrens | Report spam
Hi NG,

was ist am unteren Listing falsch?

db As ADODB.Connection
Dim rs As ADODB.Recordset

Const SqlString = "SELECT Adressen.AdressID, Brief.BriefID, Brief.AdressID,
Adressen.Anrede, Adressen.VName, " & _
"Adressen.NName, Adressen.Firma, Adressen.Abteilung,
Adressen.zHd, " & _
"Adressen.Straße, Adressen.Plz, Adressen.Ort,
Adressen.Textanrede, " & _
"Brief.Betreff, Brief.Text, Brief.Dokument,
Brief.gedruckt_am, " & _
"Brief.gedruckt, Brief.WiedervorlageID, Brief.FormularID "
& _
"FROM Adressen INNER JOIN Brief ON Adressen.AdressID =
Brief.AdressID"


Private Sub Form_Load()
Dim nodX As Node
Dim A, B, C As Long 'Treeview-Unterknoten

Set db = CurrentProject.Connection
Set rs = New ADODB.Recordset

Me.Text1 = ""

rs.Open (SqlString), db

Set nodX = TreeView3.Nodes.Add(, , "r1", "Namen") 'Root 1
A = nodX.Index 'Index des Hauptknotens

While Not rs.EOF
'Fehlermeldung: Key ist unique in Collection (mehrere Eintragungen
in Tabelle Brief)
Set nodX = TreeView3.Nodes.Add(A, tvwChild, "k" &
CStr(rs.Fields("Adressen.AdressID")), CStr(rs.Fields("NName")))
B = nodX.Index 'Index des ersten Unterknotens

'erster Unterknoten
Set nodX = TreeView3.Nodes.Add(B, tvwChild, "p" &
CStr(rs.Fields("Brief.AdressID")), CStr(rs.Fields("Betreff")))

rs.MoveNext
Wend
rs.Close
db.Close

End Sub

geplantes Aussehen:

Kunden
\
Kundenname
\
Betreff1
Betreff2
.
.
.

Gruß
Andy
 

Lesen sie die antworten

#1 Andreas Ahrens
18/02/2009 - 09:59 | Warnen spam
Es muß natürlich "Key ist not unique in Collection" heißen.

"Andreas Ahrens" wrote:

Hi NG,

was ist am unteren Listing falsch?

db As ADODB.Connection
Dim rs As ADODB.Recordset

Const SqlString = "SELECT Adressen.AdressID, Brief.BriefID, Brief.AdressID,
Adressen.Anrede, Adressen.VName, " & _
"Adressen.NName, Adressen.Firma, Adressen.Abteilung,
Adressen.zHd, " & _
"Adressen.Straße, Adressen.Plz, Adressen.Ort,
Adressen.Textanrede, " & _
"Brief.Betreff, Brief.Text, Brief.Dokument,
Brief.gedruckt_am, " & _
"Brief.gedruckt, Brief.WiedervorlageID, Brief.FormularID "
& _
"FROM Adressen INNER JOIN Brief ON Adressen.AdressID =
Brief.AdressID"


Private Sub Form_Load()
Dim nodX As Node
Dim A, B, C As Long 'Treeview-Unterknoten

Set db = CurrentProject.Connection
Set rs = New ADODB.Recordset

Me.Text1 = ""

rs.Open (SqlString), db

Set nodX = TreeView3.Nodes.Add(, , "r1", "Namen") 'Root 1
A = nodX.Index 'Index des Hauptknotens

While Not rs.EOF
'Fehlermeldung: Key ist unique in Collection (mehrere Eintragungen
in Tabelle Brief)
Set nodX = TreeView3.Nodes.Add(A, tvwChild, "k" &
CStr(rs.Fields("Adressen.AdressID")), CStr(rs.Fields("NName")))
B = nodX.Index 'Index des ersten Unterknotens

'erster Unterknoten
Set nodX = TreeView3.Nodes.Add(B, tvwChild, "p" &
CStr(rs.Fields("Brief.AdressID")), CStr(rs.Fields("Betreff")))

rs.MoveNext
Wend
rs.Close
db.Close

End Sub

geplantes Aussehen:

Kunden
\
Kundenname
\
Betreff1
Betreff2
.
.
.

Gruß
Andy

Ähnliche fragen