aRrAy preencher com conteudo do banco

[filipescoob 1]

Salve galera olha eu aqui outra vez...

 

galera como que eu faço para preencher este array com conteudo de um banco de dados uma tabela de extensões cadastradas

 

.Extensions = Array("txt", "jpg", "zip", "doc", "swf", "rar", "xls","exe")

 

valeu fui...

[saloeric 1]

assim:

 

dim extensoes(30)sql="select * from extensoes"rs.open sql,conexaoc=0do while not rs.eofextensoes(c)=rs("nomeextensao")c=c+1if c>29 thenexit do ' isto é só para não dar erro por causa do array.end ifrs.movenextloop

[filipescoob 1]

Valeu kara foi de grande ajuda muito obrigado mesmo...