Browse completo con mysql

mod_harbour es un módulo para Apache que permite correr tus PRGs directamente en la web!!!

Browse completo con mysql

Postby Adolfredo Martinez » Sun Mar 07, 2021 10:54 pm

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
Adolfredo Martinez
 
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: Browse completo con mysql solucionado

Postby Adolfredo Martinez » Sun Mar 14, 2021 4:57 pm

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
Adolfredo Martinez
 
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia


Return to mod_harbour

Who is online

Users browsing this forum: No registered users and 13 guests