problema con select e do while

[techno]

Salve a tutti
O fatto queste stringhe di codice:

rec.pageSize= 1
rec.open ("Select * From magazzino Where DataInsersione<> Null order by Nome Asc")
if rec.recordcount> 0 then
rec.AbsolutePage= Cint(page)
Dimm ciclo, articoli
ciclo= 0
articli= o
Do While Not (rec.EOF) And Not (ciclO= rec.pageSize) And Not (artioli= 10)
....

In sintesi o vouluto effettuare una paginazione in cui compaia un articolo per volta fino a 10 (artioli= 10)

i campi nel database sono 30 e quindi invece di fermarsi a 10 continua fino a 30
LE O PROVATE TUTTE MA NON CI SONO RIUSCITO.
Come posso risolvere questo problema?

[aeroplanino]

ti sei ricordato di incrementare la variabile articoli?

articoli = articoli +1

[techno]

Si scusa o dimenticato di inserirlo nel codice che o postato ecco il codice corretto:

rec.pageSize= 1
rec.open ("Select * From magazzino Where DataInsersione<> Null order by Nome Asc")
if rec.recordcount> 0 then
rec.AbsolutePage= Cint(page)
Dimm ciclo, articoli
ciclo= 0
articli= o
Do While Not (rec.EOF) And Not (ciclO= rec.pageSize) And Not (artioli= 10)
ciclo= ciclo + 1
articoli= articoli + 1
....

[techno]

Qualcuno mi sa drie qualcosa????

[alemux]

puoi fare 'na roba:

prima del ciclo inizializzi una variabile N=0
man mano che fai il ciclo incrementi N = N + 1 facendo il controllo:
if N < 10 then
N = N + 1
'....continui con il ciclo
else
exit do
'....chiudi ciclo
end if

dovrebbe andare....