Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 15892

fast find in array

$
0
0
i fill a Variant array with:

Code:

Dim MIO_ARRAY_FESTE () as Variant

 Sub ARRAY_FESTIVI()

    SQL = "SELECT DATE FROM FESTIVI"
    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open SQL, CNN, adOpenForwardOnly, adLockReadOnly
    RS.Sort = ("DATE")

    RS.MoveFirst
    Erase MIO_ARRAY_FESTE()
    MIO_ARRAY_FESTE = RS.GetRows()
    RS.Close
    Set RS = Nothing

End Sub

all value in array are Date, how to fast find MyDate var in array?

Viewing all articles
Browse latest Browse all 15892

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>