FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ordenar una tabla ascendente y descendentemente
Posts: 45
Joined: Fri Aug 16, 2019 12:51 AM
Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 01:35 PM

Buenos días compañeros,
Tengo una tabla a la que quiero ordenar a veces ascendentemente, y otras veces descendentemente. En la consulta principal ordeno la tabla descendentemente con DESC, pero mas abajo en el código quiero invertir el orden con ASC y no se invierte. Uso la funcion SetOrder(). Gracias de antemano!

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 04:35 PM

Santidedos:

Por favor especifica, DBF o Tabla SQL?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 45
Joined: Fri Aug 16, 2019 12:51 AM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 05:49 PM

Es SQL

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 06:12 PM

Amigo:

Debes ordenar el record set así:

oRsGas:SORT := "GAS_USU,GAS_GAS ASC" // o DESC
oRsGas:MoveFirst()

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 45
Joined: Fri Aug 16, 2019 12:51 AM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 06:37 PM

Gracias, pero no me anda. Me toma siempre el orden que establezco en la consulta principal.

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 06:43 PM

Amigo:

Obviamente debe ser después de que hayas abierto el record set, sería mejor
si muestras tu código.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 45
Joined: Fri Aug 16, 2019 12:51 AM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 08:44 PM

Qué es el record set?

Esta es la consulta en la función principal:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'

oQry := o : oRep : RowSet( cQuery )

En las funciones siguientes es donde quiero invertir el orden, de DESC a ASC

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Sun Mar 21, 2021 10:57 PM

Amigo:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'
oQry := o : oRep : RowSet( cQuery )

// Después de crear el record set (oQry)
oQry:SORT := "CAMPO1,CAMPO2,etc ASC" // o DESC
oQry:MoveFirst()

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Mon Mar 22, 2021 01:45 PM
santidedos wrote:Qué es el record set?

Esta es la consulta en la función principal:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'

oQry := o : oRep : RowSet( cQuery )


En las funciones siguientes es donde quiero invertir el orden, de DESC a ASC


Code (fw): Select all Collapse
oQry:Sort := "FECHA ASC"
Regards



G. N. Rao.

Hyderabad, India
Posts: 111
Joined: Sun Oct 09, 2005 03:09 PM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Wed Mar 24, 2021 09:20 PM

Y después dé aplicar el método debes hacer secuencialmente
Obrw:setfocus()
Obrw:regreso()
Odlg:update ()

Enviado desde mi Redmi Note 9S mediante Tapatalk

Saludos

Atentamente

Jose F Dominguez Serafin

email admsoporte@gmail.com
Posts: 111
Joined: Sun Oct 09, 2005 03:09 PM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Wed Mar 24, 2021 09:22 PM

Obrw:refresh()
Error en mi autocorrector

Enviado desde mi Redmi Note 9S mediante Tapatalk

Saludos

Atentamente

Jose F Dominguez Serafin

email admsoporte@gmail.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Ordenar una tabla ascendente y descendentemente
Posted: Thu Mar 25, 2021 02:16 AM
Code (fw): Select all Collapse
#include "fivewin.ch"

function Main()

   local oCn, oRs, oDlg, oFont, oBrw

   oCn   := FW_DemoDB( 6 )
   oRs   := oCn:RowSet( "select first,city,hiredate from customer where state = 'NY' order by hiredate desc" )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL FONT oFont

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

   oBrw:CreateFromCode()

   @ 20,20 BUTTON "SORT ASC" SIZE 100,35 PIXEL OF oDlg ;
      ACTION ( oRs:Sort := "HIREDATE ASC", oBrw:Refresh(), oBrw:SetFocus() )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

   oRs:Close()
   oCn:Close()

return nil


Regards



G. N. Rao.

Hyderabad, India

Continue the discussion