7 replies to this topic

[Piano]

Olá,

Estou tentando fazer um banco de dados com ASP. Gostaria que ao exibir uma tabela com as informações retiradas do Banco de Dados do Access, uma checkbox fosse checked caso o valor do campo fosse Sim e vazia caso fosse Não, pois o tipo de dados referente ao campo é Sim/Não.

Obrigado.

[DarkSign]

Use a Pesquisa. Achei essa resposta e é só adaptar.

claro,
e essa checkbox habilitava a função inadimplencia, quando marcada ela deveria bloquear a criação de pedidos. Quando você pede para uma checkbox gravar o seu valor no bd quando ela está habilitada (checked) ela grava o valor "on" sem aspas no bd. Quando desmarcada (unchecked) ela não grava nda.
Então o que fiz foi uma consição if que segue abaixo

if response.write rs("inadi") = "on"
response.redirect("cod_abrecliente.asp?msg=Cadastro de pedidos bloqueados, cliente com pendências financeiras."
end if

OBS: Não coloquei uma função else pois se estiver desmarcada ela grava um valor NULL então para simplificar fiz apenas assim, caso o valor seja num o codigo passa para a pagina de pedidos normalmente.

Ou seja, se você leu e entendeu, o BD irá gravar ON para SIM e NULL para NÃO, bastando então fazer um IF simples como descrito pelo colega.

Ae, com esse IF em ASP, você checa ou não o checkbox em html.

Ex.

<%if rs("booleano") = "on"%>
<input type="checkbox" name="booleano" checked>
<%else%>
<input type="checkbox" name="booleano">
<%end if%>

Observe que mesclei HTML com ASP sem utilizar response.write. Você pode fazer da maneira que preferir.

[DeeK]

SQL = "Select Status From Tabela Where Codigo = 1"

Set Rs = Server.CreateObject("ADODB.RecordSet")



Rs.Open Sql, Conexao, 3, 3



IF Rs("Status") = "Sim" Then

   Checked = "checked = checked"

End If



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

[DarkSign]

Caso use a solução acima, trocar

Checked = "checked = checked"

por

Checked = "checked"

a propriedade checked no HTML não é setada, basta colocá-la para a checkbox aparecer com o tick.

[Piano]

Tentei das duas maneiras, mas não funcionou. O que está errado?

<%
sql="SELECT * FROM andamento"
tabela.open sql,conexao,3,3
SetLocale("pt-br")
IF tabela("A1") = "Sim" Then
   A1 = "checked"
End If
while not tabela.eof
%>
<table width="20%" class="sample">
<tr><td>Contrato<td><%=tabela("Contrato")%>
<tr><td>A1<td><%="<input type='checkbox' value='Sim' name='A1'" & A1 & ">"%>

<%if tabela("A1") = "Sim" THEN%>
<input type="checkbox" name="A1" checked>
<%else%>
<input type="checkbox" name="A1">
<%end if%>

[DarkSign]

Como mencionado, troque "Sim" nessa instrução

<%if tabela("A1") = "Sim" THEN%>

por "on"

<%if tabela("A1") = "on" THEN%>

[Renan L. Queiroz]

Tenta algo como isso:

<%
    SetLocale("pt-br")

    sql = "select * from andamento"
    tabela.open sql, conexao, 3, 3
%>
    <table width="20%" class="sample">
        <tr>
            <td> Contrato <td>
            <td> A1 </td>
        </tr>
<%
        Dim check : check = ""
        While Not tabela.eof

            If tabela("A1") = "Sim" Then
                check = "checked"
            Else
                check = ""
            End If
%>
            <tr>
                <td><%=tabela("Contrato")%></td>
                <td><input type="checkbox" value="Sim" name="A1" <%=check%>></td>
            </tr>
<%
            tabela.movenext()
        Wend
%>
    </table>

[DarkSign]

Se todas as soluções propostas não resolveram, vasculhando mais um pouco a interwebz, localizei textos que dizem que o valor para "checado" da checkbox depende do que tu colocou no BD, na sua procedure de gravar os dados.

Isso que é trabalhar com o Access

Então, se você gravou algo como "Checado" e "não-checado" na sua SQL, é isso que deverá usar para testar.

Em suma, o Access deveria retornar "on" para o valor TRUE e NULL para o valor FALSE.

Poste o código que está usando para gravar seus campos no BD, isso pode ser útil.