FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Indexar con ADS
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Indexar con ADS
Posted: Wed Nov 29, 2006 02:48 PM
Estimados
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:

	

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

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

   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
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion