topic-26936

Board index FiveWin para Harbour/xHarbour Mostrar progreso de cargue ADO.

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Mostrar progreso de cargue ADO.
Posted: Wed Aug 07, 2013 02:14 AM

Amigos del foro tengan buena noche:

Pues como dice el encabezado ¿Como hago para mostrar el proceso de creación del recorset?
Quiero mostrar eso para que el cliente no se desespere cuando hay que cargar una tabla larga
y cierre a la fuerza el sistema?

Code (fw): Select all Collapse

oVar   := "SELECT * from "+oLamcla:tArti+" ORDER BY "+alltrim(oLamcla:vOrden)
TRY
  oLamcla:oRsArticu:=tOleAuto():New("ADODB.RecordSet")
CATCH oError
  MsgStop( "No se ha podido crear el RECORDSET !","Error de Datos" )
END

oLamcla:oRsArticu:CursorLocation  := adUseClient //adUseServer
oLamcla:oRsArticu:LockType        := adLockOptimistic
oLamcla:oRsArticu:CursorType      := adOpenKeyset
oLamcla:oRsArticu:Source          := oVar
oLamcla:oRsArticu:ActiveConnection( oLamcla:oServer )
TRY
  oLamcla:oRsArticu:Open()
CATCH oError
  MsgStop( "No se ha podido ejecutar el comando !", "Error de Datos" )
END

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Mostrar progreso de cargue ADO.
Posted: Wed Aug 07, 2013 02:31 AM

Hola Leandro:
A lo mejor es una opción medio básica, pero tal vez pueda servirte.
Crear un dialgo no modal, y cerrarlo al terminar la consulta.
Algo Así, antes de comenzar la consulta,

Code (fw): Select all Collapse

   DEFINE DIALOG oDlg FROM 2, 2 TO 12, 40
   oDlg:lHelpIcon := .f.
   @ 05, 05 SAY "GENERANDO CONSULTA . . ."    OF oDlg PIXEL
   @ 20, 05 BITMAP NAME "CONSULTA" OF oDlg NOBORDER SIZE 40,40 ADJUST PIXEL
   ACTIVATE DIALOG oDlg CENTERED NOWAIT
   MsgWait("Espere por favor","Atencion",1)
 ....// Aca abris la consulta
   oDlg:End()

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

elvira

Posts: 518

Joined: Fri Jun 29, 2012 12:49 PM

Re: Mostrar progreso de cargue ADO.
Posted: Wed Aug 07, 2013 08:27 AM

Hola,

Puedes usar mejor las funciones nativas de Fivewin y usar un MsgRun.

FiveTech Support Forums

Continue the discussion