Cambiar el tipo de servidor con ADS
Posted: Thu May 03, 2007 10:46 am
Siguiendo con las pruebas, ya conecto perfectamente al servidor AIS, y funciona bastante bien. El problema lo he tenido cuando quiero abrir la tabla local usando dentro del mismo ejecutable conexiones a un Internet Server y vía Local Server.
Al intentar abrir la tabla local me da un error 5132, AE_INVALID_OBJECT_NAME, pero no me queda claro cual puede ser el origen del error.
Fragmento de código con problemas:
[code]
RddSetDefault( "ADS" )
AdsRightsCheck(.F.)
AdsSetServerType(4) //SET SERVER AIS
AdsSetFileType(2)
IF AdsConnect60( "\\pluton\disco-d\inciden\inciden.add", 4 , "usr", "pass" )
Alert( "Esta ahora conectado al Sevidor AIS de ATISA", {"OK"} )
ELSE
Alert( "Se ha rechazado la conexión al servidor AIS de Atisa, por favor intente mas tarde", "AIS Error" )
QUIT
ENDIF
AdsSetServerType(4) //SET SERVER AIS
AdsSetFileType(2)
#define DIR_APGRA 'C:\APGRA\'
#define DIR_INCI "X:\inciden\"
c:= DIR_INCI+"Incidenc.Dbf" // asi con 0.99.5
c:= "Incidenc" // asi con 0.99.6
USE (c) ALIAS "SERINCI" SHARED NEW
If !Used()
MsgInfo( 'no leo los datos...' )
Else
AdsSetServerType(1) //SET SERVER LOCAL
USE (DIR_APGRA+"Incidenc.Dbf") ALIAS "LOCINCI" SHARED NEW
// Este use es el que falla con el error 5132
EndIf
[/code]
Es como si no usase Local server para abrir la 2da dbf.
Este error me lo da usando 0.99.6, no asi con 0.99.5. Alguna sugerencia?
Un saludo,
Carlos.
Al intentar abrir la tabla local me da un error 5132, AE_INVALID_OBJECT_NAME, pero no me queda claro cual puede ser el origen del error.
Fragmento de código con problemas:
[code]
RddSetDefault( "ADS" )
AdsRightsCheck(.F.)
AdsSetServerType(4) //SET SERVER AIS
AdsSetFileType(2)
IF AdsConnect60( "\\pluton\disco-d\inciden\inciden.add", 4 , "usr", "pass" )
Alert( "Esta ahora conectado al Sevidor AIS de ATISA", {"OK"} )
ELSE
Alert( "Se ha rechazado la conexión al servidor AIS de Atisa, por favor intente mas tarde", "AIS Error" )
QUIT
ENDIF
AdsSetServerType(4) //SET SERVER AIS
AdsSetFileType(2)
#define DIR_APGRA 'C:\APGRA\'
#define DIR_INCI "X:\inciden\"
c:= DIR_INCI+"Incidenc.Dbf" // asi con 0.99.5
c:= "Incidenc" // asi con 0.99.6
USE (c) ALIAS "SERINCI" SHARED NEW
If !Used()
MsgInfo( 'no leo los datos...' )
Else
AdsSetServerType(1) //SET SERVER LOCAL
USE (DIR_APGRA+"Incidenc.Dbf") ALIAS "LOCINCI" SHARED NEW
// Este use es el que falla con el error 5132
EndIf
[/code]
Es como si no usase Local server para abrir la 2da dbf.
Este error me lo da usando 0.99.6, no asi con 0.99.5. Alguna sugerencia?
Un saludo,
Carlos.