ADS error en apertura de DBF con alias

[rterraz]

Hola
Estoy usando ADS en modo local, cuando intento abrir una base de datos con un Alias se me produce un error y no me deja abrir el segundo archivo

RddSetDefault('ADSCDX')
Dbusearea(.t.,,'Diario',,.t.)
browse()
Se ejecuta sin inconvenientes.....a continacion
Dbsusearea(.t.,,'Diario','Diario2',.t.)
browse()
ME DA ERROR DE APERTURA DE DIARIO2

Alguien me puede explicar que esta pasando...esto mismo con 'DBFCDX' anda perfectamente!

[carlos vargas]

please use RddSetDefault("ADS") and AdsSetFileType( ADS_CDX )

Code: Select all  Expand view

FUNCTION Main_Configurar()
   LOCAL cPath      := Upper( CurDrive() + ":\" + CurDir() )
   LOCAL lContinuar := FALSE

   HB_LangSelect(  "ESWIN" )
   HB_SetCodePage( "ESWIN" )

   RddSetDefault( "ADS" )

   SET DEFAULT      TO ".\DATOS\"
   SET DECIMAL      TO 4
   SET EPOCH        TO 1930
   SET DATE         BRIT
   SET PATH         TO ( cPath +";"+ cPath + "\DATOS" +";"+ cPath + "\REPORTS" )
   SET SOFTSEEK     OFF
   SET CENTURY      ON
   SET OPTIMIZE     ON
   SET CONFIRM      ON
   SET DELETED      ON
   SET FIXED        ON
   SET TRIMFILENAME ON
   SET DIRCASE      LOWER
   SET FILECASE     Lower

   AdsSetCharType( ADS_ANSI )
   AdsSetFileType( ADS_CDX )
   AdsRightsCheck( FALSE )
   AdsLocking( FALSE )
...

[rterraz]

Hola Carlos
Gracias por responderme...
Los seteos del 'ADS' estaban bien, el problema surge con el Dbusearea() cuando quiero abrir la base con un alias distinto al nombre de la misma.
Si la abro poniendo en el alias el mismo nombre de la base lo hace sin problemas!!!
Dbusearea(.t.,,'Diario','Diario',.t.) anda bien
si a continuacion hago Dbusearea(.t.,,'Diario','Diario2',.t.) no la puede abrir y da el error
No estara el problema en el Dbusearea() ????
Salu2

[russimicro]

Hola...

Recuerdo haber tenido un problema similar,,, actualmente uso "USE" , solo para ADS
IF cDriVer == "ADS"
USE (cPatTab+cNomTab) ALIAS &cAliTab SHARED NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1])
ELSE
DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl)
ENDIF

[lucasdebeltran]

Hola,

¿Qué versión usas?. Yo no tuve ese problema.

Eso sí, no puedes usar un alias mayor de 8 0 10 caracteres con ADS.

[Patricio Avalos Aguirre]

Hola

Puedes mostrar el numero de Error que da ?

[rterraz]

Hola
Estoy totalmente desorientado...ya probe de todo y no hay caso
hago
Dbusearea(.t.,,'Test',,.f.)
luego
Dbusearea(.t.,,'Test','Test2',.f.) NO DA NINGUN ERROR
Cuando digo
Dbselectarea('Test2') me tira ERROR 2001 WORKAREA NOT IN USE !!!!!!
USO HARBOUR V.3.00.00 + ADS 9.1 + FWH 10.1

SALUDOS

[rterraz]

Perdon
En el mensaje anterior se me fue un eror de tipeo
Las bases estan abiertas en forma COMPARTIDA .T. y no .F. como puse en el Dbuse area del ejemplo.
Tampoco me esta funcionando con el driver 'DBFCDX' !!!!!
Sera algun seteo ??????

[russimicro]

REQUEST DBFCDX, DBFFPT

//*** USE EL DRIVER... RDDSETDEFAULT()

DBUSEAREA(.T.,RDDSETDEFAULT(),cPatTab+cNomTab,cAliTab,lShared,lReaOnl)

russoft ltda

[rterraz]

Hola
Abriendo las bases con el driver 'DBFCDX' por default ANDA BIEN USANDO ALIAS
Si las abro usando el driver 'ADS' con Dbusearea() es IMPOSIBLE ABRIR CON UN ALIAS
Aparentemente el error se encuentra en el Dbusearea() de Harbour cuando se lo usa bajo 'ADS'
Alguien sabra por que pasa esto?
Si no encuentro solucion debere dejar de usar el Advantaje Data Server!

[carlos vargas]

no se si podemos hacer una sesion por teamviewer para hacer pruebas, me puedes enviar la info por mail
karlos.vargas at gmail dot com

[jrestojeda]

Hola,
En caso de que la DBF tenga un CDX asociado, probá renombrarlo.
Ejemplo si tenés MITABLA.DBF y MITABLA.CDX Probá al CDX renombrarlo como MITABLA2.CDX y luego intentá abrir el archivo con DbUseArea().
Si funciona, posiblemente MITABLA.CDX fue creado con el alias, eso en la apertura del CDX generaría el error.
Otra forma es probar SET AUTOPEN OFF para que no lo abra automáticamente.
Son pruebas que yo haría...
Saludos,

[rterraz]

Eran los indices!!!
Muchas gracias por la ayuda

[jrestojeda]

Perfecto!!
Me alegro que hayas dado con la solución.
Saludos,