PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → Recorrer un Query
Recorrer un Query
Iniciado por victor, dez., 15 2008 3:47 PM - 2 respostas
Publicado em dezembro, 15 2008 - 3:47 PM
Hola

Windev Express 12

Necesito recorrer un Query tengo el siguiente codigo

HExecuteQuery(EXPRESS_QRY_Parametros,hQueryDefault,EXPRESS_DASHDATA.DashId)
HReadFirst(EXPRESS_QRY_Parametros)
WHILE NOT HOut(EXPRESS_QRY_Parametros)
// Process the record
TableAddLine(TablaParametro,EXPRESS_QRY_Parametros.DescParametro, EXPRESS_QRY_Parametros.Valor,EXPRESS_QRY_Parametros.nombreCampoValor)
HReadNext(EXPRESS_QRY_Parametros)
END

El tema es que cuando el query EXPRESS_QRY_Parametros no tiene registros
HReadFirst(EXPRESS_QRY_Parametros) siempre me devuelve true como si encontrara
registro y en realidad no tiene nada.

Como debo buscar o recorrer un query luego de ejecutar HExecuteQuery

Desde ya muchas gracias

Victor Pereyra
Argentina-Cordboba
Publicado em dezembro, 16 2008 - 8:01 AM
Hola victor..

First of all I don't think that you will need to use the boolean value of HReadFirst(...)in your code? entering in the 'while' loop wouldn't do any harm.

Any way, If I were you I should
-Check the ORDER BY field of the query ..
or..
-Make sure that the source file deosn't contain empty lines entered by mistake in the source file, especialy when you are using an "id" as a parameter

Other wise your code seems to be correct

tip:
To fill a table with data from a query better : open the description window an indicate that the query is the source of the object "Table"

ciao
Publicado em dezembro, 25 2008 - 12:20 PM
for each <query>
......
end

"victor" <vihupe@yahoo.com.ar> escribió en el mensaje de noticias
news:d9b3e43dbcf01e5dedf8c2ed1b830c7e@news.pcsoft...

Hola

Windev Express 12

Necesito recorrer un Query tengo el siguiente codigo

HExecuteQuery(EXPRESS_QRY_Parametros,hQueryDefault,EXPRESS_DASHDATA.DashId)
HReadFirst(EXPRESS_QRY_Parametros)
WHILE NOT HOut(EXPRESS_QRY_Parametros)
// Process the record
TableAddLine(TablaParametro,EXPRESS_QRY_Parametros.DescParametro,
EXPRESS_QRY_Parametros.Valor,EXPRESS_QRY_Parametros.nombreCampoValor)
HReadNext(EXPRESS_QRY_Parametros)
END

El tema es que cuando el query EXPRESS_QRY_Parametros no tiene registros
HReadFirst(EXPRESS_QRY_Parametros) siempre me devuelve true como si
encontrara
registro y en realidad no tiene nada.

Como debo buscar o recorrer un query luego de ejecutar HExecuteQuery

Desde ya muchas gracias

Victor Pereyra
Argentina-Cordboba