Array e condizione

[orcim]

Ciao ho questo problema:

con una query tipo Union estraggo alcuni dati da un database access ed ottengo:

8
4
12
14
20
22
50
50
53
32
41
24

vorrei ad ognuno dei valori estratti assegnare un anno ed ho scritto così:

Dim a, b
a = Array("2000", "2000", "2001", "2001", "2002", "2002", "2003", "2003", "2004", "2004", "2005", "2005")
b = Array(8, 4, 12, 14, 20, 22, 50, 50, 53, 32, 41, 24)

e poi richiamo così:

Call MiaFunzione(a, b)

ma lo script restituisce:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch

in corrispondenza di questa condizione:

if rs("ValoreAAA") = A then
    MiaVar = rs("ValoreAAA")
 else
    MiaVar = rs("ValoreAAA")
end if

Che c'è che non va????

[optime]

posta la funzione e come la richiami

[orcim]

Funzione:

Function setData(x, y)
	
		Dim i
		Redim Preserve arrItems (ubound(x))
		Redim Preserve arrValues(groupingCount-1, ubound(y))
		For i=0 To ubound(y)
			arrItems(i) = x(i)
			arrValues(lngValueSetCount, i)= y(i)
		Next 
		lngValueSetCount = lngValueSetCount + 1
		
	End Function

Che richiamo con:

Call objGraph.setData(a, b)

[optime]

non vedo corrispondenza con quello che hai scritto prima, e cioe'

if rs("ValoreAAA") = A then
MiaVar = rs("ValoreAAA")
else
MiaVar = rs("ValoreAAA")
end if


sii lampada, illuminami

[Mems]

Evidentemente i due array hanno indice massimo diverso.

[optime]

Originariamente inviato da Mems
Evidentemente i due array hanno indice massimo diverso.

non darebbe TYPE MISMATCH, ma OUT OF BOUNDS (imho)

[orcim]

Non capisco, potete essere più chiari?
grazie

[optime]

rispondi al mio post.

[Mems]

Originariamente inviato da optime
non darebbe TYPE MISMATCH, ma OUT OF BOUNDS (imho)

Allora vuol dire che cerca di trattare come array qualcosa che non è un array... marinarrey...

[orcim]

Originariamente inviato da optime
rispondi al mio post.

L'idea è la seguente, correggimi se sbaglio:

- con una query del tipo UNION estraggo dei valori dal database access (la somma degli iscritti e dei cancellati dalla newsletter suddivisi per anno);

- il risultato di questa estrazione vorrei abbinarlo agli anni.

Mi spiego?