FiveTech Support Forums

Estoy practicando los ejemplos, quiero hacer un browse completo pero con conexión mysql as:
Me conecto bien, pero el l browse lo muestra vacio.

FUNCTION Main()
LOCAL o, oRs, hRes,oBrw,oo

    oo := WDO():Rdbms( 'MYSQL', "127.0.0.1", "root", "19585287", "indfundacion", 3307 )
    IF oo:lConnect
        ? 'Connected !', '<b>Versión RDBMS MySql', oo:Version()
    ELSE
        ? oo:cError 
    ENDIF


    cSql := "select * from contrib limit 5"

    IF !empty( hRes := oo:Query( cSql  ) )

        ? '<br><b>Total Select: </b>', oo:Count( hRes )
        aData := oo:FetchAll( hRes )

    endif



DEFINE WEB oWeb TITLE 'Basic Browse' TABLES INIT

DEFINE FORM o

    HTML o INLINE '<h3>Basic Browse</h3><hr>'

INIT FORM o

    DEFINE BROWSE oBrw ID 'ringo' HEIGHT 400 EXPORT SEARCH PRINT TOOLS OF o

        ADD oCol TO oBrw ID 'nit'    HEADER 'IDENTIFICACION'    ALIGN 'right'
        ADD oCol TO oBrw ID 'razon'  HEADER 'RAZON SOCIAL'      SORT            
        ADD oCol TO oBrw ID 'direcc' HEADER 'DIRECCION'     WIDTH 70

    INIT BROWSE oBrw DATA aData

END FORM o

RETU NIL

Ya lo resolví, viendo el video donde Charly explica Creación de un CRUD usando el Browse, paso a paso.

Asi:

// --------------------------------------------------------------
// Title......: WDO Web Database Objects
// Description: Test WDO
// Date.......: 28/07/2019
//
// {% LoadHRB( '/lib/wdo/wdo.hrb' ) %} // Loading WDO lib
// {% HB_SetEnv( 'WDO_PATH_MYSQL', "c:/xampp/htdocs/" ) %} // Usuarios Xampp
// {% LoadHrb( 'lib/tweb/tweb.hrb' ) %}
// --------------------------------------------------------------

#include {% TWebInclude() %}

FUNCTION Main()
LOCAL o, oRs, hRes,oBrw,oo


oo := WDO():Rdbms( 'MYSQL', "127.0.0.1", "root", "123456", "indfundacion", 3307 )

IF oo:lConnect

? 'Connected !', '<b>Versión RDBMS MySql', oo:Version()
? 'Adolfredo Martinez esta es tu Version:', twebversion()

ELSE

? oo:cError

ENDIF


cSql := "select nit, razon, direcc, tiporegime from contrib"


IF !empty( hRes := oo:Query( cSql ) )

? '<br><b>Total Select: </b>', oo:Count( hRes )

aData := oo:FetchAll( hRes, .t. )
endif


DEFINE WEB oWeb TITLE 'Basic Browse' TABLES INIT

DEFINE FORM o

HTML o INLINE '<h3>Basic Browse</h3><hr>'

INIT FORM o

DEFINE BROWSE oBrw ID 'ringo' HEIGHT 400 CLICKSELECT EXPORT SEARCH PRINT TOOLS OF o
oBrw:lStripped := .t.

ADD oCol TO oBrw ID 'nit' HEADER 'CODIGO' ALIGN 'left'
ADD oCol TO oBrw ID 'razon' HEADER 'RAZON' ALIGN 'left' SORT
ADD oCol TO oBrw ID 'tiporegime' HEADER 'TIPOREGIMEN' ALIGN 'left' WIDTH 200


INIT BROWSE oBrw DATA aData

END FORM o

RETU NIL

https://subir-imagen.com/i/RA2Mm