Bucle en VB6 con consulta SQL

[mallu1983]

Hola,

Tengo una consulta SQL y me gustaria que la hiciese en paquetes de 99, es decir, cuando ROWNUM sea de 1 a 99 la primera vez, de 99 a 198 la segunda....como puedo hacerlo, no se que bucle realizar

SQL = " SELECT DISTINCT ORCOID,ORNOMBRE AS ENTIDAD,ORNODIR AS DIRECCION,ORNRCOPO AS CP,O1NOUSR AS USUARIO,O1NOPWS AS PASWORD,ORNOEMLCO AS EMAIL,LONOMBRE AS LOCALIDAD,PVNOMBRE AS PROVINCIA "
SQL = SQL & " From ORGANISM, LOCALIDA, PROVINC, FORUSU "
SQL = SQL & " WHERE ORCOL37P in(select orcol37p "
SQL = SQL & " From ORGANISM "
SQL = SQL & " where ORCOL37P='38' OR ORCOL37P='22' OR ORCOL37P='67' OR ORCOL37P='26' OR ORCOL37P='27' OR ORCOL37P='28' OR ORCOL37P='32') "
SQL = SQL & " and "
SQL = SQL & " ORGANISM.ORCOLO = LOCALIDA.LOCODIGO(+) "
SQL = SQL & " AND LOCALIDA.LOCOPV = PROVINC.PVCODIGO(+) "
SQL = SQL & " AND ORGANISM.ORCOID=FORUSU.O1COL37(+) "
SQL = SQL & " AND ORNOEMLCO <>' ' "
SQL = SQL & " AND ROWNUM BETWEEN '1' AND '99' "

[meula]

Hola,
Tal vez quieras decir de 1..99 100..199 200..299 lo veo más facil, algo asi como:

For i=1 to X
SQL=....
SQL = SQL & " AND ROWNUM BETWEEN '" & ((i-1)*100)+1 & "' AND '" & (i*100)-1 & "' "
next i

[mallu1983]

Y ahí X seria el numero total de lineas?Soy novata, perdon.

[meula]

Sí claro es una variable que deberia conocer más lo que quieres hacer para decirte que valor debe tener, digamos que es el número de páginas, por ejemplo si X=3 te sacará 3 páginas de 100 registros , una en cada iteración