Aqui te dejo como conectar a un server ADS
Init Procedure Inicio()
local hConnection := 0, lConecte := .f.
SET MULTIPLE ON
SET EPOCH TO 1950 // Admite los a帽os desde el 1990 en adelante
SET CONFIRM ON
SET CENTURY ON // 4 d隆gitos a陇o
SET DATE FORMAT "DD/MM/YYYY" // formato dd-mm-yyyy
SET DELETED ON // Impedir ver registros marcados borrar
SetHandleCount( 150 ) // M ximo n搂 ficheros abiertos
SET _3DLOOK ON
oApp := MyApp():Load()
rddregister( "ADS", 1 )
rddSetDefault( "ADS" )
AdsConnect( oApp:cPathDbf )
AdsSetServerType( oApp:AdsConnect )
MsgRun( "Espere un momento, Conectando con el Servidor", "Win-Invent",;
{ || lConecte := AdsConnect60( oApp:AdsServer, oApp:AdsConnect, "adssys", "7654",, @hConnection ) } )
if !lConecte //!AdsConnect60( oApp:AdsServer, oApp:AdsConnect, "adssys", "7688",, @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
oApp:hConnection := hConnection
hConnection := NIL
AdsSetFileType( ADS_CDX )
AdsLocking( .t. )
AdsRightsCheck( .f. )
return
//---------------------------------------------------------------------------
nota: para poder trabajar con dbf temporales debes incluir la VIA
dbCreate( cFileTemp, ;
{ { "cod_prod", "c", 15,0},;
{ "des_prod", "C", 40,0},;
{ "fecha", "d", 08,0},;
{ "hora", "C", 10,0},;
{ "cant", "n", 10,0},;
{ "usuario", "C", 30,0}}, "DBFCDX" )
SELE 0 ; USE (cFileTemp) NEW ALIAS TEMP VIA "DBFCDX"
Espero que te sirva
y suerte...
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
(Saludos Willy), voy con mi hacha.