[Resolvido] Resultado do Select em um Array

[Gilberto Jr 26]

Pessoal, boa noite.

Eu estou fazendo um select e esse select vai trazer varios registro. Eu preciso jogar esse registro em uma Array para apartir deles fazer um insert em outra tabela.

 

segue abaixo o meu codigo

'aqui conecto no banco de dados normalmente

'em seguinda faço o meu select

dim rs, modulos
set rs = con.execute("select * from tb_modulos")
'aqui recupero a coluna com os dados que eu preciso.
modulos = rs("MODULO")

'em seguinda começo o meu array

arrayModulos = Split(modulo,",")
For i = 0 Ubound(arrayModulos)
response.write(arrayModulos(i))
next

 

Ele so esta escrevendo o primeiro registro da tabela.

tem como vcs me darem um help?

[saloeric 1]

só esta a recuperar o primeiro porque não tem nenhum ciclo para percorrer a tabela

 

'aqui conecto no banco de dados normalmente

'em seguinda faço o meu select

dim rs,ct
dim arraymodulos()
set rs = con.execute("select * from tb_modulos")
'aqui recupero a coluna com os dados que eu preciso.
ct = 0
while not rs.eof
redim preserve arraymodulos(ct)
arraymodulos(ct) = rs("modulo")
ct = ct + 1
rs.movenext
wend
rs.close
set rs = nothing

[Gilberto Jr 26]

Obrigado, deu certo.