Originariamente inviato da ramengo
OK perfetto,
Ora lo devo modificare in questo modo.
Ti spiego:
In sostanza io estraggo record dal DB in maniera casuale e me li carico nell'array, ma se un record già è stato preso e inserito nell'array non lo memorizzo (ecco il perchè del codice che ho richiesto.)
allora puoi fare così:
codice:
Dim strArray() As String
Dim mioRS As New ADODB.Recordset

mioRS ...'qui carichi il recordset
...
strGiorno = "..." 'la variabile la imposti tu

mioRS.MoveFirst
Redim strArray(1) 'ridimensioni l'array
strArray(0) = mioRS(0) 'gli assegni il 1° valore

'fai un ciclo sul recordset fino alla sua fine
Do Until mioRS.EOF
   'assegni alla tua variabile il valore che 
   trovi nel record corrente
   strGiorno = mioRS(0) 
   'fai un ciclo sul'array
   For i = 0 to UBound(strArray) 
       'se trova il valore uguale esce
       If mioRS(0) = strGiorno Then Exit For
       'ridimensioni l'array mantenendo i valori 
       già presenti in esso             
       Redim Preserve strArray(UBound(strArray) + 1)
       strArray(UBound(strArray)) = mioRS(0)
   Next i

   mioRS.MoveNext
Loop
spero sia ciò che ti serve e spero funzioni perchè non l'ho provato