[Resolvido] Array

[Public2004 79]

Galera, deu um branco aqui...

 

Faço uma consulta no bd e gostaria que o resultado fosse armazenado dessa forma:

valor = Array(100, 125, 260)
periodo = Array("Jan", "Fev", "Mar")

É pq vou precisar dessas Array na seq. do cod.

 

Vlw.

[hargon 64]

Você consegue fazer isso utilizando GetRows.

 

http://www.w3schools.com/ado/met_rs_getrows.asp

[Public2004 79]

Valew a dica!

arrRS = objRS.GetRows
objRS.Close
Set objRS = Nothing

If IsArray(arrRS) Then
	For i = 0 to Ubound(arrRS,2)
		st = st &","& arrRs(0, i)
		nd = nd &","& arrRs(1, i)
	Next
End If

Abs.

[hargon 64]

Boa http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif