[Resolvido] [Erro] colocar em uma combo o resultado do select

Martinsrj · Julho 11, 2009

Ola pessoal, boa noite!

Estou com dificuldade de carregar em uma combobox um resultado de uma consulta do banco.

A combo aparece dessa forma:

Imagem Postada

O meu codigo esta dessa forma:

<%
Option Explicit
%>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsDados, strSQL, var_nomeprojeto, var_cod_dados, rs_Dados
strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " order by data desc"
Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)

var_cod_dados = rsDados("cod_dados")
var_nomeprojeto = rsDados("nome_projeto")


Response.Charset="ISO-8859-1"
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Gerência de Serviços de TI</title>

<link href="../estilos_portabilidade.css" rel="stylesheet" type="text/css" />

<style type="text/css">
<!--
body {
	margin-left: 0px;
}

-->
</style></head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
	<td height="50" bgcolor="#CC0000"> <span class="style1200"> PROJETOS</span></td>
	<td bgcolor="#CC0000"><div align="right"><a href="java script:window.close()"><img src="../menu/quadrinho.gif" width="17" height="17" border="0" /></a>    </div></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
	<td valign="top" bgcolor="#FFFFFF"><div align="center"> <br />
			<br />
		<table width="98%" border="0" cellspacing="0" cellpadding="0">
			  <tr>
				<td height="20"><span class="style2">Inclusão das Decrições de Atividades</span></td>
			  </tr>
			</table>
	  <br />
		<table width="99%" border="0" cellspacing="0" cellpadding="0">
			  <form>
				<tr>
				  <td valign="top"><table width="100%" border="0" cellspacing="5" cellpadding="0">
					  <tr>
						<td height="35" bgcolor="f4f4f4" class="style3"> </td>
						<td bgcolor="f4f4f4">
<select name="txt_nomeprojeto" id="select" >
<option>Selecione o Projeto: </option>

<% Do While Not rsDados.Eof %> 
<option value=<% = var_nomeprojeto %></option>
<%
rsDados.MoveNext
Loop
'rsDados.Close
'Call FechaConexao
'Set rsDados = Nothing
%>
</select>
						
						</td>
					  </tr>
					  <tr>
						<td width="18%" height="35" bgcolor="f4f4f4" class="style3"><div align="right">Ação:</div></td>
						<td width="82%" bgcolor="f4f4f4"><label></label>
						<textarea name="txt_problema5" id="txt_problema5" cols="90" rows="2" class="campocombo"></textarea></td>
					  </tr>
					  <tr>
						<td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Status:</div></td>
						<td bgcolor="f4f4f4"><label>
						<select name="select" id="select">
							<option>Escolher Status</option>
							<option>Concluído</option>
							<option>Em andamento - Atenção</option>
							<option>Em andamento - Crítico</option>
							<option>Em andamento - Normal</option>
							<option>Não Iniciado</option>
							<option>On-going</option>
						  </select>
						</label></td>
					  </tr>
					  <tr>
						<td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Responsável:</div></td>
						<td bgcolor="f4f4f4"><input name="txt_prod" type="text" class="campocombo" id="txt_prod" size="40" /></td>
					  </tr>
					  <tr>
						<td height="35" bgcolor="f4f4f4" class="style3"><div align="right">Data:</div></td>
						<td bgcolor="f4f4f4"><select name="text_data" id="text_data">
							<option>Dia</option>
						  <option value="01">01</option>
						  <option value="02">02</option>
						  <option value="03">03</option>
						  <option value="04">04</option>
						  <option value="05">05</option>
						  <option value="06">06</option>
						  <option value="07">07</option>
						  <option value="08">08</option>
						  <option value="09">09</option>
						  <option value="10">10</option>
						  <option value="11">11</option>
						  <option value="12">12</option>
						  <option value="13">13</option>
						  <option value="14">14</option>
						  <option value="15">15</option>
						  <option value="16">16</option>
						  <option value="17">17</option>
						  <option value="18">18</option>
						  <option value="19">19</option>
						  <option value="20">20</option>
						  <option value="21">21</option>
						  <option value="22">22</option>
						  <option value="23">23</option>
						  <option value="24">24</option>
						  <option value="25">25</option>
						  <option value="26">26</option>
						  <option value="27">27</option>
						  <option value="28">28</option>
						  <option value="29">29</option>
						  <option value="30">30</option>
						  <option value="31">31</option>
						  </select>
							<label>
							<select name="select2" id="select2">
							  <option>Mês</option>
							  <option value="jan">01</option>
							  <option value="fev">02</option>
							  <option value="mar">03</option>
							  <option value="abr">04</option>
							  <option value="mai">05</option>
							  <option value="jun">06</option>
							  <option value="jul">07</option>
							  <option value="ago">08</option>
							  <option value="set">09</option>
							  <option value="out">10</option>
							  <option value="nov">11</option>
							  <option value="dez">12</option>
							</select>
							<select name="select3" id="select3">
							  <option>Ano</option>
							  <option value="2009">2009</option>
							  <option value="2010">2010</option>
							  <option value="2011">2011</option>
							  <option value="2012">2012</option>
														</select>
						</label></td>
					  </tr>
					  <tr>
						<td height="50" bgcolor="f4f4f4"> </td>
						<td bgcolor="f4f4f4"><label>
						<input type="submit" name="btEnviar" id="btEnviar" class="botao" value="Cadastrar" />
						<input type="reset" name="btLimpa" id="btLimpa" class="botao" value="Limpar" />
						</label></td>
					  </tr>
				  </table></td>
				</tr>
			  </form>
		</table>
			<br />
			<br />
		<br />
	</div></td>
  </tr>
</table>
</body>
</html>

Desde ja agrade pela ajuda.

Patrique · Julho 11, 2009

cara, você não fechou a tag do option... a sua esta assim

<option value=<% = var_nomeprojeto %></option>

o certo seria assim

<option value="<% = var_nomeprojeto %>"></option>

Sua página também esta com problemas na acentuação, para concertar isso coloque o seguinte code no topo do seu code

Response.Charset="ISO-8859-1"
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"

Martinsrj · Julho 11, 2009

Ola Patrique!

Campeao, continua dando o mesmo erro.

Segue abaixo o meu codigo:

<select name="txt_nomeprojeto" id="select" >
<option>Selecione o Projeto: </option>

<% Do While Not rsDados.Eof %> 
<option value="<% = var_nomeprojeto %>"></option>
<%
rsDados.MoveNext
Loop
'rsDados.Close
'Call FechaConexao
'Set rsDados = Nothing
%>
</select>

Abracos

cara, você não fechou a tag do option... a sua esta assim
<option value=<% = var_nomeprojeto %></option>
o certo seria assim
<option value="<% = var_nomeprojeto %>"></option>
Sua página também esta com problemas na acentuação, para concertar isso coloque o seguinte code no topo do seu code
Response.Charset="ISO-8859-1"
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"

xanburzum · Julho 11, 2009

faltou você colocar o nome k ira exibir

olha este exemplo:

<% 
'abro a conexao 
Call abre_conexao 
'crio o rs 
set rspais=server.createobject("ADODB.Recordset") 
'crio a SQL 
SQLpais="SELECT * FROM pais ORDER BY nome" 
rspais.open SQLpais,conexao,1,3 
%> 


'aki cria o combo, onde no evento onchange ele irá enviar o value do combo pais para a mesma pag, para eu recuperar o codigo do pais e assim preencher o combo estado. 

<form action="inserirend_action.asp" method="post"name="frmteste"> 
<select name="pais" size="1" Onchange="window.navigate('pag_atual.asp?pais='+frmteste.pais.value)"> 

<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<%=rs("nome")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%>

tenta assim:

--
<select name="txt_nomeprojeto" id="select" >
<option>Selecione o Projeto: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("teste")%>">
<%=rsDados("nome")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select> 
<%Set rsDados=nothing 
'rsDados.Close
'Call FechaConexao
%>

--

Martinsrj · Julho 11, 2009

Ola Xanburzum!

Verifiquei que foi necessario colocar dessa forma conforme a sua dica:

<%=rsDados("nome_projeto")%>

Porque tenho que colocar dois resultados Recortset para que assim exiba na combo box todos os dados do campo: nome_projeto

Abracos e obrigado.

faltou você colocar o nome k ira exibir

olha este exemplo:

<% 
'abro a conexao 
Call abre_conexao 
'crio o rs 
set rspais=server.createobject("ADODB.Recordset") 
'crio a SQL 
SQLpais="SELECT * FROM pais ORDER BY nome" 
rspais.open SQLpais,conexao,1,3 
%> 


'aki cria o combo, onde no evento onchange ele irá enviar o value do combo pais para a mesma pag, para eu recuperar o codigo do pais e assim preencher o combo estado. 

<form action="inserirend_action.asp" method="post"name="frmteste"> 
<select name="pais" size="1" Onchange="window.navigate('pag_atual.asp?pais='+frmteste.pais.value)"> 

<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<%=rs("nome")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%>

tenta assim:

--
<select name="txt_nomeprojeto" id="select" >
<option>Selecione o Projeto: </option>

<% While Not rsDados.Eof %> 
<option value="<% = rsDados("teste")%>">
<%=rsDados("nome")%> 
</option>
<%
rsDados.MoveNext
wend%> 
</select> 
<%Set rsDados=nothing 
'rsDados.Close
'Call FechaConexao
%>

--

xanburzum · Julho 11, 2009

imagine k você tem uma tabela chamada paises

com os campos ID e Pais(nome), você faz

<select name="pais" size="1"> 
<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<%=rs("nome_pais")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%>

para k no Value do select seja o ID e para visualizar o nome, entendeu...

Martinsrj · Julho 11, 2009

beleza campeao!

imagine k você tem uma tabela chamada paises

com os campos ID e Pais(nome), você faz
<select name="pais" size="1"> 
<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<%=rs("nome_pais")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%>
para k no Value do select seja o ID e para visualizar o nome, entendeu...

xanburzum · Julho 11, 2009

maravilha, precisando estamos ae...

Arquivado

[Resolvido] [Erro] colocar em uma combo o resultado do select

Recommended Posts

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante