VBA to Populate Excel Userform Treeview from MS SQL

[bhalbach]

I can not seem to figure this out, can someone assist please.

I have a userfrom in excel that has a treeview, I am trying to populate the treeview with a recordset from ms sql using ADO.

I have managed to populate the Parent Nodes but have not been able to figure out how to populate the child nodes. Everything with the connection to the database and getting a recordset returned seems to be working as I do get the parent nodes to populate.

I am a rookie in vba and have been able to eventually figure things out with google and youtube, but I am stuck on this one...cant find much online related to what I am trying to do.

I have tried the following code and I get a error " Error number = 2147257114 Invalid object"

This is the first time I have tried using treeview.

All assistance would be greatly appreciated.

    Me.TreeView1.Nodes.Clear
    
    'load Treeview
    Do While Not rs.EOF
    
        Me.TreeView1.Nodes.Add = rs.Fields.Item("BidItemNo")
        Me.TreeView1.Nodes.Add rs.Fields.Item("BidItemNo"), tvwChild, rs.Fields.Item("BidItemDescription"), rs.Fields.Item("BidItemDescription")

        
    rs.MoveNext
    Loop

 

[bhalbach]

When you put the cursor over Tag (in the same line) what does it say?

Me.Treeview.selecteditem.tag=“”

 

[shknbk2]

So then it is not getting the Tag from the currently selected node. What happens if you put Me.Treeview.selecteditem.Text instead? Step through the code and don't let it run past that line, but see if the selected node's text comes through. If not, are you sure there is a selected node?

 

[bhalbach]

So then it is not getting the Tag from the currently selected node. What happens if you put Me.Treeview.selecteditem.Text instead? Step through the code and don't let it run past that line, but see if the selected node's text comes through. If not, are you sure there is a selected node?

It gives me the text of the item I selected. The selection seems to be working

 

[shknbk2]

Step through the tree generation again. After the line executes for setting the n.Tag of the node with the issue, put the cursor over n.Tag to see if it got assigned the value you expect.

 

[bhalbach]

Step through the tree generation again. After the line executes for setting the n.Tag of the node with the issue, put the cursor over n.Tag to see if it got assigned the value you expect.

N.tag has 6 values as I expect separated by a , comma

 

[shknbk2]

Well, without being able to go through the code and data myself, I'm out of ideas. It seems like the tag is getting set correctly and that the selecteditem.Text is correct, but the selecteditem.Tag is blank, which it shouldn't be because you just confirmed it is assigned correctly.

 

[bhalbach]

Step through the tree generation again. After the line executes for setting the n.Tag of the node with the issue, put the cursor over n.Tag to see if it got assigned the value you expect.

Would it have something to do with “BIN”

Well, without being able to go through the code and data myself, I'm out of ideas. It seems like the tag is getting set correctly and that the selecteditem.Text is correct, but the selecteditem.Tag is blank, which it shouldn't be because you just confirmed it is assigned correctly.

Do you want me to send the file and database to you.

 

[shknbk2]

Do you want me to send the file and database to you.

Sure, if nothing is proprietary or not for public viewing.

 

[bhalbach]

Sure, if nothing is proprietary or not for public viewing.

Nothing important in it yet. Just developing.

Link: TreeviewShare

 

[bhalbach]

Sure, if nothing is proprietary or not for public viewing.

Forgot to mention…use 56 for the EstimateNo textbox on the form, that’s the data.