USANDO O TREEVIEW

USUARIO.EXCLUIDOS 11/03/2005 22:21:27
#72507
como usar o treeview no vb5? como usa-lo para exibir dados de tabelas de um banco de dados accesss? sou iniciante no uso do controle. não entendo nada. teria de ser uma coisa explicadinha.

obrigado

deltanusigma
USUARIO.EXCLUIDOS 12/03/2005 04:40:29
#72517 Resposta escolhida
Tenho aqui o exemplo de código usado num programa meu.
No Load do Form coloco o seguinte código para criar os vários ramos do treeview:

Nodes = TreeView1.Nodes.Add(, , "SODIMM", "Sodimm", "TABELA")
Nodes = TreeView1.Nodes.Add("SODIMM", tvwChild, "2child1", "Activos", "OK")
Nodes = TreeView1.Nodes.Add("SODIMM", tvwChild, "2child2", "Danificados", "BAD")
Nodes = TreeView1.Nodes.Add("SODIMM", tvwChild, "2child3", "Em Reparação", "REPAIR")

No evento click do treeview coloco:
Private Sub TreeView1_Click()
Select Case TreeView1.SelectedItem.Key
Case "SODIMM"

rS.Open "SELECT Produto,Estado,Equipa,Data,Situação,Scrap FROM [SODIMM LOG] ORDER BY Ordem DESC", liGar, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rS
DataGrid1.Caption = "Todos os Registos de Produto SODIMM"

Case "2child1"
rS.Open "SELECT Produto,Estado,Equipa,Data FROM [SODIMM OK] ORDER BY Ordem DESC"
Set DataGrid1.DataSource = rS
DataGrid1.Caption = "Tabela de Produto SODIMM Activos"

Case "2child2"
rS.Open "SELECT Produto,Estado,Equipa,Data FROM [SODIMM BAD] ORDER BY Ordem DESC"
Set DataGrid1.DataSource = rS
DataGrid1.Caption = "Tabela de Produto SODIMM Danificados"

Case "2child3"
rS.Open "SELECT Produto,Estado,Equipa,Data FROM [SODIMM REPAIR] ORDER BY Ordem DESC"
Set DataGrid1.DataSource = rS
DataGrid1.Caption = "Tabela de Produto SODIMM em Reparação"
End Select
End Sub

E pronto….claro que antes tem a ligação ao banco de dados…o rS que vê no código é o recordset. Usei ADO.
Tópico encerrado , respostas não são mais permitidas
Voltar