marcar checkbox com outro recordset

Question

Galera, estou precisando de uma luz....

eu tenho uma pagina onde eu carrego varios checkbox com dados de um recordset(rsAcoes) e nessa mesma pagina eu tenho que marcar esses checkbox com dados que eu trago de outro recordset(rsAcoesPerfil).

<%if rsAcoes.RecordCount > 0 then%>   

<%While (not rsAcoes.EOF)%>

            <div id="criarperfil_ckacoes">

<input type="checkbox" id="grupoperfilacao" name="grupoperfilacao" value="<%=rsAcoes("codacao")%>"

<%if rsAcoesPerfil("codacao") = rsAcoes("codacao") then Response.Write("checked")%>><%=rsAcoes("descricaoacao")%>

           </div>

        <%rsAcoes.MoveNext()
        wend%>
<%end if%>
dessa forma ela marca apernas um checkbox, tentei de outras formas usando while, for each e só consegui um loop eterno.....rsrs...se eu pude ser claro quanto a minha dúvida, alguem poderia me dar uma ideia?

abraço

Answer 1

Geovani já tentou da forma abaixo:

 

<%if rsAcoes.RecordCount > 0 then%>   
     <%While (not rsAcoes.EOF)%>
            <div id="criarperfil_ckacoes">
                  <input type="checkbox" id="grupoperfilacao" name="grupoperfilacao" value="<%=rsAcoes("codacao")%>"

                       <%

      Do while not rsAcoesPerfil.EOF

                              if rsAcoesPerfil("codacao") = rsAcoes("codacao") then

                                   Response.Write("checked")

                              end if

                              rsAcoesPerfil.movenext

                          loop

                        %>

                  >

<%=rsAcoes("descricaoacao")%>
</div>

<%

rsAcoes.MoveNext()
wend

end if

%>

 

 

Abraços

 

Estevam

Answer 2

Estevam, eu havia tentado usando só o rsAcoesPerfil.movenext junto com o rsAcoes.MoveNext() ....chegou atá a funcionar, mas apenas quando todos os itens estavam marcados, quando exitiam apenas alguns ou nenhum item marcado dava erro de pagina.

Da forma que você passou não funcionou, quando tinha todos os itens marcados ele marcava apenas um item, quando tinha apenas alguns não marcava nehum e quando não tinha itens, dava erro na pagina.

Para todos esse erros aparece a mesma mensagem:
Tipo de erro:
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Se você ou alguem tiver outra idéa, to aceitando....rsrs....enquanto isso eu vou tentando aqui...

obrigado

Answer 3

bom, enquanto ninguem me response, eu vou colando umas tentativas aqui...

Resolvi transformar um recordset em array e usar um for each para testar cada item, mas quanto ha itens não é marcado nenhum checkbox, mas quando não exite item da erro na pagina.
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.


segue o código
      <%if rsAcoes.RecordCount > 0 then%>   
            <%While (not rsAcoes.EOF)%>
            <div id="criarperfil_ckacoes">
                <input type="checkbox" id="grupoperfilacao" name="grupoperfilacao" value="<%=rsAcoes("codacao")%>"   
                <%//transforma o rsAcoesPerfil em array
                Do while not rsAcoesPerfil.EOF
                    mystring = mystring & rsAcoesPerfil("codacao")&", "
                    rsAcoesPerfil.MoveNext()
                loop
                myarray = Split(mystring, ", ")%>   
                <%//marca os checkbox
                for each myitem in myarray
                    if myitem = rsAcoes("codacao") then
                        Response.Write("checked")
                    end if
                next%>                   
                    ><%=rsAcoes("descricaoacao")%>
           </div>
        <%rsAcoes.MoveNext()
        wend%>
        <%end if%>

Answer 4

Geovani pelas informações que você passou tente desta forma:

 

<%if rsAcoes.RecordCount > 0 then%>   
     <%While (not rsAcoes.EOF)%>
            <div id="criarperfil_ckacoes">
                  <input type="checkbox" id="grupoperfilacao" name="grupoperfilacao" value="<%=rsAcoes("codacao")%>"

                       <%

                         rsAcoesPerfil.movefirst

                         if not rsAcoesPerfil.EOF then 

      Do while not rsAcoesPerfil.EOF

                              if rsAcoesPerfil("codacao") = rsAcoes("codacao") then

                                   Response.Write("checked")

                              end if

                              rsAcoesPerfil.movenext

                          loop

                         end if

                        %>

                  >

<%=rsAcoes("descricaoacao")%>
</div>

<%

rsAcoes.MoveNext()
wend

end if

%>

 

 

Observação.: Como voce esta abrindo o recordset?

 

Abraços

 

Estevam

Answer 5

Estevam, da forma que você postou agora funcionou, menos quando não ha itens, continua dando erro de pagina.

eu abro o recordeset dessa forma, tanto para rsAcoes quanto para rsAcoesperfil

Dim rsAcoesPerfil
set rsAcoesPerfil = server.CreateObject("ADODB.Recordset")
with rsAcoesPerfil
    .cursortype = 0
    .locktype = 1
    .cursorlocation = 3
    .activeconnection = MM_procon_STRING
end with

abraço

Answer 6

Geovani, creio que foi erro meu tente com o código abaixo:

 

<%if rsAcoes.RecordCount > 0 then%>   
     <%While (not rsAcoes.EOF)%>
            <div id="criarperfil_ckacoes">
                  <input type="checkbox" id="grupoperfilacao" name="grupoperfilacao" value="<%=rsAcoes("codacao")%>"

                       <%

                         if not rsAcoesPerfil.EOF then 

      Do while not rsAcoesPerfil.EOF

                              if rsAcoesPerfil("codacao") = rsAcoes("codacao") then

                                   Response.Write("checked")

                              end if

                              rsAcoesPerfil.movenext

                          loop

                          rsAcoesPerfil.movefirst

                         end if

                        %>

                  >

<%=rsAcoes("descricaoacao")%>
</div>

<%

rsAcoes.MoveNext()
wend

end if

%>

 

Abraços

 

Estevam

Answer 7

Estavam, continua dando erro quando o rs AcoesPerfil vem vazio.

Answer 8

Geovane, por favor, envie o erro e alinha na qual ele diz encontrar o erro.

 

Abraços

 

Estevam

Answer 9

Estevam, o erro não indica a linha, apenas aparece a mensagem: