Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Hugo Anselmo

[Resolvido] Problema ao Carregar dados do BD no select form com A

Por , em ASP Clássico

Recommended Posts

Hugo Anselmo    4

Hugo Anselmo
Postado

Preciso carregar os dados do banco de dados dentro do select form.

 

Sei que geralmente isso é feito usando o Ajax, acontece que como não conheço muito o Ajax estou fazendo no próprio código.

 

O problema que surgiu: Existem dois select no código que funcionam corretamente apenas se estiverem sozinhos.

 

Como está, funciona apenas o primeiro id="acesso", e o outro id="acesso2" fica invisível na tela, para ele aparecer preciso excluir o id"acesso".

 

Percebam que o código está correto porque ambos, isoladamente, funcionam corretamente.

 

Acredito que seja algum problema de lógica mas não consigo descobrir qual é.

 

<!--#include file="conexao.asp"-->
<%

Response.Charset="ISO-8859-1"


%>

<html>
<head><title>teste</title>
<link rel="stylesheet" href="estilo.css" type="text/css" media="screen,projection"/>
</head>
<body>
<div id="corpo">
<form>
<div id="corpo_left">
<strong>Carro:</strong>
<label>
<select id="acesso" name="acesso">
<option value="0"></option>
<%
                        sql = "select nome from categoria" 
                        set objRSacesso = Conn.Execute(sql)
                        while not objRSacesso.EOF
                                   
                                   if CStr(nome) = Cstr(objRSacesso("nome")) then
                                               selected = "selected"
                                   else
                                               selected = ""
                                   end if
                        %>
<option value="<%Response.Write(objRSacesso("nome"))%>" <%=selected%>><%=objRSacesso("nome")%></option>
<%
                                               objRSacesso.MoveNext
                        wend
                                   
                        objRSacesso.close
                        set objRSacesso = nothing                              
                        %>
</select>
 </label>
 </div>
 
<div id="corpo_right">
<strong>Marca:</strong>
<label>
<select id="acesso2" name="acesso2">
  <option value="0"></option>
  <%
                        sql = "select data from categoria" 
                        set objRSacesso2 = Conn.Execute(sql)
                        while not objRSacesso2.EOF
                                   
                                   if CStr(data) = Cstr(objRSacesso2("data")) then
                                               selected = "selected"
                                   else
                                               selected = ""
                                   end if
                        %>
  <option value="<%Response.Write(objRSacesso2("data"))%>" <%=selected%>><%=objRSacesso2("data")%></option>
  <%
                                               objRSacesso2.MoveNext
                        wend
                                   
                        objRSacesso2.close
                        set objRSacesso2 = nothing                              
                        %>
</select>
</label>
</div>
</form>
</div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele esta gerando algum erro ???

 

desculpe, mas não entendi muito bem o que quer, porfavor especifique mais..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Faz o seguinte fera;

set rs = con.excute("SELECT * FROM TB_ESTADOS")
<form method="post" action="" name="form">
<select name="select">
<%
while rs.eof = false
%>
<option value="<%=rs("ESTADO")%>"><%=rs("ESTADO")%></option>
<%
rs.movenext
wend
%>
</select>
</form>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Hugo Anselmo    4

Hugo Anselmo
Postado

Resolvido

 

O problema estava no if que montei, retirei ele e ficou ok.

 

Obrigado Gilberto Jr depois da sua resposta eu consegui visualizar melhor o problema.

 

 if CStr(nome) = Cstr(objRSacesso("nome")) then 
                                               selected = "selected" 
                                   else 
                                               selected = "" 
                                   end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ok

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito