combo box múltiplos

[lezão 0]

Eai galera, blz!

 

Estou com um probleminha, com o codigo q eu encontrei na net.

Encontrei o codigo q eu preciso, mas agora estou precisando alterar suas funções.

 

Oq eu encontrei funciona assim. Perfeito!

http://www.shopcolina.com.br/colinaesporte/busca/carros.asp

 

Mas agora estou tentando adicionar um codigo de js nele pra ficar assim ?

http://www.shopcolina.com.br/colinaesporte/painel/jogadores/selecao2.asp

 

 

Mas na vdd estou precisando q fique assim com multiplos combo

http://www.shopcolina.com.br/colinaesporte/painel/jogadores/teste_selecao.asp

Preciso q este codigo se repita 11 vezes!

 

 

 

Isso é possivel????????????

 

HELP !!!!!!!!!!!!!!!!

[Gilberto Jr 26]

Esse tópico esta em aberto ainda?

 

Att;

[biakelly 0]

Oi Lezão, utilize esta solução abaixo que usei em meu projeto:

 

Para ela funcionar utilizo uma tabela onde tenho as colunas nome, imagem, idade e ID (voce pode colocar em sua tabela o que desejar)

 

no Form, perceba que incluo dois valores no value, um deles ficará no combo e o outro irá preencher seu imput, perceba que a ID do select se chama "mycombo" e a id do imput se chama "data_received_colimage" (preste atenção nestes dois ids eles são fundamentais para funcionar seu projeto

  <form>
    <select name="myCombo" id="myCombo">
      <option> </option>
      <option value="data1_colName,data1_colImage">Data 1 Col_Name</option>
      <option value="data2_colName,data2_colImage">Data 2 Col_Name</option>
      <option value="data3_colName,data3_colImage">Data 3 Col_Name</option>
    </select>
    <input type="text" name="data_received_colImage" id="data_received_colImage">
  </form>

Aqui voce irá inserir o Jquery no final da página para preencher seu imput e manter a seleção do combo

<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.3/jquery.min.js"></script> 
<script>
$( "#myCombo" ).change(function(){
	
	/* criando a variável com o valor (value) da opção selecionada no combo */
	var str = $( "select#myCombo option:selected" ).val();
	
	/* separando os valores da var str conforme caractere separador */
	var newStr = str.split( "," );
	
	/* preenchendo o input com o item/posição da nova var newStr */
	$( "input[type=text]#data_received_colImage" ).val( newStr[1] );

});
</script>

A função acima esta comentada e desta forma o funcionamento é simples. Para conseguir incluir os outros combos adicione as funçoes de acordo com sua necessidade. Exemplo:

<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.3/jquery.min.js"></script> 
<script>
$( "#zagueiro" ).change(function(){
	
	/* criando a variável com o valor (value) da opção selecionada no combo */
	var str = $( "select#myCombo option:selected" ).val();
	
	/* separando os valores da var str conforme caractere separador */
	var newStr = str.split( "," );
	
	/* preenchendo o input com o item/posição da nova var newStr */
	$( "input[type=text]#data_received_colImage" ).val( newStr[1] );

});
$( "#meiocampo" ).change(function(){
	
	/* criando a variável com o valor (value) da opção selecionada no combo */
	var str = $( "select#myCombo option:selected" ).val();
	
	/* separando os valores da var str conforme caractere separador */
	var newStr = str.split( "," );
	
	/* preenchendo o input com o item/posição da nova var newStr */
	$( "input[type=text]#data_received_colImage" ).val( newStr[1] );

});
</script>

Não esqueça de inserir os Id's de acordo com o Jquery caso contrário não irá funcionar.

 

 

 

Esta solução foi dada pelo Public2004 que esta muito bem comentada com riqueza de detalhes em meu tópico: http://forum.imasters.com.br/topic/541669-escolha-de-combo-e-preenchimento-de-input/page-2

 

 

Obs.: no seu banco irá cadastrar em uma das colunas os dois valores, neste caso será necessário um split para separar o valor quando recuperar no asp, um exemplo deste caso é a variável que pega o primeiro valor, ou seja, posição zero:

Dim strCombo
strCombo = Request.Form("myCombo")
strCombo = Split(strCombo, ",")
Response.Write(strCombo(0))

Agora se o seu caso você possuir duas tabelas, utilize a solução do Xanburzum, eu estou usando ela em outra aplicação e é bem fácil de adaptar:

este script faz o preenchimento de um combo e pega o valor do combo preenchido pra fazer o outro combo, tipo:

um combo país e outro combo estado

as tabelas saun:

pais- com os campos
cod_pais - chave primária
nome

estado -c om os campos
cod_pais - chave estrangeira
cod_estado
nome

as tabelas possuem relacionamento de um para muitos

<% Option Explicit 

'declaro as var 
dim var1,var2,var3,....., etc 
'recupero as var 
varpais=request.querystring("pais") 
'crioa a conexao 
%> 

<!--# include file="conexao/conexao.asp"--> 

<% 
'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 vou criar 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")%>"> 
<% if varpais=rs("pais") then 
response.write("Selecionado") 
end if%> 
<%=rs("nome")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%> 

'aki crio o combo estado 

<select name="estado"size="1"> 
if request("pais") ="" then%> 
<option value=""> selecione um pais 
<%else 
'crio o SQL estado 
SQLestado="Select * from estado where cod_pais="&varpais&" Order by nome" 
'crio o rsestado 
set rsestado=server.createobject("ADODB.Recordset") 
rsestado.open SQLestado,conexao,1,3 
<%while not rsestado.eof%> 
<option value="<%=rsestado("cod_estado")%>"> 
<%=rs("nome")%> 
</option> 
<%rs.movenext 
wend 
end if%> 
</select> 
<% set rsestado=nothing%> 
<% 'fecho a conexao 
call fecha_conexao%>

Espero ter ajudado ;)

[lezão 0]

eu só naun entendi aonde eu coloco este codigo..

<%
Dim strCombo
strCombo = Request.Form("myCombo")
strCombo = Split(strCombo, ",")
Response.Write(strCombo(0))
%>

??????