gravar dados numa array

[kaplan 0]

pessoal eu fiz um select assim

 

SqlCliShop = "Select Top 3 AnunCod "_& "			 From Anuncios_Shopping "_& "			Order By NewId() "Set RsCliShop = Conn.Execute(SqlCliShop)

Estes select ira me dar 3 numeros ok

e como eu faço para pegar estes 3 numeros e gravar numa variavel eu terei que usar array ne

o pior q eu naum conheço direito alguem pode me passar os lances para eu aprender???

 

vlw

[Bruno Bim 0]

isso mesmo, joga num arrayseu codigoSqlCliShop = "Select Top 3 AnunCod "_& " From Anuncios_Shopping "_& " Order By NewId() "Set RsCliShop = Conn.Execute(SqlCliShop)ai você implementa assimif not RsCliShop.eof thenvetTop = RsCliShop.getrowstop1=vetTop(0,0)top2=vetTop(1,0)top3=vetTop(2,0)acho q isos ja resolve..

[kaplan 0]

esta com erro este codigo

 

Subscrito fora do intervalo: '[number: 1]'top2=vetTop(1,0)

O que sera heim??

 

 

---------------------------------------------------------

legal vlw

 

pq depois eu ia fazer o mesmo select so que eu ia colocar uma clausula tipo falando que eu quero 7 registros so que seja difrente dos 3 numeros do meu primeiro select

 

SqlCliShop2 = "Select Top 7 AnunCod "_& "			 From Anuncios_Shopping "_& "			Where AnunCod <> '" & Array & "' "_& "			Order By NewId() "  Set RsCliShop2 = Conn.Execute(SqlCliShop2)

e aonde esta arrya eu coloco vertop?