Sobre el Diccionario de Datos

[JavierVital]

Que tal buen dia.
Solo una pregunta para los que ya pasaron por esto.
Tengo en un servidor remoto las tablas de forma libre, cree un DD para poder conectarme
ya me conecto a el, las tablas siguen libres, he tratado de abrir las tablas pero no he podido lograrlo
La pregunta, es FORZOSO que las tablas estén referencia das dentro del DD ??
Si no es así, me podrían echar la mano para poder abrirlas.

Saludos.

[compubrion]

Saludos !
Tienes que añadir las tablas al diccionario, esto lo puedes hacer con el ARC o mediante codigo, con
la funcion AdsDDaddTable()
Ejem.
AdsDDaddTable( "Table1", "table1.adt", "table1.adi" ) Para tablas nativas
AdsDDaddTable( "Table1", "table1.dbf", "table1.cdx" ) Para DBFCDX

Donde el primer paramatero es un identificador de a tabla, luego la tabla con su extension y despues el indice con su extension
*--

En tu sistema despues de conectarte a DD abres todas las tablas y le asignas un alias y atravez de este alias accedes a los
datos

Code: Select all

*--
FUNCTION CONECTACONADS()
*--
LOCAL cUser, cPass, nServ, cData
LOCAL oErr
LOCAL hConect
LOCAL lRet := .F.
LOCAL nFiles
LOCAL cFileIni := ".\Conecta.ini"
aFilesAdt := { "Condowin", "Conjunto", "Propieta", "Tablacon", "Proveedo",;
               "Concepto", "Deudagen", "Emisione", "Formatos", "Historia",;
               "Movidiar", "Operadia", "Apartame", "Codigos", "Detamovi", ;
               "Contratos", "Unidades" }
*--
cUser := LOWER( ALLTRIM( NETNAME() ) )
cPass := LOWER( ALLTRIM( NETNAME() ) )
nServ := 7
cData := "\\SERVIDOR\SERVERADS\CONDOMINIOS\CONDOMINIOS.ADD"
IF FILE( cFileIni )
   cData := GetPvProfString( "DATOS", "CARPETA", cData, cFileIni )
ENDIF
*--
IF ADSCONNECT60( cData, nServ, cUser, cPass,,@hConect )
   SET AUTOPEN ON
   *--
   FOR nFiles = 1 TO LEN( aFilesAdt )
       DBUSEAREA( .T., RDDSETDEFAULT(), aFilesAdt[ nFiles ], aFilesAdt[ nFiles ], .T. )
       ( aFilesAdt[ nFiles ] )->( ORDSETFOCUS( 1 ) )
   NEXT
   *--
   lRet := .T.
ELSE
   ADSGETLASTERROR( @oErr )
   ADSSHOWERROR( oErr, FWDESCRIPTION )
ENDIF
*--
RETURN( lRet )
*--
*

 

[JavierVital]

Gracias por tu ayuda
Veo que si es NECESARIO que las tablas esten referenciadas en el DD

otra pregunta ya estando aqui.
Tengo otro servidor donde SI utilizo el DD y mis tablas si estan dentro del DD
pero ahora necesito abrir una tabla libre, como le puedo hacer.

Gracias.

[compubrion]

Saludos !

Use TuTabla VIA DBFCDX para cdx
Use TuTabla VIA DBFNTX para cdx
use TuTabla VIAD ADS

[lucasdebeltran]

Javier,

Si usas ADS Local o Remoto, pues abrir free tables como abres un DBF normal.

Además, mira este post:
http://harbourlanguage.blogspot.it/2012 ... ddads.html


Salu2

[JavierVital]

Con ADSConnect(cPathTEM) , solamente así pude abrir tablas libres del DD
y después cerrar la coneccion AdsDisconnect().