Usando Request.form De List

[lsardinha]

Fiz um cadastro, onde tenho alguns campos do tipo Text Field e um campo do tipo list/menu, esse campo List eu faço um pesquisa no banco e preencho ele com os valores de uma determinada tabela, o meu problema esta quando eu clico nele pra selecionar uma opção e clico em enviar e o form chama atualiza.asp onde faço o update no banco, só que ele não consegue recuperar a informação através do Request.Form para que eu posso atualizar a informação.

[bareta]

opa... ta certo o nome do campo??? num ta mandando dados em ranco não??? seu form ta enviando por post???

poe o codigo ai...

[lsardinha]

Estou usando Post

Esse é o meu list:

<select value="
    
<% while Not RsDiv.EOF
Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>")
RsDiv.MoveNext
wend
Response.Write("<option selected>---</option>") %>
" name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1">
</select>

e tento pegar ele na outra página assim:

	<%
	cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
	DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
  
	Set Conn = Server.CreateObject("ADODB.Connection") 
	Conn.Open DataSource
	conn.Execute("update coinf_solicitacao set data='"&Request.Form("data")&"',hora='"&Request.Form("hora")&"',Solicitante='"&Request.Form("Solicitante")&"',area='"&Request.Form("area")&"',descricao='"&Request.Form("descricao")&"' where id="&Request.querystring("id")&"")
	Response.Redirect"index.asp?lcl=servico"
	%>

[cyberalexxx]

1 - Qual o nome do campo??

2 - no update você usa request.form e request.querystring

[lsardinha]

1 - Qual o nome do campo??

Resposta: name="area"

2 - no update você usa request.form e request.querystring

Resposta: area='"&Request.Form("area")&"'

eu uso querystring para poder informar qual registro (ID) vai ser atualizado.

[Guest - Alam -]

onChange="MM_jumpMenu('parent',this,0)"

o que essa função faz especificamente?

Alam

[lsardinha]

Era lixo....

porque tinha coloca a princípio um Jump Menu

mas já retirei...

Mas pergunto novamente, como faço pra na outra página pegar o valor escolhido no select?

[ursolouco]

Mas pergunto novamente, como faço pra na outra página pegar o valor escolhido no select?

Brother!!

<select name="Garotas">

VocÊ tendo um menu com este nome em seu form e enviando via post, pode ser recolhido da seguinte forma:

 variavel = Request.Form("Garotas")

Ele vai atribuir a sua variavel, o valor do <option> que estiver selecionado na sua lista...

Melhorou ?

[cyberalexxx]

eu uso querystring para poder informar qual registro (ID) vai ser atualizado.

Não entendi como você esta usando Request.QueryString("id") com um formulário enviado pelo método post.

[felipefrancesco]

Meu....você escreve as opções dentro do select.....você tem que fechar a tag inicial do select, passando os parâmetros do select no início...

Assim:

CODE  
<select value=" name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1">   
<% while Not RsDiv.EOF
Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>")
RsDiv.MoveNext
wend
Response.Write("<option selected>---</option>") %>
</select> 

[lfbadwolf]

porque você não coloca um nome para o select, ai fica mais facil...

<select name="nome">

dai no request.form("nome")

[lsardinha]

Pergunta: Não entendi como você esta usando Request.QueryString("id") com um formulário enviado pelo método post.

Resposta:

Na verdade o ID eu passo a informação dele action do meu form.

action="index.asp?lcl=editandoservico&id=<%=Rs.Fields("id")%>"

[lsardinha]

Mas o select já tem o nome (area), mas quando faço resquest.form("nome") ele da valor vazio:

<select value="
<% while Not RsDiv.EOF
Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>")
RsDiv.MoveNext
wend
Response.Write("<option selected>---</option>") %>
" name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1">
                  </select>

[lsardinha]

porque o problema é assim:

Primeiro faço uma pesquisa no Banco de Dados pra Preencher os valores dessa "ComboBox" (vou usar esse nome que é mais simples), aí ele faz belezinha, busca os valores na tabela e me mostra mais ou menos assim:

Nome dele é Area

CONTABILIDADE

RH

INFORMATICA

JURIDICO

Aí por exemplo eu seleciono o RH que onde quero alterar e clico em enviar (usando o Post), só que na outra página quando faço Request.Form("Area") ele mostra a informação em branco, ou seja ele não pegou o valor (RH).

Então esse é o problema que não consigo entender.

vejam os códigos:

Form

<form name="editarservico" method="post" action="index.asp?lcl=editandoservico&id=<%=Rs.Fields("id")%>">

Select (que chamei de ComboBox)

<select value="<% while Not RsDiv.EOF
Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>")
RsDiv.MoveNext
wend
Response.Write("<option selected>---</option>") %>
" name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1"></select>

A página que faz atualização no BD

<%cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
  
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open DataSource
conn.Execute("update coinf_solicitacao set data='"&Request.Form("data")&"',hora='"&Request.Form("hora")&"',Solicitante='"&Request.Form("Solicitante")&"',area='"&Request.Form("area")&"',descricao='"&Request.Form("descricao")&"' where id="&Request.querystring("id")&"")
Response.Redirect"index.asp?lcl=servico"
%>

Vejam que aqui eu pego (tentei pelo menos) os dados do select:

area='"&Request.Form("area")&"'

[lsardinha]

Me ajudem por favor!

[vitorarouca]

só está a dar problemas com a "area"???

[lfbadwolf]

Olá, você tentou abrir esta pagina que esta o formulario em HTML para verificar se ele esta colocando value nos campos do select??

Ele esta colocando os campos certinhos??

[vitorarouca]

faz o seguinte:

<%cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")

DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DataSource

teste = "update coinf_solicitacao set data='"&Request.Form("data")&"',hora='"&Request.Form("hora")&"',Solicitante='"&Request.Form("Solicitante")&"',area='"&Request.Form("area")&"',descricao='"&Request.Form("descricao")&"' where id="&Request.querystring("id")

response.write (teste)

'conn.Execute("update coinf_solicitacao set data='"&Request.Form("data")&"',hora='"&Request.Form("hora")&"',Solicitante='"&Request.Form("Solicitante")&"',area='"&Request.Form("area")&"',descricao='"&Request.Form("descricao")&"' where id="&Request.querystring("id")&"")

'Response.Redirect"index.asp?lcl=servico"

%>

ele vai imprimir a tua string "teste" com a instrução de update completa... comenta a instrução 'conn.Execute' como o meu exemplo e a instrução

'Response.Redirect"index.asp?lcl=servico'

[lsardinha]

Ele imprimiu isso:

update coinf_solicitacao set data='27/9/2004',hora='15:10:01',Solicitante='PAULO',area='',descricao='alteração no banco de dados' where id=2

[lsardinha]

Mudei o lugar onde ele faz a seleção para preencher a lista e funcionou, estava colocando na propriedade value, agora ficou assim:

<option selected><% while Not RsDiv.EOF
Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>")
RsDiv.MoveNext
wend
Response.Write("<option selected>---</option>") %></option>

Valeu pela força e pela instrução que ajudou demais a pensar diferente.

[vitorarouca]

é o mais complicado em asp é fazer o debug da aplicação.... tem que ser tudo com response.write...

Sempre que precisares e se eu puder te ajudar posta aí ou manda mail ou adiciona no MSN...

Um Abraço

Vitor Arouca