Ir para conteúdo

POWERED BY:

Arquivado

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

JBNC

[Resolvido] Combo Dinâmico

Por , em ASP Clássico

Recommended Posts

JBNC    0

JBNC
Postado

Fala Pessoal,

Preciso criar um formulario, até ai nada de mais, mas preciso de um combo dinâmico onde aparesam os nomes completo (dados) de uma tabela e de um só campo de um banco de dados.

Após selecionado o nome desse combo ele será passado para uma pagina em ASP que faz uma consulta completa da pessoa seleciona pelo nome.

Muito obrigado e aguardo resposta.

 

Atenciosamente.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Prezado Roberto,

Tem como você postar um exemplo do que você falou, pois não conseguir compreender direito.

Muito obrigado e aguardo resposta.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

um exemplo

<select name="tipo">

<% while not rs.EOF %>

<option value="<%=rs("nomeDoCampo")%>"><%=rs("nomedocampo")%></option>

<% rs.moveNext

wend %>

</select>

 

ele vai listar todos os registro que encontram no rs cujo do campo você deverá especificar...

 

espero que ajude!

Compartilhar este post

Link para o post
Compartilhar em outros sites

roberto182    0

roberto182
Postado

um exemplo

<select name="tipo">

<% while not rs.EOF %>

<option value="<%=rs("nomeDoCampo")%>"><%=rs("nomedocampo")%></option>

<% rs.moveNext

wend %>

</select>

 

ele vai listar todos os registro que encontram no rs cujo do campo você deverá especificar...

 

espero que ajude!

Perfeito...

 

Só ressaltando que no primeiro nomeDoCampo vai o valor da chave primária e no segundo vai o texto que você quer que apareça.

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Fala Pessoal,

Conforme as dicas que vocês colocando. fiz conforme as orientações mas mesmo assim nada mudou.

Segue abaixo o codigo:

 

<html>
<head>
<title>.: SISTEMA DE TREINAMENTO :.</title>
<LINK rel="stylesheet" href="_css/vlog.css" type="text/css">
 <script language="JavaScript">
   function Consultar()
   {
	 document.acao.action="_inc/consulta.asp";
	 document.forms.acao.submit();
   }
  </script>
  <script language="JavaScript">
   function Inicial()
   {
	 document.acao.action="index.htm";
	 document.forms.acao.submit();
   }
  </script>
</head>
<body>
<table width="100%" height="100%" bgcolor="#858585" cellpadding="0" cellspacing="0" border="0">
	<tr><td colspan="3" height="*"></td></tr>
	<tr>
		<td></td>
		<td height="200" width="350" background="_img/fnd0004.gif" align="center">
			<table class="titulo" border="0">
				<tr align="center" >
					<td colspan="2" height="30">
						Digite o nome do tripulante.
					</td>
				</tr>
<%
' ----- Criação da conexão do Banco de dados com o ASP -----	
	SET strConexao=createobject("ADODB.CONNECTION")
	Set RS = CreateObject("ADODB.Recordset") 
	strConexao.Open "ConASP2"
%>
				<tr align="right">
						<form method="post" class="titulo" name=acao>
							<td height="40">
							<select name="fr_nome" onChange="BuscaProdutos()">
							<option>-Selecione o mome-</option>
							<% 
							sql ="SELECT * FROM Tripulacao"
							set RS = strConexao.execute(sql)	
							Do Until RS.EOF
								Response.Write "<option value="&RS('CodANAC')&">"&RS('NomeCompleto')&"</option>"
								RS.moveNext
							loop
							%>
							</select>
							<br>
							<input type="submit" onclick=Consultar() value="Consultar" class="btntipo" name="consultar">
							<input type="submit" onclick=Inicial() value="INICIAL" class="btntipo" name="inicial">							

							</td>
						</form>
				</tr>
			</table>
		</td>
		<td></td>
	</tr>
	<tr><td colspan="3" height="*"></td></tr>
</table>
</body>
</html>
Por favor me ajudem.

Muito obrigado e aguardo resposta.

Atenciosamente.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Oi Roberto,

a conexão já esta escritado script que é:

<%
' ----- Criação da conexão do Banco de dados com o ASP -----	
	SET strConexao=createobject("ADODB.CONNECTION")
	Set RS = CreateObject("ADODB.Recordset")
	strConexao.Open "ConASP2"
%>

Eu estou utilizando o ODBC para fazer a conexão.

Muito obrigado e aguardo resposta.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Pessoal,

A conexão esta acontecendo no script o que não esta funcionando é o combo que não aparece nada quando aparece no Browse.

Ele deveria aparecer os nome das pessoas que estão no banco de dados que se conecta pelo ODBC.

Por favor me ajudem.

Muito obrigado e aguardo resposta.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O erro está aparentemente aqui:

Response.Write "<option value="&RS('CodANAC')&">"&RS('NomeCompleto')&"</option>"
Coloque as " (aspas) no lugar da ' (plica/aspa simples)
								Response.Write "<option value="& RS("CodANAC") &">"& RS("NomeCompleto") &"</option>"

Faz isso e testa novamente, se continuar não rolando veja o fonte html gerado pelo código.

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Prezado salgado,

ainda esta com erro. O combo ainda não consegue ler nenhuma informação do bando de dados.

O que é interesante que a conexão esta sendo feita, se não tivesse conectando daria erro de conecção.

Tenho buscado varios exemplos na internet e tendado execulta-los mas dá o mesmo erro.

Peço ajuda sobre este erro.

Muito obrigado e aguardo resposta.

 

Atenciosamente.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tem link on-line para o sistema? Se não tiver tente disponibilizar para que possamos verificar ele on-line.

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Prezado salgado,

Infelizmente não tem como, porque eu estou trabalhando num outro computador off-line o sistema que estou criando esta nele, pois tem o IIS e editor istalados nele. Eu estou postando em uma outra maquina para falar com vocês.

Peço ajuda sobre isto.

Muito obrigado.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ok, Execute o sistema e veja se no fonte HTML se não aparece algum erro. Se não aparecer nós vamos começar "do zero" e depois aplicar o form.

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Prezado Salgado,

Te abradeço pela força e o seu despreendimento em solucionar o problema.

Segue abaixo o fonte para você analisar.

<html>
<head>
<title>.: SISTEMA DE TREINAMENTO :.</title>
<LINK rel="stylesheet" href="_css/vlog.css" type="text/css">
 <script language="JavaScript">
   function Consultar()
   {
	 document.acao.action="_inc/consulta.asp";
	 document.forms.acao.submit();
   }
  </script>
  <script language="JavaScript">
   function Inicial()
   {
	 document.acao.action="index.htm";
	 document.forms.acao.submit();
   }
  </script>
</head>
<body>
<table width="100%" height="100%" bgcolor="#858585" cellpadding="0" cellspacing="0" border="0">
	<tr><td colspan="3" height="*"></td></tr>

	<tr>
		<td></td>
		<td height="200" width="350" background="_img/fnd0004.gif" align="center">
			<table class="titulo" border="0">
				<tr align="center" >
					<td colspan="2" height="30">
						Digite o nome do tripulante.
					</td>
				</tr>

<%
' ----- Criação da conexão do Banco de dados com o ASP -----	
	SET strConexao=createobject("ADODB.CONNECTION")
	Set RS = CreateObject("ADODB.Recordset") 
	strConexao.Open "ConASP2"
%>
				<tr align="right">
						<form method="post" class="titulo" name=acao>
							<td height="40">
							<select name="fr_nome" onChange="BuscaProdutos()" class="titulo5">
							<option>-Selecione o nome-</option>
							<% 
							sql ="SELECT * FROM Tripulacao"
							set RS = strConexao.execute(sql)	
							Do Until RS.EOF
								Response.Write "<option value="&RS("CodANAC")&">"&RS("NomeCompleto")&"</option>"
								RS.moveNext
							loop
							%>
							</select>

							<br>
							<input type="submit" onclick=Consultar() value="Consultar" class="btntipo" name="consultar">
							<input type="submit" onclick=Inicial() value="INICIAL" class="btntipo" name="inicial">							

							</td>
						</form>
				</tr>
			</table>
		</td>
		<td></td>

	</tr>
	<tr><td colspan="3" height="*"></td></tr>
</table>
</body>
</html>

Para te adiantar o form aparece sem nenhum problema, mas quando você clica no combo não aparece nenhum nome do banco, que deveria aparecer.

Mais uma vez te agradeço pela força.

Muito obrigado e aguardo resposta.

 

Atenciosamente.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

roberto182    0

roberto182
Postado

Ô galã,

 

 

Você me desculpe, mas eu insisto. Onde está o drive de coneção e o endereço do seu banco de dados? Você não quis informar aqui por segurança? Por que se for isso beleza... mas se você não informou no seu código... então não tem como mesmo.

 

O código que define os dois são:

CODE

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "c:/webdata/northwind.mdb"

 

Abraço!

Compartilhar este post

Link para o post
Compartilhar em outros sites

berkowitz    2

berkowitz
Postado

tente mudar a linha do response write!

Deixa ela assim:

Response.Write "<option value='"&RS("CodANAC")&"'>"&RS("NomeCompleto")&"</option>"&VbCrLf

 

Mas faz o seguinte também: Roda a página no browser, manda exibir o código fonte e mostra aqui pra gente ver o que ta saindo... Frmz?

 

ABRAX!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ok, Depois que executar, mande exibir o código fonte html da página e poste aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Ok Salgado,

Segue abaixo o fonte conforme o que você pediu:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>.: SISTEMA DE TREINAMENTO :.</title>
<LINK rel="stylesheet" href="../_css/vlog.css" type="text/css">
 <script language="JavaScript">
   function Voltar()
   {
	 document.acao.action="..\consultar.html";
	 document.forms.acao.submit();
   }
  </script>
  <script language="JavaScript">
   function Inicial()
   {
	 document.acao.action="..\index.htm";
	 document.forms.acao.submit();
   }
  </script>
</head>
<body>
<%  

<!--Criando conexão com o bando de dados-->

	DIM var_temp, RS, objConn, sql, sql2, strConexao,nome_compl,nome_gue,funcao,cargo,equi,data_admi,base,cod_anac,pla_pc,
nivel_ing,pass,crm,ccf,ifr,emer_ger,tai,recic,carre
	permissao = false
	SET strConexao=createobject("ADODB.CONNECTION")
	Set RS = CreateObject("ADODB.Recordset") 
	strConexao.Open "ConASP2"

<!--Definindo as variaveis vindas do HTML-->

	var_nome= Request.form("fr_nome")
	
%>

<%
sql ="SELECT * FROM Tripulacao"
set RS = strConexao.execute(sql)

	Response.Write ("<table width='100%' height='100%' bgcolor='#858585' cellpadding='0' cellspacing='0' border='0'>")
	response.write ("<tr><td colspan='4' height='*'></td></tr>")
	response.write "<td></td>"
	response.write ("<td height='400' width='553' background='../_img/fnd0003.gif' align='center' class='login'>")
	Response.write ("<table class='titulo2' border='0' width='90%'>")
	response.write ("<tr align='right'>")
	response.write ("<td height='40'> </td>")
%>
	<td colspan="4"' valign="bottom" class="titulo4">
	<form action="..\consultar.html" class="titulo" name=acao>

	<input type="submit" value="Nova Consulta" class="btntipo2">
	</form>	
	</td>
<%
	Response.write "</tr>"
	Response.Write ("<td colspan='3'>INFORMAÇÕES DO TRIPULANTE</td>")
	Response.write "</tr>"
	RS.MoveFirst
	Do While not RS.Eof
	if var_nome=RS.Fields("NomeCompleto")then
		Response.write "<tr align='left'>"
		Response.Write "<td width='30%'>Nome Completo:</td>" & "<td class='titulo3' colspan='3'>" & RS("NomeCompleto")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Nome de Guerra:</td>" & "<td class='titulo3' colspan='3'>" & RS("NomeGuerra")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Função:</td>" & "<td class='titulo3' colspan='3'>" & RS("Func")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Cargo:</td>" & "<td class='titulo3' colspan='3'>" & RS("Cargo")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Equipamento:</td>" & "<td class='titulo3' colspan='3'>" & RS("Eqpto")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Data de Admissão:</td>" & "<td class='titulo3' colspan='3'>" & RS("DtAdmis")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>BASE:</td>" & "<td class='titulo3' colspan='3'>" & RS("Base")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Código ANAC:</td>" & "<td class='titulo3' colspan='3'>" & RS("CodANAC")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>PLA / PC:</td>" & "<td class='titulo3' colspan='3'>" & RS("PLA/PC")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Nível de Inglês:</td>" & "<td class='titulo3' colspan='3'>" & RS("Nivel_Inglês")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>N° do Passaporte:</td>" & "<td class='titulo3' colspan='3'>" & RS("Passaporte")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td colspan='2'></td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td colspan='2'></td>" 
		Response.write "</tr>"
		response.write"</table>"
	var_temp = RS("CodANAC")
	permissao = true
	end if
	RS.MoveNext
	Loop
	if permissao=false then
		RS.close
		strConexao.close
		Response.Redirect("err2.asp")
	end if


<!--Selecionando os vencimentos de outra tabela com usando o n° da ANAC, para selecionar.
-->
sql2 ="SELECT * FROM Cursos"
set RS = strConexao.execute(sql2)
	Response.write "<table class='titulo2' border='0' width='90%'>"
	RS.MoveFirst
	Do While not RS.Eof
	if var_temp=RS.Fields("CodANAC")then
		Response.write "<tr align='left'>"
		Response.write "<td colspan='4'> VENCIMENTOS:</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>CRM:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("CRM")& "</td>" 
		response.write "<td width='22.5%'>CCF:</td>"
		response.write "<td class='titulo3' width='22.5%'>" & RS("CCF")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>IFR:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("IFR")& "</td>" 
		response.write "<td width='22.5%'>Emerg. Gerais:</td>"
		response.write "<td class='titulo3' width='22.5%'>" & RS("Emergências_Gerais")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>TAI:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("TAI")& "</td>" 
		response.write "<td width='22.5%'>Reciclagem:</td>"
		response.write "<td class='titulo3' width='22.5%'>" & RS("Reciclagem")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>Carregamento:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("Carregamento")& "</td>" 
		Response.write "</tr>"
	end if
	RS.MoveNext
	Loop
	response.write"</table>"
	response.write"</td>"
	response.write"<td></td>"
response.write"</table>"

%>

</body>
</html>

Tomará que ajude.

Muito obrigado e aguardo resposta.

Atenciosamente.

 

JBNC... :)

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