Recebendo valores

[Diegodargos 0]

Boa noite,

 

Sou novo com programação em ASP.

Meu problema é o seguinte, tenho um formulário onde tenho um select recebendo valores de um bd ACCESS e preciso que uma caixa de texto receba o código equivalente ao item selecionado no select

tipo, ao selecionar um item no select preciso que na caixa de txt ao lado receba o código desse item selecionado.
As o item e o código dele estão no mesmo bd.
Não posso colocar os dois no select pq na hora de salvar preciso cada um em uma coluna.

E nao estou conseguindo fazer a caixa de txt receber o valor relacionado ao select.

 

espero que tenham entendido

 

 

desde ja agradeço

[xanburzum 169]

atribua o value do campo text para o valor do ID do select, para ficar otimizado use uma função js no onBlur do select para preencher o campo text

[wilnet 92]

Olá Diego,

 

Tenho esse, veja se ajuda.

 

Função do javascript

<script language=JavaScript> 
 
function BuscaInput(frm, nome_input, nome_select)
{
	a = eval('document.'+frm+'.'+nome_input);
	b = eval('document.'+frm+'.'+nome_select);
 
	a.value = b.value;
}
 
function BuscaSelect(frm, nome_input, nome_select)
 {
	a = eval('document.'+frm+'.'+nome_input);
	b = eval('document.'+frm+'.'+nome_select);
 
	if (a.value != '')
		b.value = a.value;
	else
		b.selectedIndex = 0;
}
 
</script>

Select

<select onChange="BuscaInput('frmCadastro','produto','nome_produto')" name=nome_produto>

<option value=nulo>Selecione um Produto</option>

<%
set listar = dados.Execute("SELECT * FROM produtos ORDER BY nome_produto")
 While not listar.EOF
%>

<option value="<%=listar("nome_produto")%>" <%If (listar("id") = nome_produto) Then Response.Write "selected" End If%>><%=listar("nome_produto")%></option>

<%
listar.MoveNext
 Wend
%>

</select>

 <INPUT onblur="BuscaSelect('frmCadastro','produto','nome_produto')" readonly class="form" maxLength=60 size=40 name=produto>

Na Função do Script, não precisa alterar nada.

 

Faça suas modificações apenas no seu Select e veja se ajuda.

[xanburzum 169]

exatamente, isso, a diferença que falei do OnBlur

[Diegodargos 0]

Valeu,

 

Funcionou.

 

Obrigado pela ajuda!

[xanburzum 169]