Forums Neueste Beiträge
 

TreeView - Type mismatch

07/07/2010 - 12:56 von Sven | Report spam
Hi,

ich versuche, eine Datenbankabfrage via TreeView darzustellen, bekomme
aber egal was ich mache die verschiedensten Fehlermeldungen. Nun habe
ich das Ganze mal aus einem àlteren Projekt kopiert (und natürlich die
Beziehungen angepasst), aber dennoch bekomme ich einen Type mismatch
Error beim ausführen... Kann mir jemand sagen wo's hàngt?

Der Code ist folgender:
Private Sub Form_Load()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objNode As MSComctlLib.Node
Dim ObjTreeView As MSComctlLib.TreeView
Dim SQL_String As String

SQL_String = "SELECT UHRZEIT FROM tblBelege ORDER BY Uhrzeit ASC;"

Set db = CurrentDb
Set rst = db.OpenRecordset(SQL_String)
'Set rst = db.OpenRecordset("qry_Gruppen_TREEVIEW")
Set ObjTreeView = Me.trv63_Taskliste.Object

trv63_Taskliste.Nodes.Clear

Do While Not rst.EOF

Set objNode = ObjTreeView.Nodes.Add(, , rst![UHRZEIT], rst!
[UHRZEIT])

rst.MoveNext

Loop
Set objNode = Nothing
rst.Close
Set rst = Nothing
Set db = Nothing

End Sub
 

Lesen sie die antworten

#1 Stefan Dase
07/07/2010 - 13:45 | Warnen spam
Hallo Sven!

ich versuche, eine Datenbankabfrage via TreeView darzustellen, bekomme
aber egal was ich mache die verschiedensten Fehlermeldungen. Nun habe
ich das Ganze mal aus einem àlteren Projekt kopiert (und natürlich die
Beziehungen angepasst), aber dennoch bekomme ich einen Type mismatch
Error beim ausführen... Kann mir jemand sagen wo's hàngt?



Obwohl ich gerade keine Dokumentation für das TreeView zur Hand habe,
vermute ich den Fehler im Key-Parameter des Knoten:

Set objNode = ObjTreeView.Nodes.Add(, , rst![UHRZEIT], rst![UHRZEIT])


^^^^^^^^^^^^
Key-Parameter

Dieser Wert muss zwingen ein String sein, deine Uhrzeit ist
wahrscheinlich Numerisch?! Außerdem reicht es m.W. nicht, eine Zahl nur
als String zu übergeben; der Wert muss mit einem Character beginnen.

Ich habe mir immer so geholfen, dass ich eine Zeichenkette erstelle:

sKey = "U_" & rst![UHRZEIT]
Set objNode = ObjTreeView.Nodes.Add(, , sKey, rst![UHRZEIT])

HTH,
Stefan

Ähnliche fragen