4 replies to this topic

[Amanda]

Bom dia a todos

Gostaria de saber como poderei fazer uma array, ou vetor.
Tenho um select que chama uma sequencia de informações e tenho que fazer uma pagina com cada informação, só que as paginas são iguais, só mudando o código da consulta ( mudando a descrição)

Como posso fazer isso

Obrigada pela atenção pessoal

Amanda

[.:Matrix:.]

Bom dia amanda!!

Bom pelo que entendi vc tem um select que te retorna uma lista de itens certo??

Bem, se for isso mesmo tente fazer assim:

Crie uma pagina para listar os itens, vc deve transformar cada item listado em um link pode ser como o exemplo abaixo

<a href="descricao.asp?id=" & <%=RS("ID")%>> <%=RS("Item")%></a>

Bem, quando o usuario clicar em um dos links ele levara a pagina descrição onde voce ira pegar o ID via querystring e fazer um outro select no banco com isso preenchendo os campos com as informações necessarias daquele item.

Agora se naum for isso que precisa poste dinovo pra nois ajudar.

Espero ter ajudado.


Abraços

[ursolouco]

para jogar os dados do recordset em uma array(vetor), ultilize o metodo GetRows:

Ex:

...
....
If Not Rs.Eof Then
 meuVetor = Rs.GetRows
Else
...
....

Seu vetor esta assim agora: meuVetor(Colunas, Linhas)

Para se obter o numero de colunas e linhas, procure trabalhar com o método 'LBound' e 'UBound'.

Ex:

maxColunas = UBound(meuVetor, 1)

Apenas uma dica de se ultilizar vetores..

Boa Sorte!!!
[urso]

[Amanda]

Boa noite pessoal !!


Obrigada irei tentar neste sabado.

Pois tenho uma lista que me retorna em média 44 registros e cada item deve abrir uma página com detalhes de cada um.

Como sou novata no assunto, a principio eu criei várias páginas (iguais) só mudando o código dos itens no select, e não fica um trabalho legal, por isso quero aprender a fazer direitinho.


Aaaa, preciso criar algo como session??


Obrigada pela atenção de todos, e se quiserem dar mais dicas, ficarei meis feliz!!!!!

Amanda

[Tarkan]

Um pequeno exemplo de criação de vetor, utilizando um combo para exibir seus valores:

<%
Dim arrInfo(5)

arrInfo(1) = "Informação 1"
arrInfo(2) = "Informação 2"
arrInfo(3) = "Informação 3"
arrInfo(4) = "Informação 4"
arrInfo(5) = "Informação 5"
%>
<SELECT NAME="cmbInfo">
<%
For i = 1 To UBound(arrInfo)
Response.Write "<option value=" & i & ">" & arrInfo(i) & "</option>" & vbcrlf
Next
%>
</SELECT>

Espero que ajude!

Qualquer coisa, volte a postar!

Beijos!