Foros del Web » Programando para Internet » ASP Clásico »

Ayuda con ciclo For ó while

Estas en el tema de Ayuda con ciclo For ó while en el foro de ASP Clásico en Foros del Web. Que tal saludos a todos!!! resulta q estoy haciendo un conteo de registros con la siguiente consulta registros.open "SELECT COUNT(sexo) AS total FROM principal WHERE ...
  #1 (permalink)  
Antiguo 05/08/2008, 13:32
 
Fecha de Ingreso: abril-2008
Mensajes: 62
Antigüedad: 16 años, 1 mes
Puntos: 1
Busqueda Ayuda con ciclo For ó while

Que tal saludos a todos!!!

resulta q estoy haciendo un conteo de registros con la siguiente consulta

registros.open "SELECT COUNT(sexo) AS total FROM principal WHERE sexo='R2' and unidad='R1' and p10='R1' or sexo='R2' and unidad='R1' and p10='R2'" ,conexion
v10=registros("total")
response.write(v10)

de esta consulta la variable que ira cambiando es p es decir iria de aumento en1
p11,p12,p13.....p81
de hacerlo asi tendria q ejecutar este condigo 81 veces,

¿como puedo ejecutarlo por medio de un ciclo ya sea for o while ?

Saludos...
  #2 (permalink)  
Antiguo 05/08/2008, 14:09
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Respuesta: Ayuda con ciclo For ó while

Hola

Prueba así

Cita:
sql = "SELECT COUNT(sexo) AS total FROM principal WHERE sexo='R2' and unidad='R1' "
for i = 0 to 80
if i <> 0 then
sql = sql & "and p"&i&"='RS1' "
next 'i
sql = sql & "or sexo='R2' and unidad='R1' and p10='R2'"
registro.Execute(sql)
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #3 (permalink)  
Antiguo 05/08/2008, 16:09
 
Fecha de Ingreso: abril-2008
Mensajes: 62
Antigüedad: 16 años, 1 mes
Puntos: 1
Respuesta: Ayuda con ciclo For ó while

ok ya lo cheque y despues de algunos intentos y pruebas me tira el siguiente error

Error de compilación de Microsoft VBScript (0x800A041F)
No se esperaba 'Next'
/prueba.asp, línea 12
  #4 (permalink)  
Antiguo 06/08/2008, 12:12
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Respuesta: Ayuda con ciclo For ó while

ok, se me paso

Cita:
sql = "SELECT COUNT(sexo) AS total FROM principal WHERE sexo='R2' and unidad='R1' "
for i = 0 to 80
if i <> 0 then
sql = sql & "and p"&i&"='RS1' "
end if
next 'i
sql = sql & "or sexo='R2' and unidad='R1' and p10='R2'"
registro.Execute(sql)
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:45.