[vb6] errore di run-time 13

[Fenix'89]

nrooms = Labelguestroomsnum.Caption
Load rotation(nrooms)
For a = 1 To UBound(nrooms)
rotation(a).Caption = SQLRead("SELECT rotation FROM guestrooms WHERE id='a'")
Next a


Cosa c'è di errato?????
mi da errore nella linea

For a = 1 To UBound(nrooms)


e mi dice Tipo non corrispondente ...


Che devo fare?????

[oregon]

Ma nrooms cosa e'? ... Con la Ubound dovrebbe essere un array ma non mi pare ...

[Fenix'89]

scusate il codice era sbagliato

il codice è questo

nrooms = Labelguestroomsnum.Caption
Load rotation(2)
a = 0
For a = 1 To 2
rotation(a).Text = SQLRead("SELECT rotation FROM guestrooms WHERE id='" & a & "'")
Next a


ma quando vado a controllare il contenuto ad esempio di rotation(1).text mi dice che l'elemento 1 della matrice di controllo non esiste ....

[oregon]

E l'errore 13 che fine ha fatto?

In ogni caso, se fai la

Load rotation(2)

viene creato un controllo con indice 2 ... quello con 1 non esiste e continua a non esistere ...

[MItaly]

Se stai ancora parlando di questo, perché carichi i record uno alla volta, perdendo un sacco di tempo ogni volta? Non fai prima ad ottenere un recordset da cui poi estrarre i dati da mettere nelle label?

[Fenix'89]

come posso fare????

[MItaly]

Dipende dalle librerie con cui ti interfacci con il DB. Cosa stai usando?

[Fenix'89]

Inserisco un allegato con i riferimenti del progetto ....

[oregon]

Quella libreria si chiama ADO ... ma non si puo' parlare di DB in un thread che ha per titolo

errore di run-time 13

... cosi' non si capisce nulla ...

E poi, il problema, qual e'? E' in questo thread o in un altro?