01/06/2005, 06:00
|
| | Fecha de Ingreso: mayo-2005 Ubicación: Santiago
Mensajes: 10
Antigüedad: 19 años, 1 mes Puntos: 0 | |
La sentencia completa es bastante larga, asi que te muestro desde el inicio hasta los campos en donde me falla, los que son EDAD_DESDE, EDAD_HASTA, SEL_SUP_PROFESION, SEL_SUP_INSTITUCION:
************************************************** *****
if Request.QueryString("SQL_REG")="" then
SQL="SELECT DISTINCT " &_
"POSTULANTE.POST_RUT,POSTULANTE.POST_DV," &_
"POSTULANTE.POST_NOMBRES," &_
"POSTULANTE.POST_APEL_PATE," &_
"POSTULANTE.POST_APEL_MATE," &_
"POSTULANTE.POST_FECH_NACI "
Tablas="FROM POSTULANTE " 'TABLAS INVOLUCRADAS EN LA CONSULTA.
Condiciones="WHERE " 'CONDICIONES DE LA CONSULTA
Orden=" ORDER BY POSTULANTE.POST_APEL_PATE, " &_
"POSTULANTE.POST_APEL_MATE, POSTULANTE.POST_NOMBRES"
'SE ORDENA EL RESULTADO POR TRES CRITERIOS,
'APELLIDO PATERNO, APELLIDO MATERNO, Y NOMBRES.
Clave_Condi=0 ' INDICA SI HAY CONDICIONES PARA LA CONSULTA.
if Request.Form("POST_NOMBRES")<>"" then
Condiciones=Condiciones & "(POSTULANTE.POST_NOMBRES LIKE '%" &_
Request.Form("POST_NOMBRES") & "%') "
Clave_Condi=1
end if
if Request.Form("POST_APEL_PATE")<>"" then
if Clave_Condi=1 then
Condiciones=Condiciones & "AND "
end if
Condiciones=Condiciones & "(POSTULANTE.POST_APEL_PATE LIKE '%" &_
Request.Form("POST_APEL_PATE") & "%') "
Clave_Condi=1
end if
if Request.Form("POST_APEL_MATE")<>"" then
if Clave_Condi=1 then
Condiciones=Condiciones & "AND "
end if
Condiciones=Condiciones & "(POSTULANTE.POST_APEL_MATE LIKE '%" &_
Request.Form("POST_APEL_MATE") & "%') "
Clave_Condi=1
end if
if Request.Form("EDAD_DESDE")<>"" then
Anno=Year(Now())-cInt(Request.Form("EDAD_DESDE"))
Fecha="1-1-" & Anno
if Clave_Condi=1 then
Condiciones=Condiciones & "AND "
end if
Condiciones=Condiciones & "(POSTULANTE.POST_FECH_NACI<'" &_
Fecha & "') "
Clave_Condi=1
end if
if Request.Form("EDAD_HASTA")<>"" then
Anno=Year(Now())-cInt(Request.Form("EDAD_HASTA"))
Fecha="1-1-" & Anno
if Clave_Condi=1 then
Condiciones=Condiciones & "AND "
end if
Condiciones=Condiciones & "(POSTULANTE.POST_FECH_NACI>'" &_
Fecha & "') "
Clave_Condi=1
end if
if Request.Form("POST_REGION")<>"0" then
if Clave_Condi=1 then
Condiciones=Condiciones & "AND "
end if
Condiciones=Condiciones & "(POSTULANTE.POST_REGI_NUMERO=" &_
cInt(Request.Form("POST_REGION")) & ") "
Clave_Condi=1
end if
Clave_Tabla=0 'NOS INDICA SI YA SE ANEXO LA TABLA CORRESPONDIENTE.
if Request.Form("SEL_SUP_INSTITUCION")<>"" then
if Clave_Condi=1 then
Condiciones=Condiciones & "AND "
end if
Tablas=Tablas & "INNER JOIN " &_
"EST_SUPERIORES ON " &_
"POSTULANTE.POST_RUT = EST_SUPERIORES.ESUP_POST_RUT " &_
"INNER JOIN " &_
"INSTITUCION_SUPERIOR ON " &_
"EST_SUPERIORES.ESUP_NUMERO =
INSTITUCION_SUPERIOR.INSU_ESUP_NUMERO " &_
"AND " &_
"EST_SUPERIORES.ESUP_POST_RUT =
INSTITUCION_SUPERIOR.INSU_ESUP_POST_RUT "
Clave_Tabla=1
if StrComp(Trim(Request.Form("SEL_SUP_INSTITUCION")), "OTRA UNIVERSIDAD")=0 or
StrComp(Trim(Request.Form("SEL_SUP_INSTITUCION")), "OTRA UNIVERSIDAD")=0 then
Condiciones=Condiciones & "(INSTITUCION_SUPERIOR.INSU_NOMBRE_OTRO='" &_
Request.Form("TEX_SUP_INSTITUCION") & "') "
Clave_Condi=1
else
Condiciones=Condiciones & "(INSTITUCION_SUPERIOR.INSU_INST_NOMBRE='" &_
Request.Form("SEL_SUP_INSTITUCION") & "') "
Clave_Condi=1
end if
end if
if Request.Form("SEL_SUP_PROFESION")<>"" then
if Clave_Condi=1 then
Condiciones=Condiciones & "AND "
end if
if Clave_Tabla=0 then
Tablas=Tablas & "INNER JOIN " &_
"EST_SUPERIORES ON " &_
"POSTULANTE.POST_RUT = EST_SUPERIORES.ESUP_POST_RUT " &_
"INNER JOIN " &_
"PROFESION_SUPERIOR ON " &_
"EST_SUPERIORES.ESUP_NUMERO =
PROFESION_SUPERIOR.PRSU_ESUP_NUMERO " &_
"AND " &_
"EST_SUPERIORES.ESUP_POST_RUT =
PROFESION_SUPERIOR.PRSU_ESUP_POST_RUT "
else
Tablas=Tablas & "INNER JOIN " &_
"PROFESION_SUPERIOR ON " &_
"EST_SUPERIORES.ESUP_NUMERO =
PROFESION_SUPERIOR.PRSU_ESUP_NUMERO " &_
"AND " &_
"EST_SUPERIORES.ESUP_POST_RUT =
PROFESION_SUPERIOR.PRSU_ESUP_POST_RUT "
end if
if StrComp(Trim(Request.Form("SEL_SUP_PROFESION")),"O TRA PROFESIÓN")=0 then
Condiciones=Condiciones & "( PROFESION_SUPERIOR.PRSU_NOMBRE_OTRO='" &_
Request.Form("TEX_SUP_PROFESION") & "') "
Clave_Condi=1
else
Condiciones=Condiciones & "(PROFESION_SUPERIOR.PRSU_PROF_NOMBRE='" &_
Request.Form("SEL_SUP_PROFESION") & "') "
Clave_Condi=1
end if
end if
****************************************
y para abajo sigue con otros if que siguen conformando la consulta.., si me puedes ayudar sería grandioso ya que esto me tiene pegado hace rato... |