Problema con PureAspGraph

[wegawhite]

Buonasera a tutti, non posso nascondere di avere sempre avuto dei problemi con gli array, soprattutto quelli di cui non si conosce la dimensione.

Sto cercando di valorizzare alcuni recordset estratti da una query all'interno di un array di cui non conosco la dimensione e questo è quello che ho scritto:

 set rs = server.createObject("ADODB.Recordset")
rs.open sSQL, connDB, 1, 3

if not rs.eof then  
  
dim myArray()
i=0
    
do while not rs.EOF

 Redim Preserve myArray(i)

if rs("campoDB") = "ciccio" then
    myCDQ = rs("campoWX")
 else
    myZAQ = rs("campoWX")
end if

 i = i +1  

	primoArray = Array("Gen", "Feb", "Mar", "Apr", "Mag", "Giu", "Lug")
	secondoArray = Array(rs("campoDB")) 
	       
   rs.MoveNext
loop
end if

stampa il valore

 myZAQ = rs("campoWX")

e poi va in errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/risorsepc/Esporta.asp, line 31

Qual'è lo sbaglio????

Grazie!

[imente]

ma commenti mai???

non si capisce nulla di ciò che hai scritto.

qual'è l'obiettivo di quello script?

fra l'alto fai un dim myArray() e poi non lo usi
poi usi invece i myXXX senza dichiararli...

mmm :rollo:

----

se myCDQ è un array stai sbagliando approccio

poi... secondoArray lo reimposti ad ogni giro come un ARRAY con dentro un solo valore che è testo ("ciccio" o altro) e che poi non riusi...

ma allora che lo fai a fare secondoarray?

e primoArray? ogni avanzamento del recordset lo rifai, sempre uguale, senza cambiargli una "virgola"..
perchè?
forse ti serve dopo? allora dovresti impostarlo DOPO il LOOP.

il resto è comunque poco comprensibile
se me lo spieghi ti do una mano...

[wegawhite]

ti ho spedito un msg email, ricevuto?

[imente]

si... ora se mi dai due minuti ci lavoro

[imente]

tutto risolto...

gli ho spiegato via email...
il suo problema non era legato alle dimensione degli array...

cmq se qualcuno ha trovato il topic per info sugli array...

UBOUND(nomearray)
restituisce la dimensione dell'array

se è un array multidimensionale... come MyArray(2,5)
UBOUND(MyArray,1) restituisce 5

---

invece per ridimensionare un array senza perdere i contenuti

'lo si dichiara così
Dim MyArray()
'poi lo si può ridimensionare quante volte si vuole così
Redim Preserve MyArray(5)

---

inoltre come avevo notato prima (avendo avuto tutto lo script) le variabili I e MYARRAY sono assolutamente inutilizzate... e anche gli altri appunti che avevo fatto si sono rivelati corretti...

capita :rollo:

[wegawhite]

OK, grazie ma c'è qualcosa che non funziona... l'ho evidenziato in un msg email...

guarda qui

script

[imente]

server down...

[wegawhite]

Originariamente inviato da imente
server down...

[wegawhite]

Originariamente inviato da wegawhite

[imente]

tutto fatto
funziona perfettamente

ho anche aggiunto la funzione per la costruzione dinamica degli Array, in abse agli anni presenti sul DB

ciao