[Resolvido] Consulta BD e retornar checkbox marcados

[gamefe 0]

Bom dia pessoal! Já procurei em vários locais, tentei adaptar mas não funcionou.

 

No banco de dados, possuo vários campos onde estão sempre 2 valores. Ou o nome "SIM" ou em branco.

 

Então faço assim:

 

Realizo uma busca que retorna um resultado apenas. Lista todos os dados do formulário de texto e agora preciso que deixe marcado ou não o campo de checkbox.

 

Estou utilizando o seguinte código:

 

<%


dim P14_16_12, P16_18_13, P19_21_12

P14_16_12 = Request.QueryString("P14_16_12")
P16_18_13 = Request.QueryString("P16_18_13")
P19_21_12 = Request.QueryString("P19_21_12")
            
 If P14_16_12 = "checkbox"   then 
        P14_16_12 = 1 
 else
        P14_16_12 = 0
 end if
                  
 If P16_18_13 = "checkbox"   then 
        P16_18_13 = 1 
 else
        P16_18_13 = 0
 end if

 If P19_21_12 = "checkbox"   then 
        P19_21_12 = 1 
 else
        P19_21_12 = 0
 end if
                  
%>

E depois para marcar ou deixar desmarcado, o seguinte código:

 

<%If P16_18_12 = True Then

         P16_18_12 = "checked"
         
Response.Write("<input type='checkbox' name='P16_18_12' value='checkbox' "& P16_18_12 & ">")

else

   Response.Write("<input type='checkbox' name='P16_18_12' value='checkbox' "& P16_18_12 & ">")
End If
%>

Só que não aparecem marcados os checkbox nem dá erro.

 

Alguém poderia me ajudar por favor?

 

Grato,

 

Gabriel

[Patrique 0]

Velho mais no seu code aonde faz a marcação pelo checkbox é requisitado esta variavel

 

P16_18_12

 

Mais no seu code de checagem esta como P16_18_13

[gamefe 0]

Velho mais no seu code aonde faz a marcação pelo checkbox é requisitado esta variavel

 

P16_18_12

 

Mais no seu code de checagem esta como P16_18_13

 

Patrique, realmente estava errado, mas agora arrumei e continua sem aparecer corretamente.

 

<%
Set objConn =  Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=e:/home/teste/dados/bd.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "SELECT * From inscricoes Where cpf = '"&RecebeCPF&"' "

Set ObjRs = objConn.Execute(strQuery)

if Not ObjRs.EOF then

dim P14_16_12, P16_18_12, P19_21_12

P14_16_12 = Request.QueryString("P14_16_12")
P16_18_12 = Request.QueryString("P16_18_12")
P19_21_12 = Request.QueryString("P19_21_12")
            
 If P14_16_12 = "checkbox"   then 
        P14_16_12 = 1 
 else
        P14_16_12 = 0
 end if
                  
 If P16_18_12 = "checkbox"   then 
        P16_18_12 = 1 
 else
        P16_18_12 = 0
 end if

 If P19_21_12 = "checkbox"   then 
        P19_21_12 = 1 
 else
        P19_21_12 = 0
 end if
                  
%>

E depois

 

<%If P14_16_12 = True Then

         P14_16_12 = "checked"
         
Response.Write("<input type='checkbox' name='P14_16_12' value='checkbox' "& P14_16_12 & ">")

else

   Response.Write("<input type='checkbox' name='P14_16_12' value='checkbox' "& P14_16_12 & ">")
End If
%>

Não aparece nenhum erro, somente não funciona.

 

Alguém poderia me ajudar?

 

Grato,

 

Gabriel

[xanburzum 169]

tenta...

response.write "<input type='checkbox' name='P14_16_12'" 
		if If P14_16_12 = True Then Response.Write("checked")
		response.write "value='checkbox' " & P14_16_12 &">"

[Patrique 0]

Mano testei aqui o problema esta acontecendo por causa do 0 e 1 que não estão sendo tratados como true ou false, troque estes numeros po true ou false ou coloque numeração no if e else que ira dar certo.

[xanburzum 169]

exatamente, você seta eles acima como 1 ou 0 e

depois xama

If P14_16_12 = True Then

P14_16_12 = "checked

[gamefe 0]

Pessoal! Valeu!

 

Na verdade fiz as correções que vocês tinham me passado, e por fim troque o "checkbox" por "SIM"

 

If P14_16_12 = "checkbox"   then

Aí funcionou perfeitamente!

 

Valeu galera!

[xanburzum 169]

parabens...

tópico resolvido...

[Patrique 0]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif isso ae mano.