TREEVIEW - URGENTE PF

 Tópico anterior Próximo tópico Novo tópico

TREEVIEW - URGENTE PF

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#341019 - 05/05/2010 17:05:43



Cadast. em:


 Anexos estao visíveis somente para usuários registrados

Caros amigos, estou penando para preencher um treeview igual a imagem em anexo

Tenho a seguinte estrutura da tabela:

TABELA HORARIOS

CodMedico
DiaSemana
HoraIni
HoraFim

Alguem sabe como fazer isso ?

Vlw!



Resposta escolhida #341022 - 05/05/2010 17:15:40

XXXANGELSXXX
BELO HORIZONTE
Cadast. em:Setembro/2008


voce trabalha com DAO ou ADO?

No importa o que o mundo...O importante so seus sonhos!No importa o que voc ...O importante o que voc quer ser.
Dvida Sanada, encerre o tpico e pontue quem ajudou!!!


#341023 - 05/05/2010 17:21:23

XXXANGELSXXX
BELO HORIZONTE
Cadast. em:Setembro/2008


Ve se da para entender

Private Sub PreencheArvore()
    Dim i As Integer, j As Integer
    Dim Parent As Node
    Dim Child As Node
    Dim SQL1 As String
    Dim SQL2 As String
    OpenConnection
    
    SQL1 = []SELECT DISTINCT Genero FROM Amigos[]
    SQL2 = []SELECT * From Amigos[]
    
    With command
        .ActiveConnection = connection
        .CommandType = adCmdText
        .CommandText = SQL1
        Set recordset1 = .Execute
        .CommandText = SQL2
        Set recordset2 = .Execute
    End With
    cmdLimpar_Click
    
    
        If Not recordset1.BOF Then
        trVw.Nodes.Clear
        
            While Not recordset1.EOF
                i = 0: j = 0
                Set Parent = trVw.Nodes.Add(, , , recordset1![Genero], IIf(recordset1![Genero] = []Masculino[], 1, 2), IIf(recordset1![Genero] = []Masculino[], 1, 2))
                Parent.Expanded = True
                recordset2.MoveFirst
                While Not recordset2.EOF
                If recordset1![Genero] = recordset2![Genero] Then
                    Set Child = trVw.Nodes.Add(Parent.Index, tvwChild, []K[] + Str(recordset2![ID]), [][[] & IIf(recordset2![Sobrenome] = vbNull, recordset2![nome] & [] [] & recordset2![Sobrenome], recordset2![nome] & [] [] & recordset2![Sobrenome] & [] [] & recordset2![Apelido]) & []]  -  [[] & Format(recordset2![Nascimento], []Ddd dd Mmm,yyyy[]) & []]  -  [[] & recordset2![Telefone] & []][], IIf(recordset2![Genero] = []Masculino[], 1, 2), IIf(recordset2![Genero] = []Masculino[], 1, 2))
                    If recordset1![Genero] = []Masculino[] Then i = i + 1 Else j = j + 1
                End If
                
                 recordset2.MoveNext
                Wend
                 If recordset1![Genero] = []Masculino[] Then Parent.Text = Parent.Text & []  [[] & Trim(Str(i)) & []][] Else Parent.Text = Parent.Text & []  [[] & Trim(Str(j)) & []][]
                recordset1.MoveNext
            Wend
        End If
     CloseConnection
End Sub


No importa o que o mundo...O importante so seus sonhos!No importa o que voc ...O importante o que voc quer ser.
Dvida Sanada, encerre o tpico e pontue quem ajudou!!!


#341024 - 05/05/2010 17:21:43



Cadast. em:


Trabalho com DAO.

Vlw!



#341025 - 05/05/2010 17:23:21

XXXANGELSXXX
BELO HORIZONTE
Cadast. em:Setembro/2008


No vai mudar muito disso no. ok?

No importa o que o mundo...O importante so seus sonhos!No importa o que voc ...O importante o que voc quer ser.
Dvida Sanada, encerre o tpico e pontue quem ajudou!!!


#341026 - 05/05/2010 17:24:51



Cadast. em:


Cara,

to tentando mas nao to coseguindo entender nada... rsrsr

Vou continuar tentando.

Vlw pela ajuda de qq forma.





#341030 - 05/05/2010 17:36:32

XXXANGELSXXX
BELO HORIZONTE
Cadast. em:Setembro/2008


veja se consegue entender essa????

Dim db As Database
Dim rs As Recordset
Dim sSQL As String
Dim sTemp As String

Dim iTime1 As Variant
Dim iTime2 As Variant
Dim iTime As Variant
Sub LoadTree()
    caminho = ReadINI([]Geral[], []Caminho[], App.Path & []\Config.ini[])
    Set db = DBEngine.OpenDatabase(caminho)
    Set rs = db.OpenRecordset(sSQL)
    Do While Not rs.EOF
        On Error Resume Next
        Set nodTemp = TreeView1.Nodes.Add(, , []P[] & rs(0), CStr(rs(1)), []Dados[])
        rs.MoveNext
    Loop
    rs.Close
    db.Close
    iTime2 = Now()
    iTime = iTime1 - iTime2
    iTime = Format(iTime, []ss[])
End Sub

No importa o que o mundo...O importante so seus sonhos!No importa o que voc ...O importante o que voc quer ser.
Dvida Sanada, encerre o tpico e pontue quem ajudou!!!


#341031 - 05/05/2010 17:40:23



Cadast. em:


Car, continuo sem entender...

teria como vc me pssar um exmplo em cima da estrutura da tabela q postei ?

vlw!



#341038 - 05/05/2010 17:51:58



Cadast. em:


Cara, conseguir fazer.

Vlw mesmo pela ajuda...

sabe como fao para limpar o treeview ?

Vlw!



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por em 05/05/2010 19:54:54