Buen dÃa, no funciona, hice la prueba con sqlserver y funciona bien:
include "fivewin.ch"
function Main()
local oCn, oRs
msgrun( "Connecting to FWH cloud server")
oCn := FW_OpenAdoConnection( "MYSQL,localhost,rj,root,1234", .t. ) // con esta conexión no trae la tabla
* oCn := FW_OpenAdoConnection( "SQLSERVER,desarrollo\sqlexpress,rj,sa,1234", .t. ) // con esta conexión la trae perfecto tabla
if oCn == nil
? "Connect fail"
return nil
endif
msgrun( "Connected." + CRLF + "Reading structure of customer table")
- oRs := FW_OpenRecordSet( oCn, "SHOW COLUMNS FROM clientes" )
- XBROWSER oRs TITLE "customer table : columns"
- oRs:Close()
msgrun( "Reading customer table")
oRs := FW_OpenRecordSet( oCn, "select * from clientes" )
XBROWSER oRs
oRs:Close()
oCn:Close()
return nil
Tengo fwh1709, con xharbour7, mysql server 8.0
Tengo una tabla sin campos decimal y lee perfecto.
Saludos.
Jorge