title image


Smiley Re: Ich verzweifel hier langsam...
Hi, vielleicht hilft Dir das weiter...



Private Sub TreeviewFuellen()



Dim Baum As MSComctlLib.Treeview

Dim Knoten As MSComctlLib.Node

Dim cnn As ADODB.Connection

Dim rstStandorte As New ADODB.Recordset

Dim rstRaeume As New ADODB.Recordset

Dim rstBewohner As New ADODB.Recordset

Set cnn = CurrentProject.Connection

Set Baum = Me.ocxTreeview.Object

Baum.ImageList = ocxImageList.Object

rstStandorte.Open "qryAdresse", cnn, adOpenDynamic, adLockReadOnly

rstRaeume.Open "qryZimmer", cnn, adOpenDynamic, adLockReadOnly

rstBewohner.Open "qryBewohner", cnn, adOpenDynamic, adLockReadOnly

Do While Not rstStandorte.EOF

Baum.Nodes.Add Key:="a" & Format(rstStandorte!ID, "0000"), Text:=rstStandorte!Straße, Image:="Building"

rstStandorte.MoveNext

Loop

Do While Not rstRaeume.EOF

Baum.Nodes.Add Relative:="a" & Format(rstRaeume!Wohnheim, "0000"), Relationship:=tvwChild, Key:="b" & Format(rstRaeume!ID, "0000"), Text:=rstRaeume!Raum, Image:="Room"

rstRaeume.MoveNext

Loop

Do While Not rstBewohner.EOF

Baum.Nodes.Add Relative:="b" & Format(rstBewohner!Nutzungseinheit, "0000"), Relationship:=tvwChild, Key:="c" & Format(rstBewohner!ID, "0000"), Text:=rstBewohner!Nachname & ", " & rstBewohner!Vorname, Image:="Men"

rstBewohner.MoveNext

Loop





End Sub


Grüsse aus der Toscana Deutschlands
Timo

Eingesetzte Version: Access 2000

Bei Tipps bitte immer eine Erfolgs- oder Mißerfolgsmeldung posten!

Irren ist menschlich. Aber wenn man richtig Mist bauen will, braucht man einen Computer. (Dan Rather, CBS-Fernsehreporter)




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: