31 de marzo de 2000

Mostrar el porcentaje de ejecución de un comando SELECT o USE VIEW

Muestra el porcentaje de ejecución de un comando SELECT o USE VIEW.
*----------------------------------------
* EJEMPLO DE USO
*----------------------------------------
LOCAL loBar
loBar = CREATEOBJECT("SQLBar")

*-- Consulta no optimizada que retorna mas 
*-- de 1.000.000 de registros solo para prueba
SELECT * ;
  FROM (HOME(2)+"Tastrade\Data\Orders") T1, ;
  (HOME(2)+"Tastrade\Data\Orders") T2

RELEASE loBar

*----------------------------------------
* Inicio de la definición de la clase
*----------------------------------------
DEFINE CLASS SQLBar AS CUSTOM
  PROTECTED lSetTalk, lWindows
  lSetTalk = ""
  lWindow = ""
  NAME = "SQLBar"

  PROCEDURE INIT
    THIS.lSetTalk = SET("TALK")
    THIS.lWindow = SYS(2015)
    DEFINE WINDOW (THIS.lWindow) FROM 0,0 TO 1,1
    SET TALK WINDOW (THIS.lWindow)
    SET TALK ON
  ENDPROC

  PROCEDURE DESTROY
    LOCAL lThisSetTalk
    lThisSetTalk = THIS.lSetTalk
    SET TALK &lThisSetTalk
    RELEASE WINDOW (THIS.lWindow)
  ENDPROC
ENDDEFINE

*----------------------------------------
* Fin de la definición de la clase
*----------------------------------------
Luis María Guayán

No hay comentarios. :

Publicar un comentario