Jump to content


Photo

Combo


  • Faça o login para participar
9 replies to this topic

#1 Qwert133

Qwert133

    Normal

  • Usuários
  • 89 posts
  • Sexo:Não informado

Posted 12/06/2004, 22:18

Pessoal eu to com um probleminha, eu tenho um codigo:

<select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario>
<option value=""></option>
<%
aqui tem o codigo asp que puxa do banco
%>
</select>

Onde esse script ele atualiza a pagina e no endereço do browse fica assim: nome_do_arquivo.asp?turma=teste
__

O unico problema é o seguinte, ele atualiza e deixa esse endereço no browse, mas o combo perde o valor, fica em branco novamente, pois a pagina atualizou quando selecionou o combo,

unica coisa queeu quero fazer é com que quando ele atualize ele volte com o mesmo valor;

VLW;

#2 Troyan

Troyan

    12 Horas

  • Usuários
  • 285 posts
  • Sexo:Não informado
  • Localidade:Mesquita, Rio de Janeiro - Brasil
  • Interesses:Sou programador ASP, PHP, Javascript e ActionScript, além de ser curioso em JSP, ColdFusion e XSL. Trabalho com XML, XHTML, adoro webstandards e a W3C. Também trabalho com tableless e RIA's.<br><br> Formas de contato:<br> Email: dnunes[at]gmail[dot]com<br> ICQ: 68102402<br> MSN: troyandev@hotmail.com<br><br> -------------------------------------<br> - Rio de Janeiro, Brazil<br> - Troyan

Posted 13/06/2004, 03:09

Você precisa fazer uma checagem pra ver qual é o valor..

<? $slct=' selected="selected"';

<select style="width: 350px" name="turma" onchange="self.location.href+=((self.location.href.indexOf('?') != -1)?'&':'?')+"turma"+this.options[this.selectedIndex].value;" class="campos_formulario">
<option value="bla"<?=($_REQUEST['turma']=='bla')?$slct:''?>>Texto</option>
<option value="teste"<?=($_REQUEST['turma']=='teste')?$slct:''?>>Texto</option>
</selected>


Talvez tenha algum erro nesse código, mas a idéia é essa,

[]s
~~ ~
diego nunes
web engineer

~ ~~

#3 Qwert133

Qwert133

    Normal

  • Usuários
  • 89 posts
  • Sexo:Não informado

Posted 13/06/2004, 11:05

Kr isso é PHP.

Eu queria em ASP; (y)

#4 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 13/06/2004, 16:21

Kr isso é PHP.

Eu queria em ASP; (y)



<select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario>
<%
  do until rs.eof
    if request("turma") = rs("turma") then 
     strSelect = " selected"
    else
     strSelect = ""
    end if
%>
<option value="<%=rs("turma") & strSelect %>"><%=rs("texto")%></option>
<%
  rs.movenext
  loop
%>
</select>


Num sei como q tah seu loop..ajeita u codigo aew .. mas achu q issu deve funciona..

Qaulquer coisa.. tamos ai :)

Edição feita por: hdz*, 13/06/2004, 16:21.

MCAD, MCP

#5 Qwert133

Qwert133

    Normal

  • Usuários
  • 89 posts
  • Sexo:Não informado

Posted 13/06/2004, 17:00

Kr, tambem não funcionou, desse jeito ficou como se fosse p rs("texto"), o valor inicial. mas ele não busca, fica sempre o mesmo valor, e aparece duas vezes o mesmo regisytro no combo. ;)

#6 |KILLING|

|KILLING|

    12 Horas

  • Usuários
  • 174 posts
  • Sexo:Não informado

Posted 13/06/2004, 17:07

cara estou fazendo aki mas estou tendo problemas em criar vetores apartir do For Next! (n)

Edição feita por: |KILLING|, 13/06/2004, 17:09.


#7 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 13/06/2004, 17:13

cara estou fazendo aki mas estou tendo problemas em criar vetores apartir do For Next! (n)

Sorry, num sabia o valor neh kara.. vc num pois a sql nem como chama o campo.. eu inventei.. mas substitui rs("texto") pelo campo q vc quer como texto do item da combo q nem u killing feiz..

Num eh pra pega o codigo e cola lah neh.. modifica.. ou senaum passa o codigo intero teu pra faze :)

:lol: :lol: :lol: :lol:
MCAD, MCP

#8 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 13/06/2004, 17:15

Faiz assim, passa pelo menos o loop pra preencher o campo.. senaum fika dificil descobri o nome do campo por telepatia ahuauh

O codigo q eu fiz funciona.. agora vc tem q adaptar o codigo ao seu script.. num eh só copy & paste.. :)

:lol: :lol: :lol: :lol:

Desculpe o flood, pensei q estava editando...

Edição feita por: hdz*, 13/06/2004, 17:16.

MCAD, MCP

#9 Qwert133

Qwert133

    Normal

  • Usuários
  • 89 posts
  • Sexo:Não informado

Posted 13/06/2004, 17:16

:D Naum eu mudei kr o codigo, se naum ia dar erro, mais vou passar o codigo tai:

<form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onsubmit="return verifica_form(this);">
<TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario>
<TR class=titulo_campos>
<TD>turma<br>
<select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario>
<option value=""></option>
<%
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.CursorLocation = 3
objRS2.CursorType = 3
objRS2.LockType = 1
strQ = "SELECT turma FROM professores, dados_professores where dados_professores.matricula = '" & Session("matricula") &"' And dados_professores.matricula = professores.matricula ORDER BY materias ASC"
objRS2.Open strQ, objCon, , , &H0001
If Not objRS2.EOF Then
while not objRs2.EOF
Response.Write "<OPTION value=""" & objRs2("turma") & """>" & objRs2("turma") & "</OPTION>"
objrs2.movenext
wend
End If
%>
</select>

#10 |KILLING|

|KILLING|

    12 Horas

  • Usuários
  • 174 posts
  • Sexo:Não informado

Posted 13/06/2004, 18:00

Olha só galero consegui fazer perfeitamente do jeito que ele queria!
heheh, ficou bem legal!

<%
Dim total, turma(15)
total = 0

SQL = "SELECT * FROM professores WHERE matricula = '" & session("matricula") & "'"
set rs = objCon.execute(sql)

Do while not rs.eof
total = total + 1
rs.movenext
loop

SQL = "SELECT * FROM professores WHERE matricula = '" & session("matricula") & "'"
set rs = objCon.execute(sql)

For y = 0 to total - 1
turma(y) = rs("turma")
RS.MoveNext
Next
%>
<select style="width=350" name="turma" onChange="document.location='df_inclusao.asp?turma=' + this.value" class=campos_formulario>

<% For i = 0 to total - 1 %>

<option value=<%
If request.querystring("turma") <> "" then

 for x = 0 to ubound(turma)
 if request.QueryString("turma") = turma(x) then StrCfg = x
 next

 If StrCfg <> "" then
 if i = CInt(StrCfg) then response.Write(turma(i) & VbCrlf & "selected") else response.Write(turma(i))
 End if

Else
if i = 0 then response.Write(turma(i) & VbCrlf & "selected") else response.Write(turma(i))
End if
%>>
<%= response.Write(turma(i)) %>
</option>

<% next %>

</select>

Legal neh?
todo doido o código e fiz com vetores e funcionou legal!

ABRAÇOS!




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq