Visual Basic Forum

NeoKortex · Newbie Anmeldedatum: 20.09.2011 Beiträge: 4

Hallo (:

Ich muss zZ im Praktikum eine Datenbank mit Access erstellen.
Ich will ein Treeview machen, was bisher auch gut klappt.
Das Problem:

Vom Unterelement wird nur die ID angezeigt, nicht der Text der zu der ID gehört. Wie kann ich das am Besten realisieren?

Hier ein Bild:

Die Stelle im Code, die ausgebesser gehört ( Suppliername und Customername, bisher wird nur die ID angezeigt ).

tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _
rstSupplierCustomer!Suppliername & "/" _
& rstSupplierCustomer!Customername
rstSupplierCustomer.MoveNext

etwas mehr vom Code:

...

Private Sub Form_Load()

Dim db As DAO.Database
Dim rstComponent As DAO.Recordset2
Dim rstSupplierCustomer As DAO.Recordset2
Dim objNode As MSComctlLib.Node

Set db = CurrentDb
Set rstComponent = db.OpenRecordset("tbl_Component")
objTreeView.Nodes.Clear
Do While Not rstComponent.EOF
Set objNode = objTreeView.Nodes.Add(, , "Component" _
& rstComponent!ComponentID, rstComponent!ComponentName)
Set rstSupplierCustomer = db.OpenRecordset("SELECT * FROM " _
& "tbl_SupplierCustomer WHERE ComponentIDx = " & rstComponent!ComponentID)
Do While Not rstSupplierCustomer.EOF

objTreeView.Nodes.Add "Component" & rstComponent!ComponentID, _
tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _
rstSupplierCustomer!Suppliername & "/" _
& rstSupplierCustomer!Customername
rstSupplierCustomer.MoveNext
Loop
rstComponent.MoveNext
Loop
Set objNode = Nothing
rstComponent.Close
rstSupplierCustomer.Close
Set rstComponent = Nothing
Set rstSupplierCustomer = Nothing
Set db = Nothing
End Sub

Danke schonmal, für Tipps
lg

NeoKortex · Newbie Anmeldedatum: 20.09.2011 Beiträge: 4

Hab das jetzt mal ausgebessert,
prob: er kennt natürlich tbl_Component und rstComponent!ComponentID nicht... fufufu

Set objNode = objTreeView.Nodes.Add(, , "Component" _
& rstComponent!ComponentID, rstComponent!ComponentName)
Set rstSupplierCustomer = db.OpenRecordset("SELECT * FROM " _
& "tbl_SupplierCustomer WHERE ComponentIDx = " & rstComponent!ComponentID)
Do While Not rstSupplierCustomer.EOF

Set trol = db.OpenRecordset("SELECT tbl_Supplier.SupplierName FROM tbl_Supplier inner join tbl_SupplierCustomer on tbl_Supplier.SupplierID = tbl_SupplierCustomer.Suppliername inner join tbl_Component on tbl_SupplierCustomer.ComponentIDx = rstComponent!ComponentID;")
Set rofl = db.OpenRecordset("SELECT tbl_Customer.CustomerName FROM tbl_Customer inner join tbl_SupplierCustomer on tbl_Customer.CustomerID = tbl_SupplierCustomer.Customername inner join tbl_Component on tbl_SupplierCustomer.ComponentIDx = rstComponent!ComponentID;")
objTreeView.Nodes.Add "Component" & rstComponent!ComponentID, _
tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _
trol!Suppliername & "/" _
& rofl!Customername
rstSupplierCustomer.MoveNext

NeoKortex · Newbie Anmeldedatum: 20.09.2011 Beiträge: 4

Fehlermeldung sagt, ihm fehlt ein Operator

NeoKortex · Newbie Anmeldedatum: 20.09.2011 Beiträge: 4

Jetzt so probiert:

Do While Not rstSupplierCustomer.EOF

Set trol = db.OpenRecordset("SELECT tbl_Supplier.SupplierName FROM tbl_Supplier where tbl_Supplier.SupplierID = " & rstSupplierCustomer!Suppliername & " where " & rstSupplierCustomer!ComponentIDx & " = " & rstComponent!ComponentID)
Set rofl = db.OpenRecordset("SELECT tbl_Customer.CustomerName FROM tbl_Customer where tbl_Customer.CustomerID = " & rstSupplierCustomer!Customername & " where " & rstSupplierCustomer!ComponentIDx & " = " & rstComponent!ComponentID)
objTreeView.Nodes.Add "Component" & rstComponent!ComponentID, _
tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _
trol!Suppliername & "/" _
& rofl!Customername
rstSupplierCustomer.MoveNext
Loop
rstComponent.MoveNext
Loop