VB: Mettere in un array il risultato di una query

[ramengo]

Ciao a tutti,

vorrei creare un array con i dati che estraggo dalla query per poi procedere all'estrazione casuale di uno di questi elementi dell'array.
Come posso fare?

Grazie mille

[MMarzia]

controlli che il recordset non sia vuoto

cicli sul recordset e aggiungi il valore del record all'array

randomizzi un numero

prendi l'elemento di quell'indice

[ramengo]

ehm...


Allora il recordset non è vuoto.. ma mi spieghi più semplicemente come carico l'array??

[DeBe99]

Se ti serve solamente per estrarre un record a caso dal RecorSet puoi fare cosi:
[CODE]
Dim x as Integer
x=rnd() * RS.RecordCount 'Estrae un numero a caso tra 0 e RS.RecordCount
RS.Move x,adBookmarkFirst 'Sposta il cursore di x posizioni avanti partendo dal primo record
[\CODE]

[ramengo]

Si per il random va bene, ma prima di fare questa estrazione vorrei caricarmi in un array i record che corrispondono al criterio dell a prima query e poi usare il random per estrarre l'indice dell'elelmento dell'array da estrarre.

[DeBe99]

Dim Arr() as string
Dim x as integer

x=0
redim Arr(RS.RecordCount)   'Ridimensiono array
While not RS.EOF
   Arr(x)=rs(0)
   RS.MoveNext
   x=x+1
Wend

[ramengo]

Grazie,
ora lo provo

A dopo

[ramengo]

Solo una cosa....

Cosa intendi per RIDIMENSIONO ARRAY???

_______________________________________________
Dim Arr() as string
Dim x as integer

x=0
redim Arr(RS.RecordCount) 'Ridimensiono array
While not RS.EOF
Arr(x)=rs(0)
RS.MoveNext
x=x+1
Wend

[DeBe99]

Dim serve per dichiarare una variabile o un array,tra parentesi metti il numero di elementi dell'array

Dim Array(10) as string

mentre con ReDim ridimensioni (ovvero ridichiari il numero di elementi) un array già precedentemente dichiarato

ReDim Array(10)

Volendo si puo usare anche l'opzione Preserve per aumentare il numeri di elementi dell'array senza distruggere quelli già inseriti

ReDim Preserve Array(Ubound(Array)+1)

[ramengo]

Grazie mille!


Spero di postare il codice appena finito i test