FWH: MySql/MariaDB: RowSet object

[luiz53]

CHANGE LINE 35 TO

Code: Select all  Expand view

   oRs:bOnChangePage = { || vsay := alltrim(STR(oRs:nCurrentPage))+" / "+alltrim( STR(oRs:nMaxPages)),;
                            oSay:refresh(),oBrw:Refresh() }
 

[luiz53]

MR Rao...

OLD - Don´t work key down or key UP

Code: Select all  Expand view

oRs:lAutoPage     := .t.
 

NEW - BUT don´t work oRs:bOnChangePage with key down or key UP

Code: Select all  Expand view

oRs:lAutoExpand   := .t.
 

https://www.youtube.com/watch?v=DgP54iw ... e=youtu.be

[nageswaragunupudi]

In your dolphin example also pressing down arrow key does not go to next page. I sent you a sample which works exactly like your sample.
Note: Personally I do not like this kind of paging.

I prefer this
viewtopic.php?f=3&t=33830&p=199916&hilit=million#p199916

[nageswaragunupudi]

Dynamically changing fields, [table], [connection] of a Rowset at runtime and also change the XBrowse:

This is possible from FWH 18.05:

Code: Select all  Expand view

oRs := oCn:RowSet( cSql )
// set up browse
// during runtime
//

oRs:oCn := oNewCn // Optional
oRs:ReQuery( cNewSql ) // same or different table
oRs:SetXbrColumns( oBrw )
 

Sample:

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oCn, oRs, oDlg, oBrw
   local aSql  := {  "select id,first,city, salary from customer", ;
                     "select * from states", ;
                     "select * from annual" }

   oCn   := FW_DemoDB()
   oRs   := oCn:RowSet( aSql[ 1 ] )

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL ;
      TITLE "SWITCH TABLES/FIELDS AT RUNTIME"

   @ 60, 20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oRs AUTOCOLS CELL LINES NOBORDER
   oBrw:CreateFromCode()

   @ 20, 20 BTNBMP PROMPT "CUSTOMER" ;
      SIZE 100,35 PIXEL OF oDlg FLAT ;
      ACTION ( CursorWait(), oRs:Requery( aSql[ 1 ] ), oRs:SetXbrColumns( oBrw ) )

   @ 20,140 BTNBMP PROMPT "STATES" ;
      SIZE 100,35 PIXEL OF oDlg FLAT ;
      ACTION ( CursorWait(), oRs:Requery( aSql[ 2 ] ), oRs:SetXbrColumns( oBrw ) )

   @ 20,260 BTNBMP PROMPT "ANNUAL" ;
      SIZE 100,35 PIXEL OF oDlg FLAT ;
      ACTION ( CursorWait(), oRs:Requery( aSql[ 3 ] ), oRs:SetXbrColumns( oBrw ) )

   ACTIVATE DIALOG oDlg CENTERED

   oCn:Close()

return nil
 

[goosfancito]

TEngo esta consulta:

Code: Select all  Expand view

#define QUINCENA ;
"select " + ;
"a.id          as c1, " + ;
"b.nombre      as c2, " +;
"a.fecha       as c3, " + ;
"c.id          as c4_0, " +;
"c.item        as c4, " +;
"a.pago        as c5, " + ;
"a.pobreza     as c6, " + ;
"a.gratis      as c7 " + ;
"from tbdiario a " + ;
"left join tbente as b on b.id = a.idente " +;
"left join tbitems as c on c.id = a.iditem "+;
"WHERE a.fecha >= ? AND a.fecha <= ? "+ ;
"ORDER BY a.iditem, a.fecha "
 

y hago lo siguiente:

::oQry := ::oCnx:QUERY( QUINCENA, { ::dInicio, ::dFinal } )
::oQry:setfilter( "c4_0>0 and c4_0<11" )

pero necesito que este ordenado por los campos "c2" y "c3" pero no logro hacerlo, solo me ordena por "c3"

Code: Select all  Expand view

  ::oQry:setorder( "c2", "c3" )
   ::oQry:Requery() 

[vilian]

Please try:

::oQry:setorder( "c2,c3" )

::oQry:Requery() Is not necessary here.

[goosfancito]

AL hacer esto:

Code: Select all  Expand view

        ::oQry:setFilter( "c2_0<2" )
         ::oQry:setorder("c2_0, c3, c4_0")

y luego hacer

Code: Select all  Expand view

xbrowser ::oQry

solo me ordena por el campo c2_0 el resto no le da importancia