Usando ADS con archivos ADT

[IVAN TRACHTA]

Siguiendo diversas instrucciones, fundamentalmente del maestro René en este foro y en su blog, logré hacer funcionar Servidor ADS Remoto con tablas ADT.
Con la salvedad que se me presentan errores con el uso de la clase tDbf.
Aclaro que utilizando DBF-CDX no se presenta el error (también con ADS remoto).
Saludos



El error.log me queda así.

Application
===========
Path and name: C:\SIMEDHB\SIMEDHB.exe (32 bits)
Size: 1,905,152 bytes
Time from start: 0 hours 0 mins 19 secs
Error occurred at: 10/05/2006, 19:51:16
Error description: Error BASE/1102 Error de argumento: UPPER
Args:
[ 1] = U

Stack Calls
===========
Called from: => UPPER(0)
Called from: => TFIELD:NEW(55)
Called from: => TDBF:AUTOFIELD(0)
Called from: => TDBF:ACTIVATE(0)
Called from: => TDBF:USE(0)
Called from: => ALTAPROC(0)
Called from: => (b)PROCESOS(0)
Called from: => TBTNBMP:CLICK(0)
Called from: => TWINDOW:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: => PROCESOS(0)
Called from: => (b)MENUBASE(0)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: => MAIN(0)

[Patricio Avalos Aguirre]

IVAN

Yo tb tuve problemas, pero lo solucione asi

Code: Select all  Expand view  RUN

local oMa
DEFINE DATABASE oMa FILE ( "PATENTE.ADT" ) PATH "" VIA "ADS"
   FIELD NAME "NUM_PAT"    TYPE "C" LEN 007 DEC 00 OF oMa
   FIELD NAME "NUM_STOCK"  TYPE "N" LEN 010 DEC 00 OF oMa
   FIELD NAME "MARCA"      TYPE "C" LEN 020 DEC 00 OF oMa
   FIELD NAME "MODELO"     TYPE "C" LEN 020 DEC 00 OF oMa
   FIELD NAME "VIN"        TYPE "C" LEN 020 DEC 00 OF oMa
   FIELD NAME "COLOR"      TYPE "C" LEN 015 DEC 00 OF oMa
   FIELD NAME "USUARIO"    TYPE "C" LEN 013 DEC 00 OF oMa


ACTIVATE DATABASE oMa NORECYCLE SHARED


Saludos
Patricio

[IVAN TRACHTA]

OK Gracias Patricio, lo probé y aparentemente así funciona.
Pero no hay alguna otra forma que defina automáticamente los Fields?
Cuál es la última versión que hay de TDbf? la que yo tengo tuvo su últ. actualización el 12/03/2003 (según el arch. historia.txt que lo acompaña).
Bueno.... cualquier sugerencia es bienvenida.

Saludos. Iván