Estrazione multipla variabili [avanzato]

[Vincent.Zeno]

non ho capito il discorso sui record doppi...

nel codice che posterò riesco ad evidenziare a schermo le date in rosso ma solo per l'ultimo record

tenendo il riconoscimento (il ciclo FOR) al di fuori dei WHILE (e non avendo accumulato le variabili, ad ogni passaggio sovrascrivi le variabili CheckIn CheckOut) ti rimane a disposizione solo l'ultimo record. dovresti stampare o lavorare il record durante il ciclo WHILE, e a quel punto il ciclo FOR non serve nemmeno più.

[Luca1317]

non ho capito il discorso sui record doppi...



tenendo il riconoscimento (il ciclo FOR) al di fuori dei WHILE (e non avendo accumulato le variabili, ad ogni passaggio sovrascrivi le variabili CheckIn CheckOut) ti rimane a disposizione solo l'ultimo record. dovresti stampare o lavorare il record durante il ciclo WHILE, e a quel punto il ciclo FOR non serve nemmeno più.

Il problema è che il ciclo for viene ciclato per n volte mentre il ciclo while, che estrae i record, per x volte.

[Vincent.Zeno]

Il problema è che il ciclo for viene ciclato per n volte mentre il ciclo while, che estrae i record, per x volte.

in pratica che vuol dire?

[Luca1317]

che viaggiano su 2 binari diversi: se il database ha 10 records il ciclo while "ciclerà" 10 volte mentre il ciclo for, quello che uso per stampare le date del calendario, per 30 volte;

quindi se dovessi seguire il tuo consiglio ("dovresti stampare o lavorare il record durante il ciclo WHILE") avrei difficoltà a metterlo in pratica proprio per il numero diverso di cicli del while e del for.

intendi questo, giusto?

SQL="SELECT * FROM Camera1 "                                                     
Set rec =Server.CreateObject("ADODB.Recordset")
SetRec=Conn.Execute(SQL)
While(NOT rec.EOF)


CheckIn=rec("CheckIn")
CheckOut=rec("CheckOut")



' ciclo for--------------------
for p=1 to xxxx

IF DateDiff("d",CheckIn,DataCorrente)<0 OR DateDiff("d",CheckOut,DataCorrente)>0 THEN
.... fai diventare il carattere della DataCorrentein rosso
END IF

NEXT
' ciclo for--------------------


rec.MoveNext
WEnd


rec.close
Set rec = nothing