TABELA NO TREEVIEW
Boa tarde pessoal, estou com uma dúvida..andando em circulos e sem solução.
Tenho uma tabela t_categoria com 3 colunas.
id_categoria | categoria | departamento |
1 | caneta| materiais escolares|
E queria preencher um treeview da seguinte forma?
Departamento
- Categoria
Estou usando visual studio 2010 vb.net,e o banco é mysql 5.
O rotinha que estou usando e não esta dando certo é:
se alguem puder me ajudar agradeço desde já!
Tenho uma tabela t_categoria com 3 colunas.
id_categoria | categoria | departamento |
1 | caneta| materiais escolares|
E queria preencher um treeview da seguinte forma?
Departamento
- Categoria
Estou usando visual studio 2010 vb.net,e o banco é mysql 5.
O rotinha que estou usando e não esta dando certo é:
Dim myCON As New OdbcConnection([Ô]DRIVER={MySQL ODBC 5.1 Driver};SERVER=[Ô] & [Ô]localhost[Ô] & [Ô];PORT=3306[Ô] & [Ô];DATABASE=[Ô] & [Ô]bd01[Ô] & [Ô];UID=[Ô] & [Ô]root[Ô] & [Ô];PWD=[Ô] & [Ô]bd01[Ô] & [Ô];OPTION=3[Ô])
myCON.Open()
myCMD = New OdbcCommand([Ô]select * from t_categoria[Ô], myCON)
Dim adapter As New OdbcDataAdapter(myCMD)
Dim ds As New DataSet()
adapter.Fill(ds)
ds.Relations.Add([Ô]NodeRelation[Ô], ds.Tables(0).Columns([Ô]id_categoria[Ô]), ds.Tables(0).Columns([Ô]categoria[Ô]))
[ô]ds.Relations.Add([Ô]NodeRelation[Ô], ds.Tables(0).Columns([Ô]id_departamento[Ô]), ds.Tables(0).Columns([Ô]departamento[Ô]))
Dim dbRow As DataRow
For Each dbRow In ds.Tables(0).Rows
If dbRow.IsNull([Ô]departamento[Ô]) Then
Dim node As TreeNode = CreateNode(dbRow([Ô]Text[Ô]).ToString(), True, dbRow([Ô]departamento[Ô]).ToString())
menuesquerdatr.Nodes.Add(node)
RecursivelyPopulate(dbRow, node)
End If
Next dbRow
se alguem puder me ajudar agradeço desde já!
Faça seu login para responder