Campos en TDatabase

[wpacheco]

Saludos amigos

En TDatabase es posible leer campos de esta manera

Code: Select all  Expand view

use cDbf
database oDbf
Msginfo( oDbf:Campox )

he revisado la clase pero no identifico la manera en como se crea este metodo. Podrian darme una mano con esto?

Gracias anticipadas

Williams Pacheco

[Antonio Linares]

Williams,

Se utiliza la técnica del error handler:

ERROR HANDLER OnError( uParam1 )

Al intentar acceder al nombre del campo se genera un error, ya que no existe esa DATA, y el sistema de gestión de errores del motor de clases de Harbour lo reconduce al método OnError(), desde allí se accede al campo que se esté usando.

Revisa el código del método OnError().

[Maurizio]

With xHarbour

Regards Maurizio



-------------------------------------------------
oDbf := NewScatter()


FUNCtion NewScatter()
Local aVars := {=>}
LOcal nField := FCount()
LOcal nX := 1
FOR nX := 1 TO nField
aVars[FIELDNAME(nX)] := FieldGet(nX)
NEXT
RETU aVars

Function Gather(aVars)
lOCAL Nx := 1
AEval(aVars, {|x, i| FieldPut(i, aVars[i]) } )
RETUrn TRUE

[wpacheco]

Muchas gracias
Voy a chequear

[MarioG]

W
Podés probar con TDbf de Manu Expósito que te da eso y mucho mas!

http://www.fivewin.info/html/downloads. ... ons&id=280

Saludos