FiveTech Support Forums

#include "FiveWin.ch"
#include "sql.ch"
#include "xbrowse.ch"

//----------------------------------------------------------------//

STATIC oWnd
STATIC oDbf

function Main()

   local oOdbc
   local nFor, oBar, oBtn1

   SET 3D LOOK ON

   oOdbc := TOdbc():New( "SQLServer", "", "" )

  If !oOdbc:lSuccess
      oOdbc:ShowErrorList("ODBC session not successfully initialized, a
      oOdbc:End()
      return nil
   Endif

   // Abrimos la tabla directamente

   oDbf := TDbOdbc():new( "SELECT * FROM tabla" , oOdbc)

   if oOdbc:IsError()
      oOdbc:ShowErrorList()
      oOdbc:aErrors := {}
      oDbf:End()
      return nil
   endif

   oDbf:Gotop()

   Do While !oDbf:Eof()
      Aadd(aData, oDbf:FieldGet(1))
      oDbf:Skip()
   Enddo

   DEFINE WINDOW oWnd MDI

   DEFINE BUTTONBAR oBar OF oWnd

   DEFINE BUTTON oBtn1 OF oBar ACTION fBrowse()

   ACTIVATE WINDOW oWnd

   oDbf:End()
   oOdbc:End()

return nil

STATIC function fBrowse()

   local oBrw, oChild

   DEFINE WINDOW oChild MDICHILD OF oWnd

   oBrw := TXBrowse():New( oWnd )

   @ 0,0 XBROWSE oBrw ;
      HEADERS "Nombre" ;
      OBJECT oDbf

   oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLCELL
   oBrw:lRecordSelector := .f.

   oBrw:CreateFromCode()

   oChild:oClient := oBrw

   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()

   Do While !oDbf:Eof()
      Aadd(aData, { oDbf:FieldGet(1) } )
      oDbf:Skip()
   Enddo