FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problema de Xbrowse()
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Problema de Xbrowse()
Posted: Mon Jul 29, 2024 10:50 AM
Uso la versión 24.04 y xbrowse no despliega los datos de este recordset ADO.
Code (fw): Select all Collapse
#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.
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Marc Venken
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 11:36 AM

I think you have to use :

xbrowser( oRs2 )

Marc Venken

Using: FWH 23.08 with Harbour
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 12:01 PM

Thanks Mark, but changin xbrowse by xbrowser I have the same result.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Marc Venken
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 12:16 PM

Last try )))

xbrowser oRs2

Marc Venken

Using: FWH 23.08 with Harbour
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 01:04 PM
Marc Venken wrote:Last try )))

xbrowser oRs2
Lo probé así y da error de sintaxis.
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 01:54 PM
https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=40178

http://www.forums.fivetechsoft.com/viewtopic.php?t=38241

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 02:51 PM
karinha wrote:https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=40178

http://www.forums.fivetechsoft.com/viewtopic.php?t=38241

Regards, saludos.
Gracias por tu respuesta Karinha, pero el resultado es el mismo, probé con xbrowser SHOW SLNUM

De todos modos obtengo un xbrowser vacío.
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
alerchster
Posts: 137
Joined: Mon Oct 22, 2012 04:43 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 03:36 PM
Code (fw): Select all Collapse
#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
Regards



Ing. Anton Lerchster
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 04:12 PM
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.
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 04:26 PM
https://fivetechsoft.com/forums/viewtopic.php?t=6691

https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=25581

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Mon Jul 29, 2024 04:37 PM

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.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 06:56 AM

A la espera de los comentarios de Rao

regards, saludos

Antonio Linares
www.fivetechsoft.com
Marc Venken
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 07:12 AM
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 (fw): Select all Collapse
#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
Marc Venken

Using: FWH 23.08 with Harbour
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 10:28 AM

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.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 11:48 AM
Let us see what is the problem with XBrowse.

Can you please execute these simple tests and let us know the results?
Code (fw): Select all Collapse
? IsRecordSet( oRs2 )
? oRs2:Fields:Count()
? oRs2:RecordCount()
? oRs2:CursorLocation
? oRs2:ActiveConnection:CursorLocation
Regards



G. N. Rao.

Hyderabad, India
Static archive · New replies & topics via GitHub Discussions