Buonasera a tutti. Premesso che gli array mi sono indigesti, provo a chiedere una mano:

Da una query tiro fuori i dati di due colonne della tabella(dati, etichette) che mi dovranno popolare due array, uno con delle labels e l'altro con dati numerici per la costruzione di un grafico. I dati presi dalla query vanno messi negli array separati da virgola, come l'esempio che faccio:

data=Array(1,2,3,4,5)

labels=Array("a","b","c","d","e")

dove mi blocco e sul ciclo che mi consente di fare questo.

Mi date una mano a risolvere?

grazie infinite

F

Ciao forse sono stato poco chiaro nell'esposizione del problema; gli array che vedi sono statici e servono per cerare dei grafici a torta date quelle info data e labels in quel formato. Io vorrei ricreare la stessa situazione con dati che siano frutto di una query, che è la seguente:

Dim oConn, oRs
Set oRs= Server.CreateObject("ADODB.Recordset")
set oConn= Server.CreateObject ("ADODB.Connection")

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=db.mdb"

oRs.Open "Select data,labels From tab order by labels" ,oConn

ottenuto il risultato io lo passo in questa routines:

if not oRs.EOF then
while not oRs.EOF
data = array(oRs("data") & ", ")
labels = array(oRs("labels") & ", ")
oRs.movenext
wend
end if


a questo punto il grafico si genera ma esso contiene un solo valore al 100% tralasciando gli altri record, come se prendesse il primo record della tabella.

spero di essere stato più chiaro

grazie

F