topic-4170

Posts: 28

Joined: Tue Nov 15, 2005 01:03 AM

Campos en TDatabase
Posted: Wed Sep 06, 2006 06:55 PM

Saludos amigos

En TDatabase es posible leer campos de esta manera

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

Williams Pacheco
http://www.bpdominicana.com
http://www.conest.net

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Campos en TDatabase
Posted: Wed Sep 06, 2006 07:26 PM

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().

regards, saludos

Antonio Linares
www.fivetechsoft.com

Maurizio

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Campos en TDatabase
Posted: Thu Sep 07, 2006 06:04 AM

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

Maurizio
www.nipeservice.com

wpacheco

Posts: 28

Joined: Tue Nov 15, 2005 01:03 AM

Campos en TDatabase
Posted: Thu Sep 07, 2006 12:55 PM

Muchas gracias
Voy a chequear

Williams Pacheco
http://www.bpdominicana.com
http://www.conest.net

MarioG

Posts: 1380