Visual Basic - TreeView

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

TreeView

Publicado por Claudio (4 intervenciones) el 18/09/2013 18:33:32
Que tal amigos,
La verdad es que no puedo comprender bien como funciona este control, a ver si alguien me puede dar una manito.... tengo tres tablas: PABELLON, SECTOR, HABITACION, lo que deseo es armar jerárquicamente :
PABELLON
SECTOR
HABITACION

Directamente desde las tablas... mi código es el siguiente:

Public Sub IniciarConexion()
On Error Resume Next

Set cn = New ADODB.Connection
With cn
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb" & ";Persist Security Info=False"
End With

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient

.Open "select * From PABELLON", cn, adOpenStatic, adLockReadOnly

End With

While Not rs.EOF

TreeView1.Nodes.Add , , "_" & CStr(rs!NroPabellon), rs!descripcion, CStr(rs!descripcion)
rs.MoveNext
Wend

rs.Close

rs.Open "select * From SECTOR", cn, adOpenStatic, adLockReadOnly


While Not rs.EOF

TreeView1.Nodes.Add "_" & CStr(rs!NroPabellon), tvwChild, , rs!Sector, "item"
rs.MoveNext
Wend

rs.Close

rs.Open "select * From HABITACION", cn, adOpenStatic, adLockReadOnly

While Not rs.EOF

TreeView1.Nodes.Add "_" & CStr(rs!IdSector), tvwChild, , rs!NumHabit, "item1"

rs.MoveNext
Wend

If rs.State = adStateOpen Then
rs.Close
End If
Set rs = Nothing

End Sub

Con esto logro esto

PABELLON
SECTOR.... Pero no sé por qué no logro que luego jerárquicamente me coloque las habitaciones de acuerdo al sector, me las coloca al mismo nivel de sector... y todas corridas sin discrimar el sector ( es decir cada habitación dentro de su sector).

Estoy seguro que no debe ser algo muy grosero... pero no logro entender qué estoy haciendo mal!!!!

Gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

TreeView

Publicado por Claudio (9 intervenciones) el 24/09/2013 16:55:56
Gracias a todos de todas formas!!... al final lo resolví así, por si a alguno le sirve...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Public Sub IniciarConexion()
    On Error Resume Next
 
    Set cn = New ADODB.Connection
    With cn
        .CursorLocation = adUseClient
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
              App.Path & "\db1.mdb" & ";Persist Security Info=False"
    End With
 
    Set rs = New ADODB.Recordset
    With rs
        .CursorLocation = adUseClient
 
        .Open "select * From PABELLON", cn, adOpenStatic, adLockReadOnly
 
    End With
 
    While Not rs.EOF
 
        TreeView1.Nodes.Add , , "_" & CStr(rs!NroPabellon), rs!descripcion, CStr(rs!descripcion)
        rs.MoveNext
    Wend
 
    rs.Close
 
    rs.Open "select * From SECTOR", cn, adOpenStatic, adLockReadOnly
 
 
    While Not rs.EOF
 
        TreeView1.Nodes.Add "_" & CStr(rs!NroPabellon), tvwChild, "1" & CStr(rs!Sector), rs!Sector, "item"
        rs.MoveNext
    Wend
 
    rs.Close
 
    rs.Open "select * From HABITACION", cn, adOpenStatic, adLockReadOnly
 
    While Not rs.EOF
 
        TreeView1.Nodes.Add "1" & CStr(rs!Sector), tvwChild, , rs!NumHabit, "item1"
 
        rs.MoveNext
    Wend
 
 
 
 
    If rs.State = adStateOpen Then
        rs.Close
    End If
    Set rs = Nothing
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar