Ir para conteúdo

POWERED BY:

Arquivado

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

Rafael Portal

Usando ComboBox

Por , em ASP Clássico

Recommended Posts

Rafael Portal    0

Rafael Portal
Postado

Olá gente... Bom o que eu quero fazer é o seguinte... Tipo.. Eu tenho um combo em que eu listo os países e em outro combo eu quero listar todos os estados desde país.. Só que eu quero fazer isso na mesma página tipo.. 1) Clico/Seleciono.2) Faço a consulta (Pegar todos os estados daquele país)3) Preencho o outro combo.Alguém sabe por onde eu começo ? Abraço a todos.Oks,Rafael Portal

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rafael Portal    0

Rafael Portal
Postado

Mas AAlvez como sou iniciante eu não sei muito bem o que fazer ... Tipo aquelas funções q ficam no HEAD... Tem duas "Inicia" e duas "Carregar" e outra coisa... Quais campos eu troco ??? Me ajuda !!! Eu tô perdido... Ví q tem um monte de referências do seu programa .. Mas eu não sei como adapta-lo para o meu ... O que eu devo mudar ???Obs.: As consultas BD eu entendi... só não entendi o primeiro e o segundo código.. Abraços, espero q me ajude..Oks,Rafael Portal

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rafael Portal    0

Rafael Portal
Postado

Bom aqui vai....

 

 

<!--#include file="Conexao.asp"--><HTML><HEAD><TITLE>CADASTRO DE EMPRESAS - CADVENDAS</TITLE><LINK REL="STYLESHEET" TYPE="text/css" HREF="Estilos.css"> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"></HEAD><%  if Session("LOGIN") = "" then	response.redirect("index.asp")else	call Conectaend if%><BODY TEXT="#000000" LINK="#000000" VLINK="#000000" ALINK="#000000"><TABLE WIDTH="50%" BORDER="0" ALIGN="center"><TR> <TD CLASS="tabela" WIDTH="14%" HEIGHT="52"> <DIV ALIGN="CENTER"><IMG SRC="IcoCadEmpresas.jpg" WIDTH="40" HEIGHT="40"></DIV></TD><TD WIDTH="86%"><DIV ALIGN="center"><FONT COLOR="#000000" SIZE="4" FACE="Verdana">Cadastro         de Empresas</FONT></DIV></TD></TR></TABLE><BR><FONT SIZE="2">Voltar para: <A HREF="main.asp">Principal</A></FONT><BR><FORM METHOD="post" ACTION="InsereEmpresas.asp" NAME="FrmCadEmpresa"><TABLE HEIGHT="237" class="tabela1"><TR> <TD CLASS="tabela2" WIDTH="103" HEIGHT="25"> <STRONG> Nome: </STRONG> <TD WIDTH="452" CLASS="tabela2">   <INPUT NAME="TxtNome" TYPE="text" SIZE="70" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="25"><STRONG> Endereço: </STRONG> <TD CLASS="tabela2">  <INPUT NAME="TxtEndereco" TYPE="text" SIZE="70" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="26"><STRONG> Telefone: </STRONG> <TD CLASS="tabela2">  <INPUT NAME="TxtTelefone" TYPE="text" SIZE="30" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="24"><STRONG> Site: </STRONG> <TD CLASS="tabela2">  <INPUT TYPE="text" NAME="TxtSite"size="50" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="28"><STRONG> Fax: </STRONG> <TD CLASS="tabela2">  <INPUT NAME="TxtFax" TYPE="text" SIZE="30" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="21"><STRONG> Complemento:</STRONG> <TD CLASS="tabela2">  <INPUT TYPE="TxtComplemento" NAME="Usr_Complemento" SIZE="50" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="20"><STRONG> Bairro </STRONG> <TD CLASS="tabela2">  <INPUT NAME="TxvtBairro" TYPE="text" SIZE="50" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="21"> <STRONG> Cep: </STRONG> <TD CLASS="tabela2">  <INPUT TYPE="text" NAME="TxtCep" SIZE="30" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="25"> <STRONG> CNPJ: </STRONG> <TD CLASS="tabela2">  <INPUT TYPE="text" NAME="TxtCNPJ" SIZE="30" CLASS="texto"> <TR> <TD CLASS="tabela2" HEIGHT="25"> <STRONG> País: </STRONG> <TD CLASS="tabela2">  ****************************************************************************************************************************************                          ESTE É O COMBO QUE EU QUERO SELECIONAR****************************************************************************************************************************************<SELECT NAME="CboPais" SIZE="0" CLASS="texto">          <%   Dim Pais  Dim CodPais  SQL = " SELECT * FROM Pais "  ExeDB(SQL)  Do Until Rs.EOF           Pais = Rs("Descricao")            CodPais = Rs("CodPais")    	          %><OPTION value=<%=rs("CodPais")%>><%=rs("Descricao")%></OPTION>                   <%           Rs.movenext  loop                    %></SELECT><TR> <TD CLASS="tabela2" HEIGHT="21"> <STRONG> Estado: </STRONG> <TD CLASS="tabela2">  <SELECT NAME="CboEstado" SIZE="0" CLASS="texto">****************************************************************************************************************************************                          ESTE É O COMBO QUE EU QUERO PREENCHER****************************************************************************************************************************************</SELECT> </TABLE>	<CENTER><P><INPUT TYPE="submit" CLASS="botao" VALUE="Cadastrar empresa"></P></CENTER></FORM><script language="JavaScript"> 	document.FrmCadEmpresa.TxtNome.focus()</SCRIPT></BODY></HTML>

Então como temos alí acima eu tenho o combo q eu seleciono, e logo abaixo o combo q eu vou preencher conforme o que for escolhido no primero combo... Essa é a idéia... Abraço.

 

Oks,

Rafael Portal

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bernardo Medeiros    0

Bernardo Medeiros
Postado

Po o meu código não está funcionando nem a pau.

 

Tá dando um erro na hora de buscar os valores no banco.

 

Tem como alguém dar uma força?

 

vai o código:

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/conecta.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)End If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Update Record: set variablesIf (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then  MM_editConnection = MM_conecta_STRING  MM_editTable = "dbo.candidatos"  MM_editColumn = "cod_candidato"  MM_recordId = "" + Request.Form("MM_recordId") + ""  MM_editRedirectUrl = ""  MM_fieldsStr  = "cpf|value|nome|value|4edital|value|ins_proc|value|---|value|data_nasc|value|est_civil|value|inst_ensino|value|profissao|value|cidade_nasc|value|uf_nasc|value|nome_pai|value|nome_mae|value|cep|value|logr_resid|value|bair_resid|value|num_resid|value|comp_resid|value|cid_resid|value|uf_resid|value|cep_com|value|logr_com|value|bair_com|value|num_com|value|comp_com|value|cid_com|value|uf_com|value|email|value|tel_casa|value|tel_cel|value|tel_com|value|loc_pref_est|value"  MM_columnsStr = "cpf|none,none,NULL|Nome|',none,''|Art4|none,1,0|InscProc|none,1,0|Sexo|none,1,0|DataNascimento|none,none,NULL|EstadoCivil|',none,''|InstEnsino|',none,''|Profissao|',none,''|CidadeNascimento|none,none,NULL|UFNascimento|none,none,NULL|Pai|',none,''|Mae|',none,''|CEPResid|none,none,NULL|LogradouroResid|',none,''|BairroResid|',none,''|NumeroResid|none,none,NULL|CompResid|',none,''|CidadeResid|none,none,NULL|UFResid|none,none,NULL|CEPTrab|',none,''|LogradouroTrab|',none,''|BairroTrab|',none,''|NumeroTrab|none,none,NULL|CompTrab|',none,''|CidadeTrab|none,none,NULL|UFTrab|none,none,NULL|Email|',none,''|TelResid|none,none,NULL|TelOutros|none,none,NULL|TelComerc|',none,''|Opcao|none,none,NULL"  ' create the MM_fields and MM_columns arrays  MM_fields = Split(MM_fieldsStr, "|")  MM_columns = Split(MM_columnsStr, "|")    ' set the form values  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2	MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))  Next  ' append the query string to the redirect URL  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then	If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then	  MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString	Else	  MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString	End If  End IfEnd If%><%' *** Update Record: construct a sql update statement and execute itIf (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then  ' create the sql update statement  MM_editQuery = "update " & MM_editTable & " set "  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2	MM_formVal = MM_fields(MM_i+1)	MM_typeArray = Split(MM_columns(MM_i+1),",")	MM_delim = MM_typeArray(0)	If (MM_delim = "none") Then MM_delim = ""	MM_altVal = MM_typeArray(1)	If (MM_altVal = "none") Then MM_altVal = ""	MM_emptyVal = MM_typeArray(2)	If (MM_emptyVal = "none") Then MM_emptyVal = ""	If (MM_formVal = "") Then	  MM_formVal = MM_emptyVal	Else	  If (MM_altVal <> "") Then		MM_formVal = MM_altVal	  ElseIf (MM_delim = "'") Then  ' escape quotes		MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"	  Else		MM_formVal = MM_delim + MM_formVal + MM_delim	  End If	End If	If (MM_i <> LBound(MM_fields)) Then	  MM_editQuery = MM_editQuery & ","	End If	MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal  Next  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId  If (Not MM_abortEdit) Then	' execute the update	Set MM_editCmd = Server.CreateObject("ADODB.Command")	MM_editCmd.ActiveConnection = MM_editConnection	MM_editCmd.CommandText = MM_editQuery	MM_editCmd.Execute	MM_editCmd.ActiveConnection.Close	If (MM_editRedirectUrl <> "") Then	  Response.Redirect(MM_editRedirectUrl)	End If  End IfEnd If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_conecta_STRINGRecordset1.Source = "SELECT * FROM dbo.candidatos"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><%Dim Recordset2Dim Recordset2_numRowsSet Recordset2 = Server.CreateObject("ADODB.Recordset")Recordset2.ActiveConnection = MM_conecta_STRINGRecordset2.Source = "SELECT * FROM dbo.Estados"Recordset2.CursorType = 0Recordset2.CursorLocation = 2Recordset2.LockType = 1Recordset2.Open()Recordset2_numRows = 0%><%Dim Recordset3__MMColParamRecordset3__MMColParam = "1"If (Request.Form("uf_est") <> "") Then   Recordset3__MMColParam = Request.Form("uf_est")End If%><%Dim Recordset3Dim Recordset3_numRowsSet Recordset3 = Server.CreateObject("ADODB.Recordset")Recordset3.ActiveConnection = MM_conecta_STRINGRecordset3.Source = "SELECT * FROM dbo.Cidades WHERE CodigoEstado = " + Replace(Recordset3__MMColParam, "'", "''") + " ORDER BY CodigoCidade ASC"Recordset3.CursorType = 0Recordset3.CursorLocation = 2Recordset3.LockType = 1Recordset3.Open()Recordset3_numRows = 0%><!--#include file="includes/cabecalho.asp"--><!--#include file="includes/funcoes.asp" --><%%><!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=iso-8859-1" /><title><%=vGlobalTitleHMTL%></title><link href="estilos.css" rel="stylesheet" type="text/css" /><script>function carregar(){var url;url = 'remote.asp?uf_nasc='+document.form1.uf_nasc[document.form1.uf_nasc.selectedIndex].value;document.form1.cidade_nasc.options.length = 0;addItem(document.form1.cidade_nasc,"Aguarde...carregando","",false,document.form1.cidade_nasc.length)myIframe.location = url;document.form1.cidade_nasc.focus()}function inicia(){local1 = new Array();var maximo1, i, campo1;local1 = myIframe.loc;campo1 = document.form1.cidade_nasc;maximo1 = local1.length;document.form1.cidade_nasc.options.length = 0;addItem(campo1,'TODAS','',false,campo1.length);for (i=0;i<maximo1;i++){ addItem(campo1,local1[i][1],local1[i][0],false,campo1.length);}}function addItem(obj,strText,strValue,blSel,intPos){	 var newOpt,i,ArTemp,selIndex;	 selIndex = (blSel)?intPos:obj.selectedIndex;	 newOpt = new Option(strText,strValue);	 Len = obj.options.length+1	 if (intPos > Len) return	 obj.options.length = Len	 if (intPos != Len) {		  ArTemp = new Array();		  for(i=intPos;i<obj.options.length-1;i++)			   ArTemp[i] = Array(obj.options[i].text,obj.options[i].value);		  for(i=intPos+1;i<Len;i++)			   obj.options[i] = new Option(ArTemp[i-1][0],ArTemp[i-1][1]);	 }	 obj.options[intPos] = newOpt;	 if (selIndex > intPos)		  obj.selectedIndex = selIndex+1;	 else if (selIndex == intPos)  		  obj.selectedIndex = intPos;}</script></head><body><div id="geral">	<div id="topo">		<h1><a href="#">Sistema de Inscrição On-line</a></h1>			</div>	<div id="menu">		<ul>			<li><a href="#">Login</a></li>			<li><a href="#">Fazer Inscrição</a></li>			<li><a href="#">Sair</a></li>		</ul>	</div>	<div id="principal">		<div id="formulario">		  <form name="form1" action="<%=MM_editAction%>" method="POST">			  <div id="check1">				<p>CPF:					<input name="cpf" type="text" value="000000000-00" size="12" maxlength="12" />				</p>			</div>			<div id="nome_cand">				<p>Nome do Candidato:					<input name="nome" type="text" size="79" maxlength="80" />				</p>			</div>			  <div id="check2">				  <p> Concorre pelo 4º Edital: </p>					  <p>Sim						<input name="4edital" type="radio" value="1" />					Não						<input name="4edital" type="radio" value="0" />					  </p>			  </div>			  <div id="check2">				  <p> Inscrito por Procurador: </p>					<p>Sim						<input name="ins_proc" type="radio" value="1" />					Não						<input name="ins_proc" type="radio" value="nao" />				  </p>			  </div>			<div id="check2">				  <p> Sexo:</p>			  <p>Masc.: <input name="---" type="radio" value="1" />				Fem.: <input name="---" type="radio" value="feminino" />			  </p>			</div>			<div id="check2">			  <p> Data de Nascimento: </p>			  <input name="data_nasc" type="text" size="10" maxlength="10" /> 			  dd/mm/aaaa 			</div>			<div id="check2">			  <p>Estado Civil:</p>				<select name="est_civil">				  <option value="S">Solteiro</option>				  <option value="C">Casado</option>				  <option value="O">Outro</option>			  </select>			</div>			  <div id="inst_ens">				  <p>Instituição de Ensino:</p>					<input name="inst_ensino" type="text" size="100" maxlength="100" />			  </div>			  <div id="prof_id">				  <p>Profissão:</p>					<input name="profissao" type="text" size="30" maxlength="30" />			</div>			  <div id="prof_id">			  <p>Identidade:</p>				<input name="text" type="text" size="30" maxlength="30" />			  </div>			  <div id="org_em">			  <p>Orgão Emissor:</p>				<input name="Input" type="text" size="15" maxlength="15" />			</div>			<div id="check1">			  <p>UF Nascimento:</p>				<select name="uf_nasc" onchange="carregar()">				  <%While (NOT Recordset2.EOF)%>				  <option value="<%=(Recordset2.Fields.Item("CodigoEstado").Value)%>" <%If (Not isNull((Recordset2.Fields.Item("Sigla").Value))) Then If (CStr(Recordset2.Fields.Item("CodigoEstado").Value) = CStr((Recordset2.Fields.Item("Sigla").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(Recordset2.Fields.Item("Sigla").Value)%></option>				  <%  Recordset2.MoveNext()WendIf (Recordset2.CursorType > 0) Then  Recordset2.MoveFirstElse  Recordset2.RequeryEnd If%>				</select>			  			</div>			<div id="check1">			  <p> Cidade Nascimento:</p>				<select name="cidade_nasc">				  <%While (NOT Recordset3.EOF)%>				  <option value="<%=(Recordset3.Fields.Item("CodigoCidade").Value)%>" <%If (Not isNull((Recordset2.Fields.Item("CodigoEstado").Value))) Then If (CStr(Recordset3.Fields.Item("CodigoCidade").Value) = CStr((Recordset2.Fields.Item("CodigoEstado").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(Recordset3.Fields.Item("NomeCidade").Value)%></option>				  <%  Recordset3.MoveNext()WendIf (Recordset3.CursorType > 0) Then  Recordset3.MoveFirstElse  Recordset3.RequeryEnd If%>				</select>			  </div>			  <div id="inst_ens">			  <p>Nome do Pai:</p>				<input name="nome_pai" type="text" size="80" maxlength="80" />			  </div>			  <div id="inst_ens">			  <p>Nome da Mãe: </p>				<input name="nome_mae" type="text" size="80" maxlength="80" />			</div>			   <div id="cep">			   <p>CEP (Residencial):</p>				<input name="cep" type="text" size="9" maxlength="9" />			  </div>			  <div id="logradouro">			  <p>Logradouro (Residencial):</p>				<input name="logr_resid" type="text" size="80" maxlength="80" />			  </div>			  <div id="check1">			  <p>Bairro (Residencial):</p>				<input name="bair_resid" type="text" id="bair_resid" size="30" maxlength="30" />			  </div>			  <div id="check1">			  <p>Número (Residencial):</p>				<input name="num_resid" type="text" id="num_resid" size="5" maxlength="5" />			</div>				<div id="check1">					  <p>Complemento (Residencial):</p>						<input name="comp_resid" type="text" size="20" maxlength="20" />				  </div>				<div id="check1">					  <p>Cidade (Residencial):</p>						<select name="cid_resid" id="cid_resid" onchange="">				  </select>				  </div>				<div id="uf_res">					  <p>UF (Residencial): </p>						  <select name="uf_resid">						  </select>				  </div>				<div id="cep">					  <p>CEP (Trabalho):</p>						<input name="cep_com" type="text" id="cep_com" size="10" maxlength="10" />				  </div>				<div id="logradouro">				<p>Logradouro (Trabalho):</p>				<input name="logr_com" type="text" id="logr_com" size="80" maxlength="80" />				  </div>				<div id="check1">					<p>Bairro (Trabalho):</p>						<input name="bair_com" type="text" id="bair_com" size="30" maxlength="30" /> 			 	</div>				<div id="num_tra">					<p>Número (Trabalho): </p>					<input name="num_com" type="text" id="num_com" size="5" maxlength="5" />				  </div>				<div id="comp_tra">					<p>Complemento (Trabalho):</p>					<input name="comp_com" type="text" id="comp_com" size="20" maxlength="20" />				  </div>				<div id="check1">					<p>Cidade (Trabalho):</p>					  <select name="cid_com" id="cid_com">					  </select>				</div>				<div id="uf_res_tra">					<p>UF (Trabalho):</p>					<select name="uf_com"></select>				</div>				<div id="end_corr">					<p>Endereço para correpondência: </p>Resid: <input name="corresp" type="radio" value="residencial" />					Com: <input name="corresp" type="radio" value="comercial" />				</div>				<div id="email">					<p>E-mail:</p>					<input name="email" type="text" size="60" maxlength="60" />				</div>				<div id="tel_res">					<p>Telefone (Residencial):</p>					<input name="tel_casa" type="text" size="15" maxlength="15" />				</div>				<div id="tel_cel_com">					<p>Telefone (Celular):</p>					<input name="tel_cel" type="text" size="15" maxlength="15" />				</div>				<div id="tel_cel_com">					<p>Telefone (Trabalho):</p>					<input name="tel_com" type="text" size="15" maxlength="15" />				</div>				<div id="local_pref">					<p>Local de Preferencia do Estágio:</p>				  <select name="loc_pref_est"></select>				</div>			<div id="enviar">			  <input name="submit" type="submit" value="Imprimir" />				<input name="reset" type="reset" value="Limpar" />			</div>						  			<input type="hidden" name="MM_update" value="form1">			<input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("cod_candidato").Value %>"></form>		</div>	</div></div></body></html><%Recordset1.Close()Set Recordset1 = Nothing%><%Recordset2.Close()Set Recordset2 = Nothing%><%Recordset3.Close()Set Recordset3 = Nothing%>

Aqui é o arquivo remote.asp

 

<%<!--#include file="Connections/conecta.asp"-->SQL = "SELECT DISTINCT NomeCidade FROM cidades WHERE [CodigoEstado] = "+request.querystring("uf_nasc")set rs = server.CreateObject("ADODB.Recordset")  rs.CursorType = 3rs.Open SQL1, dbConnrs.MoveFirst%><script>   loc = new Array(<%=rs.recordcount%>)   for (i=0; i < <%=rs.recordcount%>; i++) {	   loc[i] = new Array(2)		 for (j=0; j < 2; j++) {		loc[i][j] = "0"			}	}<% j = 0   do while not rs.eof%>	loc[<%=j%>][0] = "<%=trim(rs("MsgCN"))%>";	loc[<%=j%>][1] = "<%=trim(rs("MsgCN"))%>";	<%	rs.movenext	j  = j  + 1   looprs.closeset rs = nothing'dbConn.closeset dbConn = nothing%>parent.inicia();</script>

Agradeço desde já a ajuda. :D

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