Combo

[Sobrit]

alguém pode me dizer como funciona os combos??

Por exemplo numa tb de estados. Como eu faço para exibir os valores?

E como eu faço para guardar um valor num combo? Caso o usuario precise voltar na pagina

Por favor duvida urgente!!!!!!!!

[-#Alea#-]

Se você for carregar esse combo com dados de um banco exemplo,

tenho um banco com uma tabela produto e quero carregar um combo na hora que abre o site com todos os meus produtos.

<select name="produto">

<% dim Rs

dim Sql

sql = "select nome from produto "

set Rsp = conexao.execute(Sqlp) %>

<option value="0">Produtos</option>

<%

Do Until Rsp.EOF

%>

<option value="<%=trim(rsp("nome"))%>"><%=trim(Rsp("nome"))%></option>

<%

Rsp.MoveNext

Loop

Rsp.close

Set Rsp = nothing

%>

</select>

Espero ter ajudado.

-#Alea#-

[-#Alea#-]

Só corrigindo a primeira variável é

dim Rsp

e não

dim Rs

Desculpa.

-#Alea#-

[Sobrit]

OK. Valeu deu certo + quando ele encontra um espaço ele para.

Ex: Se escrevo Ensino Fundamental ele mostra ensino fundamental + so grava ensino.

Qualquer palavra depois do espaco ele elimina.

Como tiro isto?

Não sei da pra tirar com replace + eu não sei usar replace.

O codigo q estou usando é este eu fiz algumas alterações

<%

set rs=server.CreateObject("adodb.recordset")

consulta = "SELECT * FROM formacao "

Set rs = conexao.Execute(consulta)

response.Write "<select name='fNivel1'>"

response.Write "<option selected value="&fNIvel1_form&">"&fNIvel1_form&"</option>"

Do while Not rs.Eof

fNivel1= rs("fNivel")

response.write "<option value="&fNivel1&">"&fNivel1&"</option>"

rs.movenext

loop

rs.close

set rs=nothing

response.Write "</select>"

%>

[-#Alea#-]

Não testei mas tenta assim.

fNivel1= trim(rs("fNivel"))

[Sobrit]

Mas se eu usar TRIM ele não vai aceitar os espaço e ai?

[-#Alea#-]

Tenho essa função em um trabalho aqui e pucha nomes com espaço, tenta meu.

[Sobrit]

da uma olhada.

   Set rs = conexao.Execute(consulta)
        response.Write "<select name='fNivel1'>"
        response.Write "<option selected value="&fNIvel1_form&">"&fNIvel1_form&"</option>"
        Do while Not rs.Eof
      fNivel1=trim(rs("fNivel"))
      response.write "<option value="&fNivel1&">"&fNivel1&"</option>"
      rs.movenext
      loop
      rs.close
      set rs=nothing
      response.Write "</select>"
%>

Veja se eu coloquei no lugar certo?

porque não deu certo assim.

[-#Alea#-]

Continua parando no espaço??

putz que estranho...

como você cadastrou no banco?

[Sobrit]

Oh. Eu fiz de outra maneira e deu certo.

Agora o problema é q eu preciso guardar valores no combo , caso o ususario precise voltar à pagina para não ter q selecionar td d novo.

Eu teno este codigo + ta duplicando o campo selecionado.

Da uma olhada ai

<select name="fNivel1" id="select2"><%
      set rs=server.CreateObject("adodb.recordset")
      consulta = "SELECT * FROM formacao "
      Set rs = conexao.Execute(consulta)
      Dim strAuxiliar
      strAuxiliar = "<option value="&fNivel1_form&" selected>"&fNivel1_form&"</option>"
      do while not rs.EOF
      strAuxiliar = strAuxiliar & "<option value=""" & rs("fNivel") & """ " & vbCrLf
      If Request.QueryString("fNivel") = rs.Fields("fNivel") Then strAuxiliar = strAuxiliar & "selected=""selected"""
      strAuxiliar = strAuxiliar & ">" & rs("fNivel") & "</option>"
      rs.movenext
      loop
      rs.close
      Response.Write(strAuxiliar)%>

Alguma sugestão?

[ursolouco]

Oh. Eu fiz de outra maneira e deu certo.

Agora o problema é q eu preciso guardar valores no combo , caso o ususario precise voltar à pagina para não ter q selecionar td d novo.

Eu teno este codigo + ta duplicando o campo selecionado.

Da uma olhada ai

CODE 

<select name="fNivel1" id="select2"><%

  set rs=server.CreateObject("adodb.recordset")

  consulta = "SELECT * FROM formacao "

  Set rs = conexao.Execute(consulta)

  Dim strAuxiliar

  strAuxiliar = "<option value="&fNivel1_form&" selected>"&fNivel1_form&"</option>"

  do while not rs.EOF

  strAuxiliar = strAuxiliar & "<option value=""" & rs("fNivel") & """ " & vbCrLf

  If Request.QueryString("fNivel") = rs.Fields("fNivel") Then strAuxiliar = strAuxiliar & "selected=""selected"""

  strAuxiliar = strAuxiliar & ">" & rs("fNivel") & "</option>"

  rs.movenext

  loop

  rs.close

  Response.Write(strAuxiliar)%>

Alguma sugestão?

Brother!!!

Session ajudaria ?

Uma vez aberta a session, você pode instacia-la novamente na pagina anterior ou ultiliza-la futuramente.

Abraços!!

[Sobrit]

eu to usando session mas não sei onde coloca-la no codigo.