USE find instead to loop

[2009luca]

i create an array with:

'PR_ISTAT
SQL = "SELECT PR, PROVINCIA, COUNT(ISTATEXT) AS NUM FROM (SELECT DISTINCT PR, PROVINCIA, ISTATEXT FROM COMUNI_ISTAT) GROUP BY PR, PROVINCIA"
Set RST = New ADODB.Recordset
RST.CursorLocation = adUseClient
RST.Open SQL, CON, adOpenForwardOnly, adLockReadOnly

Erase ARRAY_PR_ISTAT()
ARRAY_PR_ISTAT = RST.GetRows(RST.RecordCount)
RST.Close
Set RST = Nothing

actually loop all value in array to get the NUM value based a IF PR="AT"

I think this is a bidimensional array and the find clausole i can use only on a monodimensional array...

dubt

 

[strongm]

I'v e said it before, and I'll say it again.

You keep using recordsets to populate VB structures and controls. And then want to perform fairly typical data filtering operations to access a subset of the data. Operations that could much more easily be carried out with the underlying recordset itself.

 

[Andrzejek]

How about (along strongm's suggestion):

...
RST.Open SQL, CON, adOpenForwardOnly, adLockReadOnly[blue]
RST.Filter = "[highlight #FCE94F]PR = 'AT'[/highlight]"[/blue]
...

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson