[VB6] Array vuoto, come saperlo?

[maximum]

Ho una funzione che carica un array a fronte di una query, ma se non trovo le informazioni da caricare l'array resta vuoto e quando al ritorno della stessa funzione eseguo il ciclo FOR, mi becco il messaggio di "INdice non comrpeso nell'intervallo".

Come faccio, preventivamente al ciclo FOR, a verificare se l'array è vuoto?

Grazie anticipatamente.

[ranza!!!123]

dovrebbe esserci la proprietà ubound

fai a.ubound e ti restituisce il numero di elementi dell'array a

[Gigi84]

in vb6 c'è la funzione Ubound
Ubound(array) che restituisce l'ultimo indice disponibile

[maximum]

Originariamente inviato da Gigi84
in vb6 c'è la funzione Ubound
Ubound(array) che restituisce l'ultimo indice disponibile

Ho provato a fare:

var = Ubound(Array)

ma l'assegnazione mi restituisce lo stesso errore che avevo.

[ranza!!!123]

hai provato con il mio codice?
fai
if array.ubound<>0 then
istruzioni..
..
..
else
'l'arrey è vuoto

[oregon]

Utilizza la On Error Resume Next per intercettare l'errore

[Gigi84]

Originariamente inviato da maximum
Ho provato a fare:

var = Ubound(Array)

ma l'assegnazione mi restituisce lo stesso errore che avevo.

dubito che ti restituisca "indice non compreso nell'intervallo"

prova a postare la parte di codice che ti da errore..

[vaitrafra]

Originariamente inviato da Gigi84
dubito che ti restituisca "indice non compreso nell'intervallo"

prova a postare la parte di codice che ti da errore..

Se l'array è solo istanziato è chiaro che ritorna errore.

non c'è niente da fare, in VB6 l'unico modo per essere sicuri e il seguente:

Public Function TestEmptyArray(ByRef a As Variant) As Boolean
    TestEmptyArray = False
    Dim dummy As Variant
    On Error GoTo Catch
        dummy = a(0)
Finally:
    Exit Function
Catch:
    If Err.Number = 9 Then
        TestEmptyArray = True
    End If
    GoTo Finally 
End Function

questa restituisce vero se l'array non è istanziato, falso se contiene anche solo un valore

[Gigi84]

Originariamente inviato da vaitrafra
Se l'array è solo istanziato è chiaro che ritorna errore.

in effetti è un po' che non programmo in vb6 , non ricordavo desse QUELL'errore, sai non è tanto esplicativo.

[oregon]

O anche

Public Function IsArrayEmpty(ByRef a As Variant) As Boolean
    On Error Resume Next
    IsArrayEmpty = (a(0) = a(0))
    IsArrayEmpty = (Err.Number = 9)
End Function

che restituisce True se l'array e' vuoto (senza elementi)