Estimado Bruno,
Algo muy bueno de C3 es su capacidad de trabajar con OLE.
Sin embargo, al tratar de leer una base de datos con ADO, no me trae correctamente los valors de campos númericos o fechas.
Este mismo ejemplo funciona correctamente en FW+OLE pero yo quiero que funcione con C3 porque necesito empezar a usarlo para hacer algunos programas.
El ejemplo siguiente lee todos los datos de la tabla cliente, sin embargo, los campos Rut_cliente y Fecha_creacion quedan en blanco.
Muchas Gracias
oAccess := TOleContainer():Create( "ADODB.Connection" )
oAccess:Open("DSN=prt;DATABASE=prt;SERVER=localhost;PORT=5432 ...")
oTable := TOleContainer():Create("ADODB.recordset")
oTable:Open("Select * from cliente", oAccess)
/* Cargamos los registros. */
aData := {}
while !oTable:eof()
AADD( aData , { oTable:Fields( "Rut_cliente" ):Value, ;
oTable:Fields( "Nombre" ):Value, ;
oTable:Fields( "Direccion" ):Value, ;
oTable:Fields( "Fecha_creacion" ):Value } )
messagedlg( oTable:Fields( "Fecha_creacion" ):Type )
oTable:MoveNext()
end
|