gestione array

[kodode]

Ciao a tutti!


giuro che ho cercato prima di postare....

io questo codice

Dim PCBdin()
....

ReDim PCBdin(500)

perchè se faccio

response.write( ISNull( PCBdin() ) )

mi restituisce False ???

come faccio a sapere se questo array è vuoto??? (non ci siamo elementi all'interno???)

grazie

[maximum]

if cint(UBound(PCBdin())) <> 0 then
   response.write(UBound(PCBdin()))
else
   response.write("Array = 0")
end if

[optime]

@max, se fai

ReDim PCBdin(500)
Response.write ubound(PCBdin)

cosa pensi che ti risponda? zero?

@coccodè: che intendi per "vuoto"?

[kodode]

scusa ma non capisco con il tuo codice mi scrive

Indice non incluso nell'intervallo


Dim PCBdin()

ReDim PCBdin(500)


if cint(UBound(PCBdin())) <> 0 then
response.write(UBound(PCBdin()))
else
response.write("Array = 0")
end if

per vuoto intendo che non contenga elementi...

[optime]

non c'è una istruzione che controlli il "vuoto".

puoi però fare così

ReDim PCBdin(500)
'Response.write ubound(PCBdin)
Response.Write Len(Trim(Join(PCBdin)))

[kodode]

porta pazienza ma sono proprio neofita...

se l'array è "vuoto" cioè all'interno non ha elementi mi scrive 0 (ZERO) invece se ci sono elementi mi scrive " Tipo non corrispondente: 'Join' "

che significa??

[optime]

posta il tuo codice

[kodode]

Dim PCBdin()
....

'QUERY
sqlPCA = "SELECT * FROM APC WHERE PCAidr = " & PCAidr

'APERTURA QUERY
AsqlUNO( sqlPCA )
'RECORD TROVATI
APCtro = rsUNO.RecordCount
ReDim PCBdin( APCtro )
'VERIFICA RECORD TROVATO
If APCtro > 0 Then
.....
PCBdin= rsUNO.Fields("PCBdin")
......
End If
.....
Response.Write Len(Trim(Join(PCBdin)))

[optime]

kokko, cosa stai cercando di fare? a cosa serve testare l'array?

e perché fai

PCBdin= rsUNO.Fields("PCBdin")


???


PCBdin dovrebbe essere un array, ma in quel caso lo tratti come una stringa

[kodode]

scusa.... ti ho detto che sono un neofita ho sbagliato a scrivere... correggo...



Dim PCBdin()
....

'QUERY
sqlPCA = "SELECT * FROM APC WHERE PCAidr = " & PCAidr

'APERTURA QUERY
AsqlUNO( sqlPCA )
'RECORD TROVATI
APCtro = rsUNO.RecordCount
ReDim PCBdin( APCtro )
'VERIFICA RECORD TROVATO
If APCtro > 0 Then
.....

'QUERY
sqlPCB = "SELECT * FROM APC WHERE PCBpca = " & PCAidr

'APERTURA QUERY
AsqlDUE( sqlPCB )
'RECORD TROVATI
PCBtro = rsDUE.RecordCount

'VERIFICA RECORD TROVATO
If PCBtro > 0 Then

Do While Not rsDUE.Eof
PCBdin(PCAsol) = rsUNO.Fields("PCBdin")
'POSIZIONAMENTO
rsDUE.MoveNext
Loop
End If
rsDUE.Close
....
End If
.....
Response.Write Len(Trim(Join(PCBdin)))