ShowQry Function

Post Reply
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

ShowQry Function

Post by sysctrl2 »

Amigos no se si alguien ya tenia esta función pero me es muy necesaria para ver de forma rápida un Query XXXXX

es muy simple pero muy útil para mi,

Image

Code: Select all

#include <fivewin.ch>

//Cesar SysCtrl Software

function Main()
    local cQry, oQry

    cQry := "SELECT * from clientes order by idcliente"
   oCte := ::oCon2:Query( cQry )
   oCte:GOTOP()

   ShowQry( oCte )

   oCte:end()

return nil

Function ShowQry( oQry )
  local oDlg, oBrw
   local oFont, oBold, oItalic

   DEFINE FONT oFont   NAME 'TAHOMA' SIZE 0,-12

   DEFINE DIALOG oDlg SIZE 800,600 PIXEL FONT oFont
   oDlg:cTitle := "ShowQry Function"

   @ 10, 10 XBROWSE oBrw OBJECT oQry ;
            AUTOCOLS AUTOSORT PIXEL SIZE -10, -10 LINES OF oDlg

   oBrw:nStretchCol := STRETCHCOL_LAST

   oBrw:nDataLines := 3
   oBrw:CreateFromCode()

   oDlg:lHelpIcon := .f.

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil
saludos cesar
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
carlos vargas
Posts: 1421
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Re: ShowQry Function

Post by carlos vargas »

yo uso

Code: Select all

oQry := oServer:Query("show databases;")
xbrowse(oQry)
 
salu2
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Re: ShowQry Function

Post by sysctrl2 »

Carlos
jeje
ni enterado que también asi funciona
pensé que el xbrw. solo es para d.b.f.

Atando Cabos jeje.

gracias.
saludos..
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
Post Reply