Page 1 of 2
Problema de Xbrowse()
Posted: Mon Jul 29, 2024 10:50 am
by jose_murugosa
Uso la versión 24.04 y xbrowse no despliega los datos de este recordset ADO.
Code: Select all | Expand
#include "Fivewin.ch"
#include "xBrowse.ch"
#include "AdoDef.ch"
/*----------------------------------------------------------------------------------------------------------*/
FUNCTION Santi1( oCn, oCn2 )
LOCAL cSql2, oRs2, wfecha
wfecha:='20240723'
cSql2 := "declare @fecha char(8) = '" + wfecha + "' " + CRLF + ;
"select m1.tropanumero as tropa, m1.correlativo, m1.kilos+isnull(m2.kilos,0) as kilos, " + CRLF + ;
"ani.descripcion, m1.inac, m1.tipificacioninac, m1.kilos as kilosM1, isnull(m2.kilos,0) as kilosM2 " + CRLF + ;
"from C10304 m1 inner join P0021 ani on ani.codigo=m1.tipodeanimal " + CRLF + ;
"outer apply ( select * from C10304 m2 where m2.fecha=m1.fecha and " + CRLF + ;
"m2.lineadeproduccion=m1.lineadeproduccion and m2.correlativo=m1.correlativo and m2.mediares=2 ) m2 " + CRLF + ;
"where m1.fecha = @fecha and m1.tipoderegistro=4 and m1.mediares=1 order by m1.correlativo"
oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
DO WHILE !oRs2:Eof()
?oRs2:Fields( "descripcion" ):Value
oRs2:MoveNext()
ENDDO
xbrowse( oRs2 )
RETURN nil
Por medio del DO WHILE verifiqué que el recordset no está vacío y puedo recorrerlo, además, usando heidysql puedo ver el recordset perfectamente, sin embargo en este ejemplo xbrowse muestra como si no hubieran registros.
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 11:36 am
by Marc Venken
I think you have to use :
xbrowser( oRs2 )
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 12:01 pm
by jose_murugosa
Thanks Mark, but changin xbrowse by xbrowser I have the same result.
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 12:16 pm
by Marc Venken
Last try )))
xbrowser oRs2
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 1:04 pm
by jose_murugosa
Marc Venken wrote:Last try )))
xbrowser oRs2
Lo probé así y da error de sintaxis.
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 1:54 pm
by karinha
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 2:51 pm
by jose_murugosa
Gracias por tu respuesta Karinha, pero el resultado es el mismo, probé con xbrowser SHOW SLNUM
De todos modos obtengo un xbrowser vacío.
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 3:36 pm
by alerchster
Code: Select all | Expand
#include "Fivewin.ch"
#include "xBrowse.ch"
#include "AdoDef.ch"
/*----------------------------------------------------------------------------------------------------------*/
FUNCTION Santi1( oCn, oCn2 )
LOCAL cSql2, oRs2, wfecha
wfecha:='20240723'
cSql2 := "declare @fecha char(8) = '" + wfecha + "' " + CRLF + ;
"select m1.tropanumero as tropa, m1.correlativo, m1.kilos+isnull(m2.kilos,0) as kilos, " + CRLF + ;
"ani.descripcion, m1.inac, m1.tipificacioninac, m1.kilos as kilosM1, isnull(m2.kilos,0) as kilosM2 " + CRLF + ;
"from C10304 m1 inner join P0021 ani on ani.codigo=m1.tipodeanimal " + CRLF + ;
"outer apply ( select * from C10304 m2 where m2.fecha=m1.fecha and " + CRLF + ;
"m2.lineadeproduccion=m1.lineadeproduccion and m2.correlativo=m1.correlativo and m2.mediares=2 ) m2 " + CRLF + ;
"where m1.fecha = @fecha and m1.tipoderegistro=4 and m1.mediares=1 order by m1.correlativo"
oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
DO WHILE !oRs2:Eof()
?oRs2:Fields( "descripcion" ):Value
oRs2:MoveNext()
ENDDO
oRs2:MoveFirst()
xbrowser oRs2
RETURN nil
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 4:12 pm
by jose_murugosa
alerchster wrote:
#include "Fivewin.ch"
#include "xBrowse.ch"
#include "AdoDef.ch"
/*----------------------------------------------------------------------------------------------------------*/
FUNCTION Santi1( oCn, oCn2 )
LOCAL cSql2, oRs2, wfecha
wfecha:='20240723'
cSql2 := "declare @fecha char(8) = '" + wfecha + "' " + CRLF + ;
"select m1.tropanumero as tropa, m1.correlativo, m1.kilos+isnull(m2.kilos,0) as kilos, " + CRLF + ;
"ani.descripcion, m1.inac, m1.tipificacioninac, m1.kilos as kilosM1, isnull(m2.kilos,0) as kilosM2 " + CRLF + ;
"from C10304 m1 inner join P0021 ani on ani.codigo=m1.tipodeanimal " + CRLF + ;
"outer apply ( select * from C10304 m2 where m2.fecha=m1.fecha and " + CRLF + ;
"m2.lineadeproduccion=m1.lineadeproduccion and m2.correlativo=m1.correlativo and m2.mediares=2 ) m2 " + CRLF + ;
"where m1.fecha = @fecha and m1.tipoderegistro=4 and m1.mediares=1 order by m1.correlativo"
oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
DO WHILE !oRs2:Eof()
?oRs2:Fields( "descripcion" ):Value
oRs2:MoveNext()
ENDDO
oRs2:MoveFirst()
xbrowser oRs2
RETURN nil
No hay cambios.
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 4:26 pm
by karinha
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 4:37 pm
by jose_murugosa
Gracias Karinha por tu respuesta, no he podido aún encontrar una solución.
El recordset existe, contiene los datos esperados, sin embargo no es posible visualizarlo en el xbrowser, para mi es un problema en el xbrowser.
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 6:56 am
by Antonio Linares
A la espera de los comentarios de Rao
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 7:12 am
by Marc Venken
I keep wondering ...
This sample is from Rao on the Forum.
Would you be so kind and make a simple Sql request ? and see then...
Just curious until Mr. Rao comments
Code: Select all | Expand
#include "fivewin.ch"
function Main()
local oCn, oRs, aRows
oCn := FW_OpenAdoConnection( "c:\fwh\samples\xbrtest.mdb" )
oRs := FW_OpenRecordSet( oCn, "SELECT ID,FIRST,CITY FROM CUSTOMER WHERE ID < 6" )
XBROWSER oRs TITLE "RecordSet"
oRs:MoveFirst()
aRows := oRs:GetRows()
oRs:MoveFirst()
XBROWSER aRows TITLE "oRs:GetRows() " + Version()
oRs:Close()
oCn:Close()
return nil
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 10:28 am
by jose_murugosa
Gracias Mark, lo probé.
Si es sorprendente, el ejemplo de Nages funcionó a la perfección, así como muchas consultas que tengo sobre esta misma base de datos y varias de ellas incluso sobre las mismas tablas.
Sin embargo, no se porqué, esta consulta específica no se despliega.
Es extraño.
Siempre pruebo las consultas en heidysql antes de ponerlas en código y ésta se despliega perfectamente.
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 11:48 am
by nageswaragunupudi
Let us see what is the problem with XBrowse.
Can you please execute these simple tests and let us know the results?
Code: Select all | Expand
? IsRecordSet( oRs2 )
? oRs2:Fields:Count()
? oRs2:RecordCount()
? oRs2:CursorLocation
? oRs2:ActiveConnection:CursorLocation