[Resolvido] select

[wills 0]

olá pessoal!

 

tenho um sistema que no mesmo há uma tag select com várias opções (óbvio).

ele salva certo no banco e me retorna o valor dentro da própria tag select.

 

porém, gostaria de salber como filter meu resultado na busca sql e ainda permanecer os outros registros sem ter duplicação.

[Ted k' 126]

a parte do filtrar não entendi, mais a duplicação você pode pegar o campo que duplica e dar um DISTINCT no sql

[wills 0]

agora eu que não entendi.....

 

fica mais fácil para você eu passar um exemplo de como estou fazendo?

[hargon 64]

Sim, poste essa parte do código.

[wills 0]

o que eu fiz (foi um jeito porco, eu sei)

 

<td align="right">Tipo do produto:</td>
<td><select name="slcTipo">
<option><%=slcTipo%></option>
</select></td>   		
<td width="5%"> </td>		
<td align="right">Grupo do produto:</td>
<td><select name="slcGrupo">
<option><%=slcGrupo%></option>
</select></td>

então, na hora que ele exibe no select, ele mostra apenas o dado cadastrado, mas e se eu precisar alterar? ele tem que mostrar os outros dados da lista também.

[wills 0]

incrementei mais uma função, if, porém mesmo assim ainda não deu onde eu quero....

 

<td align="right">Tipo do produto:</td>
<td><select name="slcTipo">
<%if acao = "pesquisar" then %>
<option><%=slcTipo%></option>
<% else %>
<option>outra lista</option>
<%end if %>
</select></td>

[hargon 64]

Não entendi ainda o que você quer. Aliás, acho que entendi, mas os dados apresentados até o momento não favorecem para a criação de uma solução.

 

Você quer exibir 10 registros, só que um desses registros deve está selecionado, pois está armazenado em uma variável um valor igual, correto?

 

Posta o código inteiro se for o caso.

[wills 0]

exato!

 

é isso mesmo que eu quero.... mas não estou conseguindo isso

[hargon 64]

Como você não postou o código, vai meu exemplo e você faz a ADAPTAÇÃO.

'------------------------------------------
' EXEMPLO A SER ADAPTADO - Utilizei cidades
'------------------------------------------

Dim cdcidade, rs, sql, selecao

cdcidade = 10

sql = "SELECT cdcidade, nmcidade FROM cidade ORDER BY nmcidade"
Set rs = Conexao.Execute(sql)

If Not rs.Eof Then
	Response.Write "<select name=""optCdCidade"">"
	Response.Write "<option></option>"
		
	While Not rs.Eof
				selecao = Empty
		If (rs("cdcidade") = cdcidade) Then
			selecao = "selected=""selected"""
		End If
		
		Response.Write "<option value="" & rs("cdcidade") & "" " & selecao & ">" & rs("nmcidade") & "</option>"
		
		rs.MoveNext
	Wend
	
	Response.Write "</select>"
End If
rs.Close
Set rs = Nothing

'------------------------------------------
' FIM EXEMPLO
'------------------------------------------

[wills 0]

vou testar aqui e já posto, valeu!

[wills 0]

agora que me toquei, os seu dados, todos são dinâmicos....os meus são estáticos....

 

esse é o problema

[hargon 64]

Então você terá que colocá-los manualmente.

 

Para facilitar, armazene em uma matriz e leia ela utilizando FOR, LBOUND e UBOUND.

[wills 0]

xiiiii, agora pegou....

 

não sei usar LBOUND e UBOUND não.

 

tem como me ajudar a contrurir essa estrutura?

[hargon 64]

'------------------------------------------

' EXEMPLO A SER ADAPTADO - Utilizei cidades

'------------------------------------------

 

Dim nmcidade, cidadeArray, selecao, i

 

nmcidade = "CidadeB"

cidadeArray = "CidadeA,CidadeB,CidadeC,CidadeD"

cidadeArray = split(cidadeArray,",")

 

Response.Write "<select name=""optCdCidade"">"

Response.Write "<option></option>"

For i = LBound(cidadeArray) To UBound(cidadeArray)

selecao = Empty

If (cidadeArray(i) = nmcidade) Then

selecao = "selected=""selected"""

End If

 

Response.Write "<option value="" & cidadeArray(i) & "" " & selecao & ">" & cidadeArray(i) & "</option>"

End If

Response.Write "</select>"

 

 

'------------------------------------------

' FIM EXEMPLO

'------------------------------------------

[wills 0]

valeu hargon, consegui aqui!

 

podedar como resolvido!

 

abração!