Con la actualizacion de xharbour 0.99.61 varios cambios he visto con las funciones ADS, ahora no he podido indexar
hay alguno que ha podido??
en forma local funciona bien, pero con remoto sale error...
en mi aplicacion tengo lo siguiente:
- Code: Select all Expand view
rddSetDefault( "ADS" )
adsConnect( oApp:cPathDbf )
AdsSetServerType( 2 )
if !AdsConnect60( oApp:AdsServer, 2, "adssys", "clave",, @hConnection )
MsgInfo( "Hay problemas en el servidor"+CRLF+"intente mas tarde", "usuario" )
MsgInfo( "Error:"+cValtochar( AdsGetLastError() )+CRLF +;
"Servidor:"+oApp:AdsServer, "Usuario" )
PostQuitMessage(0)
QUIT
return
endif
AdsSetSearchPath( oApp:cPathDbf )
AdsSetFileType( ADS_CDX )
AdsLocking( .t. )
AdsRightsCheck( .f. )
ahora abro las base de la siguiente manera
- Code: Select all Expand view
cDbf := "ARTICU"
if lShared
SELE 0 ; USE (cDbf) NEW ALIAS (cAlias) VIA "ADS" SHARED
else
SELE 0 ; USE (cDbf) ALIAS (cAlias) VIA "ADS" EXCLUSIVE NEW
endif
para crear el indice lo hago de la siguiente manera
- Code: Select all Expand view
cTag := "ARTICU"
cKey := "CODIGO"
cCdx := "ARTICU" //es el nombre de la base de dato
// cCdx := ruttaservidor+"\ARTICU" // ruta del servidor
INDEX ON &cKey ;
TAG &cTag ;
TO &cCdx
dbCloseAll()
El Error es el siguiente
ads/cdx 5089, ERROR DE CREACION??
Desde ya, gracias
Saludos
Patricio
