Duvida Criando For

[pacokaca]

já arrumei o problema do for.. mas valeu mesmo assim!

Agora a duvida dos array..!!

dim pmde, pmhora, pmdata, pmmsg(30)

só q ai.. ele num deixa eu atribuir valores string para essas variaveis.. só valor numerico.. tem como adicionar texto a esses vetores? valeu ai.. aonde ad erro é aqui oh:

pmde(i) = rs.fields("De")

bom.. e no for.. achu q ta tudo resolvido.. só uma duvida.. o next usa no final da instrução?

valeu ai desde já..!! =)

[danyort]

For contador = inicio To fim

[bloco de instruções]

Next

quanto ao array, vê se isso te ajuda:

http://www.superasp.com.br/conteudo/artigos/artigo_189.asp#

[cyberalexxx]

O next voce usa no ponto em que quizer fazer o loop, normalmente é no fim da instrução.

Uma coisa que eu não entendi, quando voce declara a variavel pmde voce não informa que se trata de um array, portando deve ser por isso que esta dando erro.

[pacokaca]

valeu ai galera pela ajuda.. mas tipo.. os ite q se me passou.. ta meio confuso.. sei la.. eu num quero fazer nem metade daqeules coisas q ta la... hehehe.. a declarção pelo q ta escrito la.. teria q ficar assim por exemplo:

dim pmmsg

pmmsg = array()

e depois pra preencher.. seria

pmmsg(i) = rs.fields("MSG")

onde esse i é um for q eu fiz..

só q ai da o seguinte erro:

Subscrito fora do intervalo: '1'

esse erro da na linha de atribuirt o valor pro array..

se alguém conseguir me ajudar eu ficaria muito grato.. valeu ai

[cyberalexxx]

voce redimensionou o array usando o redim??

[pacokaca]

galera.. consegui atribuir valores de texto pra array.. só q agora ta dando outro problema..

tipo.. ess ehe o codigo pra pegar do banco de dados.. todas a mensagens q forem pra aqeule usuario..e atribuir nas array

dim pmmsg

pmmsg = array()

dim i

i = 0

rs.movefirst

do while not rs.eof

if lcase(vlogin)= rs.fields("Para") then

i = i + 1

ReDim preserve pmmsg ( i )

pmmsg ( Ubound( pmmsg ) ) = rs.fields("MSG")

rs.movenext

exit do

else

rs.movenext

exit do

end if

loop

e esse he o cidgo pra pegar os valores dos vetoreS:

for i = LBound( pmmsg ) to UBound ( pmmsg )

  response.write pmmsg ( Ubound( pmmsg ) ) & "<br>"

  next

só q ta dando algo errado.. tipo.. eu to testandu com 3 msgs no BD para esse usuario.. ele pega 1.. ele mostra 2 vezes a mesmo msg

alguém sabe onde eu errei ? se foi na hora de atribuir as array.. ou na hora de resgatalas? valeu ai a ajuda!

[pacokaca]

reesolvido.. eu tinha colocado 2 exit do no lugar errado

valeu ai galear!! pode tranca

[cyberalexxx]

Antes de trancar, só vou lhe informar uma outra lógica para fazer aquilo q você quer.

1 - Quando criar o Recordset usar o Select pegando apenas os registros em que o campo Para seja igual a variavel vlogin.

2 - Depois usar Getrows que cria automaticamente o vetor.

Eu sei q você já resolveu, mais essas sugestões que eu passei agilizariam muito o processamento em sistemas de médio e grande porte.