AJUDA COM TREEVIEW

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

AJUDA COM TREEVIEW

ASP CLASSICO

 Compartilhe  Compartilhe  Compartilhe
#427089 - 06/08/2013 16:02:40

JPTNETO
BRASILIA
Cadast. em:Setembro/2012


Boa tarde galera,
Vi um treeview com CSS aqui e editei pra fazer um dinamico em asp.
Funcionou mas ficou MUITO lento. Pensei em talvez fazer com array, ou sei lá.
Alguém pode ajudar? Dar uma dica?

<div class="css-treeview">
    <ul>
        <li>
            <%strSQL = "Select codProc, nomProc from processos where codProc="&numProc&";"
                set Rs = cnnDB.Execute(strSQL)%>
            <input type="checkbox" checked id="<%=Rs("codProc") %>" /><label for="<%=Rs("codProc") %>"><%=Rs("nomProc") %></label>
            <%set Rs = nothing %>
            <ul>

                <%  strSQL = "select nomElemento, numElemento from elementos where numProcesso="&numProc&" and tipoElemento='Raias';"
                        set RsRaia = server.CreateObject("ADODB.RecordSet")
                        RsRaia.Open strSQL, cnnDb
                        if not RsRaia.EOF then
                            do until RsRaia.EOF%>
                <li>
                    <input type="checkbox" checked id="<%=RsRaia("numElemento")%>" /><label for="<%=RsRaia("numElemento")%>"><%=RsRaia("NomElemento") %></label>
                    <ul>
                        <%  strSQL = "select nomElemento, numElemento from elementos where numProcesso="&numProc&" and tipoElemento='Tarefa' and elementoPai = '"&RsRaia("numElemento")&"';"
                                set Rs = server.CreateObject("ADODB.RecordSet")
                                Rs.Open strSQL, cnnDB
                                if not Rs.EOF then
                                    do until Rs.EOF
                        %>
                        <li>
                            <input type="checkbox" checked id="<%=RS("numElemento")%>" /><label for="<%=RS("numElemento") %>"><%=Rs("NomElemento") %></label>
                            <ul>
                                <%  strSQL = "Select nomElemento, numElemento from elementos where numProcesso="&numProc&" and tipoElemento='Executante' and elementoPai='"&Rs("numElemento")&"';"
                                    set RsExec = server.CreateObject("ADODB.RecordSet")
                                    RsExec.Open strSQL, cnnDB
                                    if not RsExec.EOF then
                                        do until RsExec.EOF%>
                                <li>
                                    <input type="checkbox" checked id="<%=RsExec("numElemento") %>" /><label for="<%=RsExec("numElemento")%>"><%=RsExec("NomElemento") %></label>
                                    <%          RsExec.MoveNext
                                        loop
                                    end if
                                    set RsExec = nothing %>
                                </li>
                            </ul>
                        </li>
                        <%              Rs.MoveNext
                                    loop
                                end if                            
                                set Rs = nothing %>
                    </ul>
                    <%          RsRaia.MoveNext
                            loop
                        end if
                        set RsRaia = nothing
                    %>
                </li>
            </ul>
        </li>
    </ul>
</div>



#427091 - 06/08/2013 16:10:36

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
O problema é a estrutura de suas tabelas. Pelo modo como elas estão, você tem que fazer muitas consultas...

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


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


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário